ciao raga
mi date una mano?
dal form1 dovrei avviare una funzione che si trova sul form2.
la funzione sul secondo form è
Private Sub myTrova()
With RecRS2
bkmTemporaneo = .Bookmark
.MoveFirst
.Find (MyCamp & " = " & "'" & MyTexCas & "'")
If .EOF Then 'Se non è stato trovato si torna al record precedente
MsgBox "Record non trovato!", vbExclamation, "Errore ricerca"
.Bookmark = bkmTemporaneo
Else
Unload Cercacassa
End If
End With
End Sub
Rispondi quotando
