مطلوب صيغة كود لحفظ أكثر من سجل

[mr.thrwat]

السلام عليكم ارجو افادتى

احتاج صيغة كود لتكرار عملية حفظ فى نفس الجدول بضغطة زر واحدة رجاء التعديل على الكود التالى :

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