كيف يمكن تخزين نفس المعلومات المدخلة في اكثر من جدول 000 مثال مرفق

طيب يا كريم

الحل جداً سهل

أنت وضعت أداة ربط Data1 وجعلتها مرتبطة مع الجدول الأول

بنفس الطريقة ضع أداة ثانية Data2 واربطها بالجدول الثاني

وأعط الحقول للجدول الثاني ما تحتاجه من قيم

اخي العزيز Person تحية معطرة

بارك الله فيك حقا طريقة سهلة جدا

ولك ولكل الاعضاء الاحترام والتقدير

وضع اداتين DATA حل ليس عملي

الافضل استخدام جملة SQL للالحاق بالجدول

وصيغتها INSERT INTO

صديقي العزيز Serious اهلا وسهلا بك

وضع اداتين DATA حل ليس عملي 000 كلام صحيح 100% ولكن ما هي جملة SQL المستخدمة في هذة الحالة

لك كل الشكر والعرفان

نعم صدقت وأنا أوافقك / أعتقد أن المشكلة لو كنت ستستخدم أكثر من أداة ربط

والبرنامج كبير بحيث سيتكرر الربط في أكثر من فورم

أما أن يكون هذا مع فورم واحد فقط / فهي ليست بالمشكلة الكبيرة

وعلى كل حال / الحلول البرمجية الذكية مطلوبة حتى لو لم تكن المشكلة كبيرة

اخي الفاضل يمكن من ذلك من خلال الكود الاتي

Dim DB As Database

Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF

	If Data1.Recordset!NO = Text1.Text Then
		MsgBox ("الرقم موجود من سابق")
		Exit Sub
	End If
	Data1.Recordset.MoveNext

Loop



Set DB = OpenDatabase("INDEX1.mdb")

   DB.Execute "INSERT INTO MMMM  values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"
   DB.Execute "INSERT INTO AAAA  values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "')"


MsgBox (" تم الحفظ بنجاح")

تحياتي

جهاد العريقي

كفيت ووفيت اخ جهاد

واذا اردت تحديد حقول معينه لتلحق بها

تتبع اسم الجدول بقوسين تضع بينهما اسماء الحقول وبين كل حقل واخر فاصله

وسيتم الالحاق على نفس الترتيب اللي تختاره

DB.Execute "INSERT INTO MMMM (date,num) "&" values ('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text

أعتقد انك استخدمت DAO وهذا لن يعمل مع نسخ Access الجديدة و يفضل استخدام ADO