وصول أمثلة

هناك عدة طرق للدخول رقما قياسيا، والأكثر شيوعا هو من خلال الحصول على نموذج منضم إلى جدول. طريقة أخرى للقيام بذلك هي من خلال مجالات لا علاقة لها، أي باستخدام نموذج مع حقول مستقلة لا علاقة لها الى طاولة المفاوضات. إلى
إدخال البيانات نستخدم "السجلات"، أي من خلال هذا الرمز، التي كانت في حالة من هذا المثال هو كما يلي:

خافت DB وقاعدة البيانات
خافت التمرير والسجلات

إذا MsgBox ("هل تريد أن تكتب؟" VbYesNoCancel، "خيارات") = ثم vbYes
"بالضغط على وتساءل عما إذا كان لحفظ السجل أم لا، وإذا كان الأمر كذلك رمز يستمر حتى نهاية
مجموعة ديسيبل = CurrentDb ()
مجموعة RS = db.OpenRecordset ("البيانات"، dbOpenTable)
"افتح الجدول لادخال البيانات تسجيل

rs.AddNew
RS ("اسم") = لي! INome
RS ("عنوان") = لي! Imorada
RS ("سن") = لي! Iidade
'rs.Update يرسل البيانات إلى الجدول
'rs.Close واضح البيانات وإغلاق السجلات
تعيين RS = لا شيء
ضبط ديسيبل = لا شيء

Me.INome = فارغة 'مسح الحقول في شكل
Me.Imorada = فارغة
Me.Iidade = فارغة
MsgBox "السجل المحفوظة"، vbInformation، "تم" رسالة "تأكيد العرض
'Me.INome.SetFocus نقل المؤشر إلى الحقل الأول
الفرعية الخروج: آخر
نهاية إذا

التحميل: مكان المستقلة