Buongiorno a tutti,
ho un problema con una ricerca in un db access.
Probabilmente il problemaq è semplice e sicuramente sbaglio qualche cosa:
Devo fare una ricerca dove alcune volte mi serve cercare solo (nome e data) mentre altre devo aggiungere anche il nome.
Vi posto il codice che ho fatto e che funziona solo se cerco in date precedendi all'odierna.
Difatti se cerco nella dta di ieri e avanti ieri e in quelle precedenti trova tranquillamente quello che cerco.
Mentre se cerco nella data odierna non trova nulla malgrado siano presenti i nomi
Perchè? Dove sbaglio?
Grazie per una cortese spiegazione, vi posto il pezzo di codice:

[cn.Open stringa
If txtCognome1.Text <> "" And txtfrData.Text <> "" And txtNome1.Text <> "" Then
rs.Open "SELECT * FROM QuData WHERE Cognome = '" & txtCognome1.Text & "' And Data
= #" & txtfrData.Text & "# And Nome = '" & txtNome1.Text & "';", cn, 1
ElseIf txtCognome1.Text <> "" And txtfrData.Text <> "" Then
rs.Open "SELECT * FROM QuData WHERE Cognome = '" & txtCognome1.Text & "' And Data = #" & txtfrData.Text & "#;", cn, 1
End If

If rs.EOF = False Then
cmdRichiama.Caption = "OK"
txtData.Text = NonNull(rs("Data"), "")
txtDataU.Text = NonNull(rs("DataU"), "")
txtCognome.Text = NonNull(rs("Cognome"), "")
txtNome.Text = NonNull(rs("Nome"), "")
txtDitta.Text = NonNull(rs("Ditta"), "")
txtTipo.Text = NonNull(rs("Tipo"), "")
txtNumDoc.Text = NonNull(rs("Numero"), "")
txtPas.Text = NonNull(rs("Pas"), "")
txtOraU.Text = NonNull(rs("OraU"), "")
txtVisitato.Text = NonNull(rs("Visitato"), "")
rs.MoveNext
ElseIf rs.EOF Then
MsgBox "Cognome non trovato", vbOKOnly + vbExclamation, "RICERCA FINITA"
txtCognome1.Text = ""
frRichiama.Visible = False
cmdRichiama.Caption = "Richiama"
Exit Sub
End If
CODE]cn.Open stringa[/CODE]