If IsNull(PERSONEL) = True Then
MsgBox "LÜTFEN SATIŞI YAPAN MÜŞTERİ TEMSİLCİSİNİ GİRİNİZ."
Exit Sub
End If
If IsNull(FIRMA) = True Then
MsgBox "LÜTFEN FİRMA ADINI GİRİNİZ."
Exit Sub
End If
If IsNull(TARIHI) = True Then
MsgBox "LÜTFEN SATIŞ TARİHİNİ GİRİNİZ."
Exit Sub
End If
If IsNull(Forms![Siparisler]![SiparislerAltForm].Form![URUN_ADI]) Or Forms![Siparisler]![SiparislerAltForm].Form![ADEDI] = "" Or IsNull(Forms![Siparisler]![SiparislerAltForm].Form![YEKUN]) Or Forms![Siparisler]![SiparislerAltForm].Form![KDV_DUR] = "" Then
MsgBox "SATIŞ İLE İLGİLİ ELKSİK VERERİ GİRİLMİŞ LÜTFEN EKSİK GİRİLRN VERİYİ TAMAMLAYINIZ."
Exit Sub
End If
Dim C As Integer
C = MsgBox("Dikkat KAYIT ETMEK İSTİYORMUSUNUZ.... ?", vbYesNo + vbQuestion, "Celosoft")
If C = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Recalc
End If
Recalc
Kaydet Butonu İle Kayıt Yapmak
Bu Konudaki Yorumlar |
Kaydet Butonu İle Kayıt Yapmak - Yazar: ayavuz2233 - 08/01/2023, 12:14
RE: Kaydet Butonu İle Kayıt Yapmak - Yazar: C*e*l*o*y*c*e - 08/01/2023, 21:06
RE: Kaydet Butonu İle Kayıt Yapmak - Yazar: ayavuz2233 - 09/01/2023, 01:51
RE: Kaydet Butonu İle Kayıt Yapmak - Yazar: ayavuz2233 - 16/01/2023, 00:47
RE: Kaydet Butonu İle Kayıt Yapmak - Yazar: C*e*l*o*y*c*e - 16/01/2023, 13:50
RE: Kaydet Butonu İle Kayıt Yapmak - Yazar: ayavuz2233 - 16/01/2023, 23:03
|
Konuyu Okuyanlar: 1 Ziyaretçi