اخواني السلام عليكم لدي الكود التالي :
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase("V:\hpcodes\codesnew.mdb")
sql = "select * from texpenss"
Set rs = db.OpenRecordset(sql)
Me.child.Form.RecordSource = sql
الكود اعلاه هو للقراءة من قاعدة بيانات خارجية واظهار النتائج في النموذج الفرعي الحالي
يعطي خطا بالكود كيف ان يتم ذلك
ارجو ان يكون طلي واضح
مع الاحترام
اليك الكود الصحيح
هذا مثال على اسناد قيمة ريكوردسيت الى نموذج
Dim rst As Recordset, dbs As Database, sql As String
Set dbs = CurrentDb
sql = "select * from st1"
Set rst = dbs.OpenRecordset(sql)
Set Me.Recordset = rst
Me.Refresh
هناك طريقة افضل اذا زبطت معاك
ممكن توفر و تلغي المتغير rst
و تلغي ايضا المتغير sql
هكذا مباشرة
set me.recordset=dbs.openrecordset("select * from st1")
تفضل
كما قلت لك نفس الجمل
بس انا اعتبرت ان القاعدتين بنفس المكان
اذا اردت تحديد مكان ثابت للقاعدة الثانية / استبدل الجملة
Application.CurrentProject.Path
بمسار القاعدة الثانية
ارفقت لك القاعدة التى تم فيها التعديل فقط dbmain
بارك الله فيك اخي tbazh وجزاك كل خير
كلشي تمام التمام
شكلي بقيت ناسي اعمل اسناد set me. للكود الي اعطيتني اياه من قبل
مع الاحترام
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…