mariozneto

Veja seu código: Set teste = cn.Execute(" Insert into Agendar_Consulta (nom_pac,hora,data) values('" & nome.Text & "','" & hora.Value & "','" & data.Value & "') ") o Certo seria assim: Set teste = cn.Execute(" Insert into Agendar_Consulta (nom_pac,hora,data) values('" & nome.Text & "',#" & hora.Value & "#,#" & data.Value & "#) ") Amigo, você terá que usar Malha para salvar um Campo data!!!! Falow... T+

Tem um erro nesta Linha: Set rs = cn.Execute(" Select * from Agendar_Consulta where data = '" & Date & "' ") veja o certo como ficaria: Set rs = cn.Execute(" Select * from Agendar_Consulta where data = #" & Date & "#") Apenas troquei o apóstrofo pela Malha!!! Sempre que trabalhar com datas use Malha # Veja se não é por isso que não passa pelo While!!! Falow... T+

Amigo, Basta instalar o Service Pack 6 para Visual Basic, que vai resolver seu problema!!!! Falow... T+

Muito legal estes Links.... Falow... T+

Amigo, ai eu acho que você vai bagunçar o post do cara, he he he... Se esta dúvida foi sanada, Abre uma nova pergunta que eu lhe ajudo!!! Falow... T+

Veja: mnuPopUp = nome_do_seu_menu_Popup Entendeu ?? Falow... T+

Sim é facil, porque não disse antes, Após você montar o Menu Suspenso, coloque este código no listview: Private Sub lstVw_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single) If Button = 2 Then PopupMenu Me.mnuPopUp End Sub Qualquer coisa é só postar!!!! Falow... T+

Amigo, veja se é isto que tú quer: Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then If MsgBox("Retirar: " & ListView1.SelectedItem & " Da Lista", vbYesNo + vbInformation, "Retirar ?") = vbYes Then ListView1.ListItems.Remove (ListView1.SelectedItem.Index) End If End If End Sub Falow... T+

Você queria clicar com o botão esquerdo para retirar itens da listview ??? Falow... T+

Você pode pegar um Tutorial legal no site da Borland ou na Apostilando.com Falow... T+

Use: Combo1.Sorted = True Falow... T+

Use: ListView1.ListItems.Count Falow... T+

Amigo Ucase() converte para maiúscula quando a caixa de texto perde o foco, já o meu exemplo converte ao teclar algo! Cada código tem uma funvionalidade!! Abraço!! Falow... T+

Porque você não usa o Visual ReportX ???? Ele é o melhor compnente que conheço para Relatórios!!!! e Muito facil de Usar!!!! Falow... T+

Veja se é isto que precisa: Private Sub text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Falow... T+

Veja este exemplo para ver se lhe ajuda: Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Const LB_ITEMFROMPOINT = &H1A9 Private Sub Form_Load() With List1 .AddItem "Computador" .AddItem "Telefone" .AddItem "Modem" .AddItem "Impressora" .AddItem "Scanner" .AddItem "Sound Blaster" .AddItem "Teclado" .AddItem "CD-Rom" .AddItem "Mouse" End With End Sub Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lRet As Long Dim lXPos As Long, lYPos As Long lXPos = CLng(X / Screen.TwipsPerPixelX) lYPos = CLng(Y / Screen.TwipsPerPixelY) If Button = 2 Then lRet = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0, ByVal _ ((lYPos * 65536) + lXPos)) If lRet < List1.ListCount Then List1.ListIndex = lRet End If MsgBox List1.List(List1.ListIndex) End If End Sub Basta você fazer uma Adaptação!!! Falow... T+

Me diga uma Coisa, vamos ver se eu entendi, você quer limpar todos Labels e depois atribuir um Valor Para eles ??? Falow... T+

Bom dia! VbMania Falow... T+

Veja se é isso: Dim hora As Double Private Sub Command1_Click() hora = hora + 10 lblhora.Caption = Format(DateAdd("h", hora, Time), "hh:mm:ss") End Sub Private Sub Form_Load() hora = 0 End Sub Falow... T+

Eu uso assim: Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub Form_Load() Set cnn = New ADODB.Connection cnn.ConnectionString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =c:\controle\controle.MDB" cnn.Open Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open "SELECT * FROM grupo", cnn, adOpenDynamic, adLockOptimistic End Sub Falow... T+

Cara eu não entendi sua pergunta ?????? Tente explicar um pouco melhor!!!! Falow... T+

Qual string de Conexão você está usando ???? Falow... T+

Bom dia Amigo!!!! Veja este LInk que vai lhe ensinar direitinho como se faz passo a passo: Clique Aqui para ir! Falow... T+