[devcon]

Τάσο καλημέρα,

Σε ευχαριστώ για την απάντηση σου.

Ερώτημα:

Τι εννοείς με «κοινή λειτουργική μονάδα»;
Βάζοντας τον κώδικα μέσα στην φόρμα ‘Orders’ μου βγάζει error
“The expression you entered has a function name that MS Access can’t find.
Arguments: SetSearchFieldFocus() – error 2950.

Το πεδίο «Search ID Vessel» είναι unbound με όνομα «txtSearch», όπως φαίνεται και από την κώδικα στο πρώτο μήνυμα μου.

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

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