การป้อนข้อมูลระเบียนผ่านอิสระ

โพสต์เมื่อพุธ 20, 2008 - 13:22 | โดย admin |

มีหลายวิธีที่จะเข้าสู่การบันทึกเป็นและที่พบมากที่สุดคือการได้รับผ่านทางแบบฟอร์มผูกไว้กับตาราง วิธีการทำเช่นนี้ก็คือผ่านทางเขตข้อมูลที่ไม่เกี่ยวข้องเช่นการใช้แบบฟอร์มที่มีเขตข้อมูลที่เป็นอิสระไม่เกี่ยวข้องกับตาราง ไปยัง
ป้อนข้อมูลที่เราใช้ 'ระเบียน' คือรหัสซึ่งในกรณีของตัวอย่างนี้จะเป็นดังนี้:

DB มซำเป็นฐานข้อมูล
มซำ RS เป็น Recordset

ถ้า MsgBox ("คุณต้องการที่จะเขียน?" VbYesNoCancel, "ตัวเลือก") = vbYes แล้ว
"โดยการกดที่ถามว่าจะบันทึกระเบียนหรือไม่ถ้าดังนั้นรหัสต่อไปจนกว่าจะสิ้นสุด
ชุด db = CurrentDb ()
ชุด rs = db.OpenRecordset ("ข้อมูล", dbOpenTable)
'เปิดตารางเพื่อแทรกข้อมูลลงทะเบียน

rs.AddNew
RS ("ชื่อ") = Me! INome
RS ("ที่อยู่") = Me! Imorada
RS ("อายุ") = Me! Iidade
rs.Update 'ส่งข้อมูลไปยังตาราง
rs.Close 'ล้างข้อมูลและปิดระเบียน
ตั้งอาร์เอสไม่มีอะไร =
ตั้งฐานข้อมูลไม่มีอะไร =

Me.INome = Null 'ล้างเขตข้อมูลในรูปแบบ
Me.Imorada = Null
Me.Iidade = Null
MsgBox "บันทึกบันทึก", vbInformation, "เสร็จ" ข้อความยืนยัน 'จอแสดงผล
Me.INome.SetFocus 'เลื่อนเคอร์เซอร์ไปยังเขตข้อมูลแรก
Else: Sub Exit
End If