+- 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ığı: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... (/konu-alt-form-yeni-kayit-iptal-duzenle-sil-problemi.html)
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - hnakis - 23/12/2022
sayın site yönetimi açılan konuyu kapatabilirsiniz. problemi çözemedim ama sorun değil. herkese teşekkür ederim.
saygılar
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - atoykan - 23/12/2022
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.
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - hnakis - 23/12/2022
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.
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - atoykan - 26/12/2022
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.
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - hnakis - 26/12/2022
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
RE: Alt Form Yeni Kayıt, İptal, Düzenle, Sil Problemi.... - atoykan - 27/12/2022
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 ;)