Skip to main content

AccessTr.neT


Kaydet Butonu İle Kayıt Yapmak

Kaydet Butonu İle Kayıt Yapmak

Çözüldü #1
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, , acMenuVer70

.rar Siparis Takip-14.rar (Dosya Boyutu: 262,21 KB | İndirme Sayısı: 5)
Son Düzenleme: 08/01/2023, 19:02, Düzenleyen: ayavuz2233.
Cevapla
#2
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
Cevapla
#3
Ç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.
Son Düzenleme: 09/01/2023, 01:55, Düzenleyen: ayavuz2233.
Cevapla
#4
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.
Cevapla
#5
(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
.rar Celosoft-Siparis Takip-14.rar (Dosya Boyutu: 274,97 KB | İndirme Sayısı: 7)
Cevapla
#6
Çok, çok teşekkürler Hocam Ellerinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task