mr.thrwat قام بنشر نوفمبر 4, 2018 قام بنشر نوفمبر 4, 2018 السلام عليكم ارجو افادتى احتاج صيغة كود لتكرار عملية حفظ فى نفس الجدول بضغطة زر واحدة رجاء التعديل على الكود التالى : 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.