Private Sub cmdPrintReceipt_Click()
Dim response As VbMsgBoxResult
response = MsgBox("Print Customer Receipt?", vbYesNo + vbDefaultButton2)
If response = vbYes Then
DoCmd.OpenReport "rptPrintCustomerReceipt", , , "[ContractNo] = " & Me.ContractNo
End If
End Sub
Hi Karim
Your tables have some design issues.
You should not use Lookup Fields in table. Check Google for "The Evils of Lookup fields in Access Tables"
You have not set referential integrity between tables.
You should not set the Format of your Autonumbers to 000
You should not set the record...