تفضل استخدم هذا الكود مع اضافة
- موقع قاعدة البيانات
- كلمة المرور
- اسم الجدول
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDbFile, strPassword, PDb As String
'================ معلومات قاعدة البيانات البعيدة ========================
strDbFile = CurrentProject.Path & "\MyData1.mdb"
strPassword = "123"
'=============================================================
Set db = DBEngine.OpenDatabase(Name:=strDbFile, Options:=False, ReadOnly:=False, Connect:=";PWD=" & strPassword)
Set rs = db.OpenRecordset("table_name")
rs.AddNew
rs.Fields(0).Value = [TextBox1]
rs.Fields("column_name").Value = [TextBox2]
rs.Update
rs.Close
Set rs = Nothing
تفضل التعديل
يمكن استخدام نفس الطريقة في حال تحديث البيانات
و لكن هنالك فكرة !!!!!!!!
ان تقوم بإنشاء جدول ممثال في حال التحديث تذهب البيانت المحدثه للجداول الجديد
بدورك تشييك و تتأكد من صحة البيانات و اذا ما فيه اخطاء يصير ترحل التحديث لجميع الجداول الأساسية
بذا تضمن ان البيانات في جميع الجداول مدخلة بشكل سليم
New folder.zip