31/01/2016, 02:38
kenan827
Merhaba Arkadaşlar Aşağıdaki kodlarla Kaydet ve yazdır işlemini yapıyorum.
Alt Formda bulunan aşağıdaki metin kutularım var. Bu metin kutularından bir tanesi boş olduğu zaman uyarı versin kayıt etme ve yazdırmasın. Aşağıdaki kodlara uyarı kodunu eklerseniz sevinirim. İyi akşamlar.
Metin Kutuların adları:
Toplam
KdvSekiz
KdvOnSekiz
Yekun
Kaydet Kodu:
Yazdır Kodu:
Alt Formda bulunan aşağıdaki metin kutularım var. Bu metin kutularından bir tanesi boş olduğu zaman uyarı versin kayıt etme ve yazdırmasın. Aşağıdaki kodlara uyarı kodunu eklerseniz sevinirim. İyi akşamlar.
Metin Kutuların adları:
Toplam
KdvSekiz
KdvOnSekiz
Yekun
Kaydet Kodu:
Kod:
Private Sub Komut30_Click()
If MsgBox("Faturayı KAYDETMEK istiyor musunuz?", vbYesNo, "KAYDETME UYARISI") = vbYes Then
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
MsgBox ("Lütfen FATURA işlemi için kayıt seçiniz"), vbCritical, "KAYIT SEÇME UYARISI"
Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If
Else
Me.Undo
MsgBox ("Kaydetme işlemi iptal edilmiştir"), vbCritical, "KAYDETME İPTAL BİLGİLENDİRMESİ"
Exit Sub
End If
Me.Refresh
End Sub
Yazdır Kodu:
Kod:
Private Sub Komut33_Click()
If Me.FaturaID = "" Or IsNull(Me.FaturaID) Then
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
End Sub