[Dafnh0106]

Καλησπερα στο forum :)

Τασο συγγνωμη που σε ζαλιζω αλλα μου χτυπαει στο :
rs.FindFirst "[ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ] = " & Str(Nz(Me!cboProtokolo, 0))

υποθετω οτι χτυπαει επειδη ο αριθμος πρωτοκολλου ειναι text

Private Sub cboProtokolo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ] = " & StrcboProtokolo
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub cboProtokolo_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
Me.cboProtokolo.Undo
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ = NewData
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ = Null
Me.ΑΡΙΘΜΟΣ ΠΡΩΤΟΚΟΛΛΟΥ.SetFocus
End Sub




Eυχαριστώ

Δαφνη