Εκκίνηση της Microsoft Access , κάντε κλικ στο " Εργαλεία βάσης δεδομένων " και κάντε κλικ στο " Visual Basic " για να ανοίξετε το παράθυρο επεξεργασίας VBA . Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να προσθέσετε μια νέα λειτουργική μονάδα κώδικα 2
Δημιουργήστε ένα νέο υποδιαδικασία με την προσθήκη του παρακάτω κώδικα : .
Private Sub useVariablesInstr ( )
Η 3
Δημιουργία τριών νέων " String " μεταβλητές :
Dim tstStr Όπως String Dim
searchStr Όπως String Dim
indexNum As Integer
Η 4
Εκχώρηση τιμές συμβολοσειράς με τις μεταβλητές σας :
tstStr = " . Πρόκειται για μια σειρά VBA στην Access "
searchStr = " string"
5
Χρησιμοποιήστε τη λειτουργία " InStr " για τον προσδιορισμό του δείκτη , χρησιμοποιώντας τόσο το « tstStr " και " searchStr " μεταβλητές :
indexNum = InStr ( tstStr , searchStr )
Debug . Εκτύπωση indexNum
Η 6
Τύπος " End Sub " για να τερματίσετε τη διαδικασία και πατήστε το πλήκτρο " Ctrl " και " G " για να ανοίξετε το παράθυρο " Άμεση " . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τον κωδικό σας και να δείτε τα αποτελέσματα .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα