مطلوب تصميم وحدة نمطية تستدعى قبل تنفيذ الأستعلام

هذا الكود يؤدى ذلك لكن عدل اسماء الجداول و الحقول

On Error GoTo Err_Click

Dim rs, rst As DAO.Recordset
Dim i, c As Integer
Set rst = Me.sub_entry.Form.RecordsetClone
c = rst.RecordCount

For i = 1 To c
Set rs = CurrentDb.OpenRecordset("SELECT [2].* FROM [2] " & _
"WHERE ((([2].accunt_id)=" & rst![accunt_id] & _
") AND (([2].accunt_name)='" & rst![accunt_name] & _
"') AND (([2].Tdate)=#" & rst![Tdate] & _
"#) AND (([2].debt)=" & rst![debt] & _
") AND (([2].credit)=" & rst![credit] & _
") AND (([2].entryn)=" & rst![entryn] & _
") AND (([2].entryexpln)='" & rst![entryexpln] & "'));")

If rs.RecordCount = 0 Then
CurrentDb.Execute ("INSERT INTO [2] ( accunt_id, accunt_name, Tdate, debt, credit, entryn, entryexpln ) " & _
"Values ( " & rst!accunt_id & ", '" & rst!accunt_name & "', #" & rst!Tdate & "#, " & rst!debt & ", " & rst!credit & ", " & rst!entryn & ", '" & rst!entryexpln & "' );")
MsgBox ""
End If
rst.MoveNext
Next

Exit_Click:
    rs.Close
    rst.Close
    Set rs = Nothing
    Set rst = Nothing
    Exit Sub

Err_Click:
    MsgBox Err.Description
    Resume Exit_Click

هل ممكن وضع مثال عن كيفية استخدام الكود المذكور