Veri Kayıt Etme Uyarısı

Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
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.

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
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,438
Excel Vers. ve Dili
365 Tr
Kodların ve dosyanın tamamnı göremeden yorum yapıyorum.
Yorumları kodun içinde belirttim.
C++:
If C = vbYes Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else
    'başına tırnak koyduğum satırlar eğer dediğiniz işlemi yapıyorsa
    'böyle iptal edebilrisiniz'
       'DoCmd.SetWarnings False
       'DoCmd.RunCommand acCmdUndo
      'DoCmd.SetWarnings True
    Exit Sub
    'Aşağıdaki Recalc bu haliyle zaten Exit Sub dan sonra asla işlem yapmamaktadır
    ' Onu da iptal edebilrisiniz'
       'Recalc
End If
 
Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
Hocam buradan dosyama ulaşabilirsiniz.
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,438
Excel Vers. ve Dili
365 Tr
Bu bir excel dosyası değilse ben yardımcı olamam.
Eğer excel dosyasıysa da erişim izni vermeniz gerekir.
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,089
Excel Vers. ve Dili
2003
Ben bu şekilde kullanıyorum,
Dim MyQ As String
MyQ = MsgBox(" Bu Kaydı silerseniz, Bir daha bu kayıta ulaşamayacaksınız.!" & vbCr & "Yinede Bu kaydı silmek istediğinize eminmisiniz ?", vbYesNo, "AKD.YAZILIM...")
If MyQ = vbYes Then

Set db = CurrentDb()
SQL = "SELECT * FROM Alislar WHERE SiraNo = " & Me.SiraNo & ";"
Set rs = db.OpenRecordset(SQL)
rs.Delete
End If
 
Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
Ömer Faruk Hocam çok teşekkürler Bu bir access dosyasıdır.
Akd Hocam sizin eklediğiniz kodu aşağıdaki koda nasıl ekleyebilirim. Ben eklemeye çalıştım hata verdi.

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
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,089
Excel Vers. ve Dili
2003
bu şekilde deneyin

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 MyQ As String
MyQ = MsgBox(" Dikkat KAYIT ETMEK İSTİYORMUSUNUZ.!" , vbYesNo, "AKD.YAZILIM...")
If MyQ = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Else
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Recalc
End If
 
Son düzenleme:
Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
Hocam Sizin eklediğiniz kodu ekledim. Kaydet Butonuna tıkladığımızda Kayıt etmek istiyormusunuz uyarısına Hayır dediğimiz zaman. Alt Formdaki metin kutularına girdiğimiz verileri yine kayıt ediyor.
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,089
Excel Vers. ve Dili
2003
Else
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
DoCmd.SetWarnings True
Exit Sub
Recalc
bu kısımı tamamen sil öyle dene...
 
Katılım
8 Mart 2007
Mesajlar
582
Excel Vers. ve Dili
excel 2000 Türkçe
Çok Teşekkürler Hocam ellerinize sağlık
 
Üst