Olá pessoal...
Eu tenho o seguinte código:
Private Sub cmdLocalizar_Click()
Dim Var As String, Criterio As String, SQL As String
Var = InputBox("Digite o código e a data do medicamento que deseja procurar.", "Pesquisa por Medicamento")
If Var = "" Then Exit Sub
Criterio = Chr(39) & Var & "*" & Chr(39)
If dtaControle.Recordset.NoMatch = True Then
MsgBox "Medicamento não encontrado", vbOKOnly, "Conclusão da pesquisa"
Exit Sub
Else
SQL = "select * from Controle WHERE CÓDIGO LIKE" _
& Criterio & "ORDER by data"
dtaControle.RecordSource = SQL
dtaControle.Refresh
End If
End Sub
Ele me dá os registros que quero através do código dos mesmos...
Como que eu faço para que além do código, ele também me peça a data, para filtrar agora com a data também...
Ou seja, se eu quiser um registro com o código 002 e a data 15/12/04 ele me dará o registro com esses requisitos...
O que eu mudo no meu código, além do inputbox que eu já mudei, he, he..
Obrigado pra quem me ajudar...
