جملة insert into او استعلام الالحاق

الاخ الفاضل fahadam عفوا انا لم ادخل هنا لاجيب على سؤالك ولكن لاطالبك بالاجابه على سؤالى :D

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

تفضل هذه القاعدة

http://mypage.ayna.com/fahadamk/db222.zip

لا اخفي عليك اني فرحت لما رأيت الرد معتقدا انه يصب في السؤال الذي طرحته.

االله يفرجها

أعتقد أنه من الصعب أن يكون الجدول الذي ستلحق به البيانات متغير وذلك لأنه يتطلب توافق نفس الحقول من الجدول الأساسي أي نفس النوع سواء كانت رقم أو نص أو تاريخ ... وهكذا .

أشرف خليل

اخي اشرف مشكور على ردك

الجدول المطلوب الاضافة اليه يحوي نفس الحقول .

السلام عليكم

 For i = 1 To 3
 Dim tablename As String
 If i = 1 Then tablename = "table1"
 If i = 2 Then tablename = "table2"
 If i = 3 Then tablename = "table3"

  DoCmd.RunSQL "INSERT INTO " & tablename & "( ID, NAME ) SELECT 1 AS Expr1, 'fahdam' AS Expr2;"
 Next i

تسلم يدك اخي مصراوي

والله يجزيك الف خير