Sayın sledgeab

verdiğiniz kodları

Private Sub Report_Close()
DoCmd.OpenQuery "Makbuz Ekle", acViewNormal, acAdd
DoCmd.OpenQuery "Ödeme Sil", acViewNormal, acEdit
DoCmd.Close acQuery, "Makbuz Ekle"

strSQL = "SELECT * FROM Makbuzlar "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

artma = 0
Do While Not rstkayit.EOF
With rstkayit
.Find "[MakbuzNo]= null"
If Not rstkayit.EOF Then
artma = artma + 1
FatNo = SonMakbuzNo + artma
.Fields("MakbuzNo") = FatNo
.Update
End If
End With
Loop

strSQL = "SELECT * FROM SonNumara "
Set rsxkayit = New ADODB.Recordset
rsxkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rsxkayit
.Fields("SonMakbuzNo") = FatNo
.Update

End With

End Sub

Şeklinde değiştirerek tam isteğime ulaştım. Ancak bu kezde sorgu kullanıcı tarafından iptal edilirse hata mesajı vererek çalışmayı kesiyor. Bunu engellemek için ne yapabilirim? Saygılar.