السلام عليكم ارجو افادتى
احتاج صيغة كود لتكرار عملية حفظ فى نفس الجدول بضغطة زر واحدة رجاء التعديل على الكود التالى :
Dim strSQL1 As String
strSQL1 = ("INSERT INTO opin ( [flatno] ) VALUES('" & Me.Controls("flatno") & "')")
CurrentDb.Execute strSQL1, dbFailOnError
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim strSQL2 As String
strSQL2 = ("INSERT INTO opin ( [flatno] ) VALUES('" & Me.Controls("flatno") & "')")
CurrentDb.Execute strSQL2, dbFailOnError
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim strSQL3 As String
strSQL3 = ("INSERT INTO opin ( [flatno] ) VALUES('" & Me.Controls("flatno") & "')")
CurrentDb.Execute strSQL3, dbFailOnError
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70