(27/12/2022, 12:49)atoykan yazdı: [ -> ]Me.Dirty ile formda değişiklik yapılıp yapılmadığı kontrol ediyorsunuz. Kaydınıza girdiniz güncelleme yapıp acCmdSaveRecord ile kaydedebilirsiniz ancak iş güncelleme yapmaktan vazgeçtiğinizde ne yapacağınız. Me.Dirty ile formu kontrol edebiliyorsanız Me.Undo ile tüm değişkliklerden kolayca vazgeçebilirsiniz ;)
teşekkürler sayın atoykan. koda (ekle = False, guncelle = True yada tam tersi) ekleme yaparak sonuca ulaştım. yardımlarınız için teşekkürler.
saygılar.
(27/12/2022, 12:49)atoykan yazdı: [ -> ]Me.Dirty ile formda değişiklik yapılıp yapılmadığı kontrol ediyorsunuz. Kaydınıza girdiniz güncelleme yapıp acCmdSaveRecord ile kaydedebilirsiniz ancak iş güncelleme yapmaktan vazgeçtiğinizde ne yapacağınız. Me.Dirty ile formu kontrol edebiliyorsanız Me.Undo ile tüm değişkliklerden kolayca vazgeçebilirsiniz ;)
sayın atoykan alt formda butonla yeni kayıt açmak,kaydı silmek yada düzenleme ile ilgili örnek çalışma varmı elinizde acaba.
alt formdaki kayıt otomatik açılıyor ve kaydoluyor. butonla örnek çok aradım ya bulamadım yada gözümden kaçıyor.
saygılar
Anaform mantığı ile aynı kurguyu izleyin. Altformlarınızın veri kayıt özelliğini kapatın, altforma buton ile alana değer aktarıp kayıt yapıyordunuz hatırladığım kadarı ile aktarım yaptığınız buton kodları ile ilgili alana değer atadıktan sonra kayıt var mı yok mu, varsa düzenlenecek mi iptal mi edilecek seçeneklerini aynen ana formunuzdaki mantık ile uygulamanız yeterli olacaktır.
teşekkürler sayın atoykan. dediklerinizi uygulayıp konuyla ilgili size bilgi aktaracağım.
saygılar.
sayın arkadaşlar; bu kodda bir sorun çıkıyor. butona basıldığında çıkan mesaj kutusuna evet yanıtı verdikten sonra buton ismi kaydet oluyor ve yeni kayıt yapmak için form hazırlanıyor. metin kutularına bilgileri girdikten sonra tekrar butona basılınca
baştaki mesaj kutusu (If MsgBox("Yeni kayıt yapmak istediğinize emin misiniz?", vbQuestion + vbYesNo, "Laboratuvar") = vbYes Then) yeniden çıkıyor ve tekrar evet hayır soruyor. evet dedikten sonra kod başa sarıyor bölümünden devam edip işlemi bitiriyor.
neden butona kaydette basınca baştaki mesaj kutusu tekrar çıkıyor. sorunu bir türlü kavrayamadım. nerede hata yapıyorum. yardımcı olursanız sevinirim.
saygılar.
Private Sub Yeni_Kayıt_Click()
On Error GoTo Err_Yeni_Kayıt_Click
If MsgBox("Yeni kayıt yapmak istediğinize emin misiniz?", vbQuestion + vbYesNo, "Laboratuvar") = vbYes Then
Call Butonac
Call Alanac
If Me.Yeni_Kayıt.Caption = "Yeni Kayıt" Then
Call Temizle1
ekle = True
guncelle = False
A1 = DMax("MüsteriNo", "T_MÜSTERİLER")
If IsNull(A1) Then A1 = 0
Me.txtMüsteriNoo = A1 + 1
Me.txtMüsteriNoo.Enabled = False
" kod başa sarıyor"
Else
Me.Yeni_Kayıt.Caption = "Kaydet"
If IsNull(Me.txtMüsteriAdı) Or Me.txtMüsteriAdı = "" Then MsgBox "Müşteri adı giriniz", vbExclamation, "Laboratuvar": Me.txtMüsteriAdı.SetFocus: Exit Sub
If IsNull(Me.txtTel) Or Me.txtTel = "" Then MsgBox "Müşteri Telefon No giriniz", vbExclamation, "Laboratuvar": Me.txtTel.SetFocus: Exit Sub
If IsNull(Me.txtAdres) Or Me.txtAdres = "" Then MsgBox "Müşteri Adres bilgilerini giriniz", vbExclamation, "Laboratuvar": Me.txtAdres.SetFocus: Exit Sub
Aynı butona basıyorsanız kodun başa dönmesi son derece normal. Buton click olayını tetikliyorsunuz.