[Tasos]

Καλημέρα!
Θανάση, αρχικά θα πρέπει να δημιουργήσεις μια Δευτερεύουσα Mακροεντολή (Submacro) που θα αποθηκεύσεις με το όνομα AutoKeys (βλ. εικόνα)



Στο όνομα της μακροεντολής πληκτρολόγησε {F3} ή κάποιον άλλο συνδυασμό πλήκτρων.

Κατόπιν από την πτυσσόμενη λίστα επίλεξε την εντολή: ΕκτέλεσηΚώδικα (RunCode)
και στο πεδίο Όνομα συνάρτησης (Function Name) πέρασε το όνομα SetSearchFieldFocus() .

Πέρασε την παρακάτω συνάρτηση σε μια κοινή λειτουργική μονάδα (αφού προσαρμόσεις τα ονόματα φόρμας και πεδίου):

Public Function SetSearchFieldFocus()
    Dim txtBox As Access.TextBox
    On Error Resume Next
    Forms!frmScan.SetFocus
    Set txtBox = Forms![Orders]![Search ID Vessel]
    txtBox.SetFocus
    If Len(txtBox & "") Then
        txtBox.SelStart = 0
        txtBox.SelLength = Len(txtBox)
    End If
End Function

Υποθέτω ότι η φόρμα στην οποία περιέχεται το πεδίο αναζήτησης έχει το όνομα Orders και είναι η κύρια φόρμα.

Αν η υπόθεση μου είναι σωστή τότε με το πάτημα του πλήκτρου F3 θα εστιάζεται το πεδίο αναζήτησης.

Καλή συνέχεια!

Τάσος