Kaydet Butonu İle Kayıt Yapmak

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.

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

Ç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.

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.

(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

Çok, çok teşekkürler Hocam Ellerinize sağlık.