+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydet Butonu İle Kayıt Yapmak (/konu-kaydet-butonu-ile-kayit-yapmak--90293.html)
Kaydet Butonu İle Kayıt Yapmak - ayavuz2233 - 08/01/2023
Merhaba
Ekdeki uygulamada Siparisler Formunda ki Kaydet butonuna eklediğim kodlarla kayıt yapmak istiyorum. Aşağıdaki kodu eklememe rağmen Kayıt etmek istiyormusunuz uyarısı vermeden Alt Formdaki verileri Kayıt ediyor. Üs Formdaki verileri kayıt etmiyor. Nerede hata yaptığıma bakabilirmisiniz.
Benim istediğim Kaydetmek istiyormusunuz evet hayır uyarısınını versin ve Üst form ve Alt Formdaki verileri kayıt etsin.
Kod:
If MsgBox("KAYIT ETMEK İSTİYORMUSUNUZ.", vbYesNo, "Komut1") = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70RE: Kaydet Butonu İle Kayıt Yapmak - C*e*l*o*y*c*e - 08/01/2023
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
RE: Kaydet Butonu İle Kayıt Yapmak - ayavuz2233 - 09/01/2023
Çok Teşekkürler Hocam ellerinize sağlık.
Hocam Kaydet Butonuna tıkladığımızda Kayıt etmek istiyormusunuz uyarısına Hayır dediğimiz zaman. Alt Forma yine kayıt yapıyor.
RE: Kaydet Butonu İle Kayıt Yapmak - ayavuz2233 - 16/01/2023
Celoyce Hocamın eklediği kodu uygulama dosyama ekledim. Kaydet Butonuna tıkladığımızda Kayıt etmek istiyormusunuz uyarısına Hayır dememe rağmen, Alt Forma yine kayıt yapıyor.
RE: Kaydet Butonu İle Kayıt Yapmak - C*e*l*o*y*c*e - 16/01/2023
(16/01/2023, 00:47)ayavuz2233 yazdı: Celoyce Hocamın eklediği kodu uygulama dosyama ekledim. Kaydet Butonuna tıkladığımızda Kayıt etmek istiyormusunuz uyarısına Hayır dememe rağmen, Alt Forma yine kayıt yapıyor.
merhaba
tekrar baktıgımda tablolar arası ilişkilerde sorun vardı,onu farkettim,düzenledim,aşagıdaki örnek çalışıyor,deneyin Lütfen
RE: Kaydet Butonu İle Kayıt Yapmak - ayavuz2233 - 16/01/2023
Çok, çok teşekkürler Hocam Ellerinize sağlık.