Merhaba,
"frm_PROJETAKIP" formunda dataların gözüktüğü ekranda herhangi bir satıra tıkladıktan sonra "Düzenle" veya "Kaydı sil" butonuna tıkladığımızda açılan formda "CuurentRecord"a göre dataların gelmesini istiyorum.
Yardımcı olabilir misiniz lütfen?
Teşekkürler.
örnekte ID adında alan ekledim,ayrıca kodları incele
önce formdan istediğini seç daha sonra düzenleme koduna tıkla
(07/05/2017, 15:07)C*e*l*o*y*c*e yazdı: örnekte ID adında alan ekledim,ayrıca kodları incele
önce formdan istediğini seç daha sonra düzenleme koduna tıkla
Sn.Celoyce, ilginiz ve yardımınız için teşekkür ederim. Bu yönteminizi kullanacağım.
Ancak aklıma takılan bir konu var: ID benzersiz olmazsa değişiklik için seçilen satırı nasıl tespit edebiliriz?
Çünkü konuyu "currentrecord" diye açarken aslında aklımda bu parametrenin kullanılabilirliğini sorgulamak vardı...
Saygılar..
sayın temre,
aşağıdaki açıklamaların yapılması uygun görülmüştür.
1)
Alıntı:aklıma takılan bir konu var: ID benzersiz olmazsa değişiklik için seçilen satırı nasıl tespit edebiliriz?
ifadenize yönelik olarak;
a)
DoCmd.OpenForm "frm_PROJEDUZENLE", , , "[ID]=" & Forms![frm_PROJETAKIP]![frm_PROJE].Form![ID_TBX]
DÜZENLE butonu içeriğindeki kod satırını iptal edip yerine,yukarıdaki kod satırını yazmak sureti ile kullanmayı deneyiniz.
b)
veyahut da,bu hususa dair bir öneri olması amacı ile,hem kayıt seçip hem de düzenle butonunu tıklamak yerine tek bir tıklama ile şunu da yapabilirsiniz.
frm_PROJETAKIP adlı formu tasarım olarak açınız ve frm_PROJE alt formunda yer alan ID_TBX adlı denetimin ÖZELLİKLER - BİÇİM sekmesindeki KÖPRÜ satırını EVET olarak işaretleyiniz ve son olarak da,ID_TBX adlı denetimin TIKLANDIĞINDA olay yordamı içerisine yukarıdaki kodu yazıp kullanmayı deneyiniz.
2)
ayrıca,KAYIT SİLME işlemi için de,naçizane şu öneriyi sunmak isterim.harici olarak ayrı bir silme formu oluşturmaktansa,KAYIT SİLME butonunun kod satırındaki kodları iptal edip yerine,
If MsgBox("Seçilen kaydı silmek istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tbl_PROJE WHERE ID =" & Forms![frm_PROJETAKIP]![frm_PROJE].Form![ID_TBX]
DoCmd.SetWarnings True
Forms!frm_PROJETAKIP.frm_PROJE.Form.Requery
Me.Requery
Else
Me.Undo
Exit Sub
End If
kod satırlarını kullanmak sureti ile deneyiniz.
bilginize...iyi çalışmalar,saygılar.
sayın temre,
EK'te;
bahsettiğiniz talebinize yönelik olarak,
4.mesajda yapılan açıklamalarda belirtilen işlemleri içerecek şekilde hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
(07/05/2017, 17:21)atoz112 yazdı: sayın temre,
EK'te;
bahsettiğiniz talebinize yönelik olarak,
4.mesajda yapılan açıklamalarda belirtilen işlemleri içerecek şekilde hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
İlgi ve desteğiniz için teşekkür ederim.
Hem Sn.Celoyce hem de sizin katkılarınızdan farklı örnekler için esinlendim ve bunları kullanacağım.
Selamlar..