Boa Tarde

 

O galera estou fazendo uma consulta usando MskEdit.text para localizar o seu conteudo no Banco de Dados que e Access Mas se eu colocar o valor 700 ele acha tudo ok mas se eu Colocar 700,00 ele nao acha.

Se alguem poder me ajudar seque o codigo.

 

Set cheques = banco.OpenRecordset("select * from Cheques where ValorC like '" & mskvalorC.Text & "'", dbOpenDynaset)
   If cheques.EOF = False Then
      cheques.MoveMin
      While Not cheques.EOF
         mfgcheques.Row = mfgcheques.Row + 1
         mfgcheques.Col = 0
         mfgcheques.Text = cheques(0)
        
         mfgcheques.Col = 1
         mfgcheques.Text = cheques(17)
        
        
         mfgcheques.Col = 2
         mfgcheques.Text = cheques(9)
        
         mfgcheques.Col = 3
         mfgcheques.Text = cheques(10)
        
         mfgcheques.Col = 4
         mfgcheques.Text = Format(cheques(11), "#,##0.00")
        
         mfgcheques.Col = 5
         mfgcheques.Text = cheques(12)
        
         mfgcheques.Col = 6
         mfgcheques.Text = cheques(4)
        
         mfgcheques.Col = 7
         mfgcheques.Text = cheques(14)
        
         cheques.MoveNext
         If mfgcheques.Row + 1 = mfgcheques.Rows Then
            mfgcheques.Rows = mfgcheques.Rows + 3
         End If
           lblcont.Caption = cheques.RecordCount
      Wend
   Else
      MsgBox "Não Existe Registros !", vbExclamation, "   Nissei Máquinas"
      mskvalorC.SetFocus
   End If

se você passar um valor com vírgula, você deve colocar aspas simples senão não precisa

 

exemplo:

700

Set cheques = banco.OpenRecordset("select * from Cheques where ValorC like " & mskvalorC.Text)

700,00

Set cheques = banco.OpenRecordset("select * from Cheques where ValorC like '" & mskvalorC.Text & "'")

Fernando,

 

consultas em SQL via MSACCESS podem ser feitas utilizando funcoes do VB.

No seu caso ficaria assim:

 

Set cheques = banco.OpenRecordset("SELECT * FROM Cheques WHERE ValorC = CDbl('" & mskvalorC.Text & "')", dbOpenDynaset)