[devcon]

Καλησπέρα,

Θα ήθελα την βοήθεια σας.

Χρησιμοποιώ τον ακόλουθο κώδικα και θα ήθελα να δημιουργήσω μία συντόμευση (shortcut) π.χ. «Ctrl+2» ώστε ο κέρσορας να πηγαίνει κατευθείαν στο πεδίου «search» (συνημμένη φωτογραφία).

Ευχαριστώ εκ των προτέρων για την βοήθεια.

Private Sub txtSearch_AfterUpdate()

'Find record based on contents of txtSearch.

  Dim strSearch As String
  On Error GoTo errHandler
  strSearch = "[Vessel ID] = " & Me!txtSearch.Value
  Me.Filter = strSearch
  Me.FilterOn = True
  Exit Sub

errHandler:
  MsgBox "Error No: " & Err.Number & "; Description: " & _
   Err.Description

End Sub