Μπαίνοντας ένα ρεκόρ πεδία μέσω ανεξάρτητων
Υπάρχουν διάφοροι τρόποι για να εισαγάγετε ένα αρχείο, και το πιο συνηθισμένο είναι να πάρετε μέσα από μια φόρμα που είναι δεσμευμένη σε έναν πίνακα. Ένας άλλος τρόπος να γίνει αυτό είναι μέσω μη συνδεδεμένων πεδίων, δηλαδή χρησιμοποιώντας μια φόρμα με πεδία ανεξάρτητη σχέση με τον πίνακα. Να
εισάγετε τα δεδομένα που χρησιμοποιούν το «εγγραφών», δηλαδή με έναν κωδικό, ο οποίος στην περίπτωση του παραδείγματος αυτού είναι ως εξής:
Dim db ως Βάση Δεδομένων
Dim rs Όπως εγγραφώνΑν MsgBox ("Θα ήθελα να γράψω;" vbYesNoCancel, "Επιλογές") = vbYes συνέχεια
"Πατώντας το ερωτηθείτε αν θέλετε να αποθηκεύσετε το αρχείο ή όχι, εάν ναι ο κώδικας συνεχίζει μέχρι το τέλος
Set db = CurrentDb ()
Set rs = db.OpenRecordset («Δεδομένα», dbOpenTable)
«Ανοίξτε τον πίνακα για να εισάγετε τα δεδομένα που έχουν καταχωρηθείrs.AddNew
rs ("name") = Me! INome
rs ("διεύθυνση") = Me! Imorada
rs ("ηλικία") = Me! Iidade
«rs.Update στέλνει τα δεδομένα στον πίνακα
«Διαγραφή rs.Close τα δεδομένα και κλείνει το σύνολο εγγραφών
Ορισμός rs = Τίποτα
Ορισμός db = ΤίποταMe.INome = Null 'καθαρίζει τα πεδία της φόρμας
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Εγγραφή σωθεί", vbInformation, "Έγινε" Εμφάνιση μηνύματος "επιβεβαίωση
«Me.INome.SetFocus Μετακινήστε το δρομέα στο πρώτο πεδίο
Αλλιώς: Υπο Έξοδος
End If
Download: Τοποθετήστε Ανεξάρτητη
Χωρίς σχόλιο.