גישה דוגמאות

ישנן מספר דרכים להיכנס רשומה, ו הנפוצה ביותר היא לעבור בצורה קשורים לטבלה. דרך נוספת לעשות זאת היא באמצעות שדות שאינם קשורים, כלומר באמצעות טופס עם שדות שאינם קשורים עצמאית לשולחן. אל
להזין את הנתונים בהם אנו משתמשים "רשומות", כלומר על ידי קוד, אשר במקרה של דוגמה זו הוא כדלקמן:

Db דים כמו מסד נתונים
RS דים כפי Recordset

אם MsgBox ("אתה רוצה לכתוב?" VbYesNoCancel, "אפשרויות") = vbYes אחר
"על ידי לחיצה נשאל אם לשמור את השיא או לא, ואם כן קוד ממשיך עד סוף
סט db = CurrentDb ()
סט RS = db.OpenRecordset ("נתונים", dbOpenTable)
"פתח את הטבלה להכניס את הנתונים להירשם

rs.AddNew
RS ("שם") = אותי! INome
RS ("כתובת") = אותי! Imorada
RS ("גיל") = אותי! Iidade
"rs.Update שולח את הנתונים לטבלה
"נקה את הנתונים rs.Close וסוגר את הרשומות
הגדר RS = שום דבר
הגדר db = שום דבר

Me.INome = null 'מנקה את השדות בצורה
Me.Imorada = null
Me.Iidade = null
MsgBox "שיא הציל", vbInformation, "בוצע" וידוא הצג "הודעה
"Me.INome.SetFocus העבר את הסמן לשדה הראשון
יציאה משנה: אחר
סוף אם

הורדה: מקום עצמאי