Alıntı:...Kaydet butonunda tıkladığımız zaman da Alt formdaki satış ile ilgili metin kutuları boş ise ayni şekilde Fatura boş bilgileri kontrol ediniz. uyarısını verirse çok güzel olur...
bahsettiğiniz talebinize yönelik olarak;
KAYDET (Komut30 adlı) butonun içeriğini aşağıdaki kod ifadeleri ile değiştirdiğiniz takdirde,talebinizi elde etmiş olursunuz.
Kod:
'ATOZ:
'KAYDETME İÇİN MESAJ BİLDİRİMİ
If MsgBox("Faturayı KAYDETMEK istiyor musunuz?", vbYesNo, "KAYDETME 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.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.Requery