Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi....

sayın site yönetimi açılan konuyu kapatabilirsiniz. problemi çözemedim ama sorun değil. herkese teşekkür ederim.
saygılar

Sayın @hnakis size ve şahsınızda herkese belirtmiş olayım.

Bugüne kadar bu forumda 1 kişi hariç onlarca hesap engelledim gerekçesi açık ve net: SPAM Reklam, üyelik, siyaset, cinsel ürünler, pornografi vs konu başlıklarında tanıtım, reklam veya trafik amaçlı gönderilen mesajlar. 1 tek kişiyi forum uzmanlarına yaklaşımı nedeni ile engelledim ve o kişiye de açıkça özel mesaj ile forumdaki hiçbir uzman arkadaşımıza maksadını aşan ifadelerde bulunamayacağını belirttim. Kendi adıma da değil bir diğer uzman arkadaşımıza yapılan nezaketsiz yaklaşım üzerine.
Yani bir önceki mesajınız yanlış anlaşıldı ile falan uğraşmam takılmam. Yardım taleplerinin samimi olmadığına inanıyorsam açıkça da yardımcı olmayacağımı kendi adıma ifade ederim bu yönde mesajlarım da vardır sitede. sizin mesajınız yanlış anlaşıldı diye sorunuza çözüm önermiyor olsaydım bir önceki konunuzda cevap vermezdim. Dikkat ederseniz size bu konuda sitede örnekler bulunduğunu ve bunları incelemenizi, bu sorunun defalarca irdelendiğini söylüyorum. Siz gereksiz alınganlık yapıyorsunuz o konuda da bizim yapabileceğimiz birşey yok.

Sorunu benzer örnekler ışığında çözemiyorsanız örnekleri inceleyip ne anlayıp uygulamaya çalıştığınızı ne yapamadığınızı belirtirsiniz biz de size yanlış yaptığınız yeri gösterir ve/veya mantık hatalarını ortaya koyarız. yeri geldiğinde birebir örneğinizin üzerinde uygulama da yapmıyor değiliz. Ancak mesele şu siz yapamadım diyerek soruyu iletiyorsunuz ancak çözüme ilişkin öneriler doğrultunda ne gibi bir çaba harcadığınızı ne noktada takıldığınızı belirtmek yerine doğrudan çözüm odaklı cevaplar bekliyorsunuz.

sayın atoykan sitede bu konuyla ilgi örnekleri inceleyip çalışmamda denedim ve o kadar çok kod denedim ki bir yerden sonra hatalar çoğaldı. alt formda eski kayıtların altına yeni kayıt açmaya çalıştım ancak yeni kayıt açmayıp eski kayda odaklandı kodlar. kod konusunda iyi değilim yapılmış çalışmalardan uyarlama yapmaya çalışıyorum. yazılan kodları deneyip kodun verdiği tepkiler göre ilave yada çıkarmalar yapıyorum. 15 gündür de bir çok çalışmayı incelemedim. sorun bu yani. yardımlarınız için teşekkür ederim. bir şekilde çalışmadaki sorunu çözmeye çalışacağım. saygılar.

https://accesstr.net/konu-kaydet-butonu-hk.html
https://accesstr.net/konu-form-kaydet-olayi.html

Öncelikle bu konuları ve örnekleri dikkatle inceleyin. Form denetimleri üzerinden girilen verilerin kaydedilmesi veya iptal edilerek kaydedilmemesi olayını net olarak anlamaya ve uygulamaya çalışın. Bunu kavradığınız anda diğer tüm işlemler de çorap söküğü gibi gelecektir. Dikkatle inceleyin uygulamaların kodlarını F8 ile step step izleyerek hangi kod ne işlem yapıyor görün. Ardından kendiniz uygulamayaçalışın ve takıldığınız yerde sorun.
Ve önemli bir hususu mutlaka uygulayın çalışmalarını her zaman versiyonlandırın. Yani bir noktaya kadar geldiniz herşey doğru dediğiniz anda bir kopyasını alın ve yeni ekleyeceğiniz özellikleri yeni kopyada ilerletin. Bunu her öenmli değişiklik yapacağınız ya da çokça deneme yanılma yöntemi izleyeceğiniz zaman uygularsanız hataların sayısı arttı diye endişelenmeden en son doğru çalışma noktasından tekrar tekrar devam edebilir sıfır noktasına dönmek zorunda kalmazsınız. Bu aynı zamanda ortaya çıkabiliecek bir conflict veya corruption durumunda da can simidi görevi görür ve emeğinizde ciddi bir kayıp yaşamadan biraz geriye dönerek sorunsuz çalışmaya devam edebilirsiniz.

