Ciao a tutti, non sono un esperto di VB ma qualcosina riesco a farlo.
Ho creato un programmino molto utile al mio lavoro che prevede un collegamento a ad un DB Access tramite VB.
Sono riuscito a cercare un record tramite due criteri in questo modo (entrambi i criteri cercano nella stessa tabella):
Private Sub ButSearch_Click()
Dim Criterio As String
Criterio = "Item LIKE """ & Me.TexItem.Text & """ And SOT = true"
Me.DatDBQS802.Recordset.FindFirst Criterio
If Me.DatDBQS802.Recordset.NoMatch Then
MsgBox "Elemento non trovato"
End If
End Sub
I miei due criteri di ricerca sono "Item" LIKE una stringa scritta in una textbox e "SOT" che nella tabella ha un valore True/False.
Così funziona benissimo.
Non riesco invece a sostituire la stringa SOT con una stringa scritta in una textbox. Nel seguente esempio c'è il codice che non funziona.
Private Sub ButSearch_Click()
Dim Criterio As String
Criterio = "Item LIKE """ & Me.TexItem.Text & """ And me.textConstr.text = true"
Me.DatDBQS802.Recordset.FindFirst Criterio
If Me.DatDBQS802.Recordset.NoMatch Then
MsgBox "Elemento non trovato"
End If
End Sub
Grazie tante a chi riesce ad aiutarmi!!!
Ho creato un programmino molto utile al mio lavoro che prevede un collegamento a ad un DB Access tramite VB.
Sono riuscito a cercare un record tramite due criteri in questo modo (entrambi i criteri cercano nella stessa tabella):
Private Sub ButSearch_Click()
Dim Criterio As String
Criterio = "Item LIKE """ & Me.TexItem.Text & """ And SOT = true"
Me.DatDBQS802.Recordset.FindFirst Criterio
If Me.DatDBQS802.Recordset.NoMatch Then
MsgBox "Elemento non trovato"
End If
End Sub
I miei due criteri di ricerca sono "Item" LIKE una stringa scritta in una textbox e "SOT" che nella tabella ha un valore True/False.
Così funziona benissimo.
Non riesco invece a sostituire la stringa SOT con una stringa scritta in una textbox. Nel seguente esempio c'è il codice che non funziona.
Private Sub ButSearch_Click()
Dim Criterio As String
Criterio = "Item LIKE """ & Me.TexItem.Text & """ And me.textConstr.text = true"
Me.DatDBQS802.Recordset.FindFirst Criterio
If Me.DatDBQS802.Recordset.NoMatch Then
MsgBox "Elemento non trovato"
End If
End Sub
Grazie tante a chi riesce ad aiutarmi!!!