1 Κάντε κλικ στο κουμπί των Windows " Start" και επιλέξτε " Όλα τα προγράμματα ". Κάντε κλικ στο " Microsoft Office " και στη συνέχεια κάντε κλικ στο " Microsoft Access". Ανοίγει το λογισμικό βάσης δεδομένων . 2
Κάντε κλικ στο " Έντυπα " του μενού . Κάντε δεξί κλικ στη φόρμα που θέλετε να επεξεργαστείτε και επιλέξτε " Προβολή σχεδίασης ". Η φόρμα ανοίγει σε ένα σχεδιαστή Access. Κάντε διπλό κλικ στο στοιχείο της φόρμας που θέλετε να επεξεργαστείτε . Κάντε διπλό κλικ στο στοιχείο ανοίγει τον επεξεργαστή κώδικα VBA όπου μπορείτε να πληκτρολογήσετε string συνάρτηση σας .
Εικόνων 3
Δημιουργήστε τη μεταβλητή να περιέχει το χαρακτήρα που εξαγάγετε . Πληκτρολογήστε τον ακόλουθο κώδικα για να δημιουργήσετε τη μεταβλητή :
Dim χαρακτήρα As String
4
Απόσπασμα της χαρακτήρα από τη σειρά και το εκχωρούμε στις μεταβλητές που δημιουργήσατε . Πληκτρολογήστε τον ακόλουθο κώδικα στο πρόγραμμα επεξεργασίας VBA :
χαρακτήρα = Mid ( Συμβολοσειρά , 3 , 1 )
Αντικαταστήστε το " MyString " με τη συμβολοσειρά που περιέχει το χαρακτήρα . Η επόμενη παράμετρος είναι η θέση του χαρακτήρα που θέλετε να εξαγάγετε . Σε αυτό το παράδειγμα , ο τρίτος χαρακτήρας εξάγεται και αποδίδεται στην μεταβλητή " χαρακτήρα . "
5
Κάντε κλικ στο κουμπί "Αποθήκευση" στην φόρμα της Access . Κάντε κλικ στο " Run" για να ανοίξετε τη φόρμα στο compiler πρόσβαση και να προβάλετε τις αλλαγές στον κώδικα VBA .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα