- Katılım
- 8 Mart 2007
- Mesajlar
- 582
- Excel Vers. ve Dili
- excel 2000 Türkçe
- Altın Üyelik Bitiş Tarihi
- 29-04-2021
Merhaba Arkadaşlar
Eklediğim Kodlarla, Siparişler Formunda Üst Form ve Alt Formda satışla ilgili verileri giriyorum Kaydet butonuna tıkladığım zaman Kaydetmek istiyormusunuz uyarısı geliyor. Hayırı tıkladığımız zaman Alt Formdaki verileri Kayıt ediyor. Hayır dediğimiz zaman Hiç bir veriyi kaydetmemesi lazım ekteki kodlara bakabilirmisiniz.
Eklediğim Kodlarla, Siparişler Formunda Üst Form ve Alt Formda satışla ilgili verileri giriyorum Kaydet butonuna tıkladığım zaman Kaydetmek istiyormusunuz uyarısı geliyor. Hayırı tıkladığımız zaman Alt Formdaki verileri Kayıt ediyor. Hayır dediğimiz zaman Hiç bir veriyi kaydetmemesi lazım ekteki kodlara bakabilirmisiniz.
Kod:
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