Bu yazdırma konusuna bağlı olarak sizden çok küçük bir isteğim olacak daha önce sizden yazdır butonuna ("Faturayı YAZDIRMAK istiyor musunuz?) uyarısını eklemenizi istemiştim. sadece bu uyarıyı koddan kaldırırmısınız. Yine yazdır butonu ile kayıt yapsın eksik bilgi varsa işlem yapmasın. Yani diğer uyarılar kalsın.
Kod:
Private Sub Komut33_Click()
'ATOZ:
'KAYDETME İÇİN MESAJ BİLDİRİMİ
SetProp "AllowShortcutMenus", dbBoolean, False 'Kısayol menusu aktifleştirme
If MsgBox("Faturayı YAZDIRMAK istiyor musunuz?", vbYesNo, "YAZDIRMA UYARISI") = vbYes Then
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
'EĞER KAYIT BOŞSA,KAYIT SEÇİMİNİN YAPILMASI İÇİN
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Exit Sub
Else
DoCmd.OpenReport "FaturaDokum", acPreview
End If
Else
Me.Undo
MsgBox ("Yazdırma işlemi iptal edilmiştir"), vbCritical, "YAZDIRMA İPTAL BİLGİLENDİRMESİ"
Exit Sub
End If
End Sub