شكرا على جوابك يا زهرة الاكسس
ووضعت هذا الموضوع في سؤال جديد حتى لا يضيع حقك بالنقاط
جوابك جميل ولكني اردت ان تجعلي عبارة insert into تكتب مرة واحد لجميع صفوف النص
بحيث توضع في for او loop
فهل ذلك بالامكان
المصفوفة
تفضل أخى
استخدم هذا الكود
Dim i As Integer
Dim strSQL As String
For i = 1 To 3
strSQL = ("INSERT INTO tbl1 ([name1] , [age1],[city]) VALUES('" & Me.Controls("a" & i) & "', '" & Me.Controls("b" & i) & "','" & Me.Controls("c" & i) & "')")
CurrentDb.Execute strSQL, dbFailOnError
NextAbo_Yossof كتب:تفضل أخى
استخدم هذا الكود
Dim i As Integer Dim strSQL As String For i = 1 To 3 strSQL = ("INSERT INTO tbl1 ([name1] , [age1],[city]) VALUES('" & Me.Controls("a" & i) & "', '" & Me.Controls("b" & i) & "','" & Me.Controls("c" & i) & "')") CurrentDb.Execute strSQL, dbFailOnError Next
شكرا وجزاك الله بكل خير
هو المطلوب