[ Ερωτήματα ] Δημιουργία συντόμευση (shortcut)

[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

[ασχετος]

Θανάση καλό σου βράδυ,

Μπορείς να γίνεις λίγο πιο σαφής.

Πότε να πηγαίνει στο πεδίο που θέλεις και από πού;

[devcon]

Καλημέρα Κώστα,

Ευχαριστώ για το ενδιαφέρον που δείχνεις για την επίλυση στου ερωτήματός μου.

Όπως φαίνεται και από την δεύτερη φωτογραφία που είναι η κεντρική φόρμα όταν θέλω να βρω το “ID Vessel” πηγαίνω με το ποντίκι στο πεδίο “Search ID Vessel” πληκτρολογώ το νούμερο και μου εμφανίζει την 3η φωτογραφία.

Το ερώτημα είναι αντί να χρησιμοποιώ το ποντίκι για να μεταβώ στο πεδίο “Search ID Vessel” να έχω την δυνατότητα με μία συντόμευση του πληκτρολογίου ο κέρσορας να πηγαίνει κατευθείαν στο “Search ID Vessel”.

[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 θα εστιάζεται το πεδίο αναζήτησης.

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

Τάσος

[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

[Tasos]

Καλησπέρα Θανάση!

Βάλε τον κώδικα σε ένα κοινό Module. Όχι στο Module της φόρμας γιατί δεν μπορεί να βρεθεί από την μακροεντολή (αυτό σου λέει και το μήνυμα που παίρνεις από την Access).

Τάσος

[devcon]

Αγαπητέ Τάσο,

Δεν ξέρω πως να σε ευχαριστήσω.
Δουλεύει άψογα.

Σου εύχοαμι ένα καλό Σαββατοκύριακο.

Θανάσης