كيف يمكن ربط جدول عن طريق الكود

الكود كالتالي

نقوم اولا بتصميم الجداول مثلا بالاكسس

ثانيا تكون القاعدة محفوظة في مسار البرنامج

لاننا راح نستخدم الكائن الوهمي APP والخاصية PATH الي وظيفتها تتبع مسار القاعدة

في نافذة الاكواد وفي الحدث التحميل نقوم بفتح قاعدة البيانات

private sub form_load()

data1.databasename=app.path & '\اسم القاعدة.MDB"

END SUB

بعد فتح قاعدة البيانات

تبقى لنا اجراء الحفظ

الي من خلالة راح نحدد الجدل

وهو كاالتالي

مثلا معانا زر اسمة (حفظ)

في حدث النقر على الزر نكتب الكود التالي

private sub command1_click()

data1.recordsource="select * from اسم الجدول  where اسم الحقل ='"+trim(اسم حقل الادخال الي راح تحفظ بدلالتة وهو مثلا حقل الاسم او الرقم) +"'"
data1.refrech
with data1.recordset
if .recordcount=0 then
.addnew
else
.edit
end if
.update
end with

end sub

هذي العمليات الرئيسية وهي فتح القاعدة مع الاستعلام عن السجلات في الجدول المحدد والحفظ في القاعدة الموجودة في مسار القاعدة

واذا صعبت عليك اسئل ولا تتردد

اخوك alameeeer

السلام عليكم

اتمنى ان يكون هذا المثال هو ما تطلب

[ Set db = DBEngine(0).OpenDatabase(App.Path & "\data1.mdb")

Set blns = db.OpenRecordset("select * from balance")

Set tran = db.OpenRecordset("select * from transact")

Set Data1.Recordset = blns

Set Data2.Recordset = tran

]

بعد هذه التعريفات يمكن استخدام

Text1.text= blns.Fields("ACCNAM").Value

سبحان الله وبحمده سبحان الله العظيم

أنا أشكركم جميعا على الاهتمام وسأقوم باختبار الأكواد التي بعثتم بها وشكرا مرة أخرى :)