Kod:
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
With rstkayit
.Find "[MüsteriNo]=" & Me.KayitNo
If Not rstkayit.EOF Then
.Fields("MakbuzNo") = Me.MakbuzNo
.Update
End If
End With
strSQL = "SELECT * FROM SonNumara "
Set rsxkayit = New ADODB.Recordset
rsxkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rsxkayit
.AddNew
.Fields("SonMakbuzNo") = Me.MakbuzNo
.Update
End With
End Sub