bilgi için teşekkür ederim. kesinlikle uygulayacağım.

KAYDET BUTONUnda problem yok hocam. düzenle butonu sorun oluyor.
kaydet butonunda mükerrer ve boş kayıt kontrolu yapıyorum ama düzenle butonunun kodunu toparlayamadım. yardım ederseniz sevinirim.

Private Sub Yeni_Kayıt_Click()
On Error GoTo Err_Yeni_Kayıt_Click

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

Else
Me.Yeni_Kayıt.Caption = "Kaydet"

If IsNull(Me.txtMüsteriAdı) Or Me.txtMüsteriAdı = "" Then MsgBox "Müşteri adı giriniz", vbExclamation, "Sistem Uyarı": Me.txtMüsteriAdı.SetFocus: Exit Sub

If IsNull(Me.txtTel) Or Me.txtTel = "" Then MsgBox "Müşteri Telefon No giriniz", vbExclamation, "Sistem Uyarı": Me.txtTel.SetFocus: Exit Sub

If IsNull(Me.txtAdres) Or Me.txtAdres = "" Then MsgBox "Müşteri Adres bilgilerini giriniz", vbExclamation, "Sistem Uyarı": Me.txtAdres.SetFocus: Exit Sub


Dim SD1, SD2 As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.txtMüsteriAdı.Value
SD2 = Me.txtTel.Value

stLinkCriteria1 = "[MüsteriAdı]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tel]=" & "'" & SD2 & "'"
   
If DCount("*", "T_MÜSTERİLER", " MüsteriAdı ='" & Me.txtMüsteriAdı & "'") >= 1 Then
MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "İsimli kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtMüsteriAdı.SetFocus
Else

If DCount("*", "T_MÜSTERİLER", " Tel ='" & Me.txtTel & "'") >= 1 Then
MsgBox "" & vbCr & SD2 & " " & vbCr & vbCr & "Numaralı kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtTel.SetFocus
Else

Me.txtMüsteriAdı.SetFocus
Me.txtYetkiliadı.SetFocus
Me.txtTel.SetFocus
Me.txtEmail.SetFocus
Me.txtSehir.SetFocus
Me.txtAdres.SetFocus

If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then

Call Kaydet

MsgBox "Kayıt işlemi yapıldı.", vbExclamation, "Sistem Mesajı"

Call Temizle2
Call Alankapa
Call Butonkapat
Else
Me.txt_ara = ""
Me.txt_arafk = ""
Me.Liste17 = ""
Liste17.Requery
Me.txt_ara.Visible = False

Call Alankapa

Me.Yeni_Kayıt.Caption = "Yeni Kayıt"

Call Butonkapat
Call Temizle3

End If
End If
End If
End If

Exit_Yeni_Kayıt_Click:
    Exit Sub
Err_Yeni_Kayıt_Click:
MsgBox "İşlem Yapılmadı", vbExclamation, "Sistem Mesajı"

    Resume Exit_Yeni_Kayıt_Click

End Sub
----------------------

Private Sub btnDüzenle_Click()
On Error GoTo Err_btnDüzenle_Click
Call Alanac
Me.btnDüzenle.Caption = "Güncelle"

Me.btnKayıtSil.Enabled = False
ekle = False
guncelle = True

If (Me.Dirty = True) Then
Call KayıtKontrol
Else

If Me.btnDüzenle.Caption = "Düzenle" Then

    If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then
Me.btnDüzenle.Caption = "Güncelle"

Call Kaydet

MsgBox "Güncelleme işlemi yapıldı.", vbExclamation, "Sistem Mesajı"

Call Temizle2
Call Alankapa
Call Butonkapat

Else
Me.txt_ara = ""
Me.txt_arafk = ""
Me.Liste17 = ""
Liste17.Requery
Me.txt_ara.Visible = False

Call Alankapa

Me.btnDüzenle.Caption = "Güncelle"

Call Butonkapat
Call Temizle3

End If
End If
End If

Exit_btnDüzenle_Click:
    Exit Sub
Err_btnDüzenle_Click:
MsgBox "Güncelleme İşlemi Yapılmadı", vbExclamation, "Sistem Mesajı"

    Resume Exit_btnDüzenle_Click

End Sub

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 ;)