Formda double clik ile veri aktarma

1 2 3 4 5
22/04/2009, 00:19

umuttk

Sn harun
peki aşağıdaki kriterde like komutu kullanarak istenilen şey yapılabilrimi?

Private Sub Ziyaretci_Ad_Soyad_DblClick(Cancel As Integer)

Dim acilacak_form As String
Dim kriter As String

acilacak_form = "KİMLİK"
kriter = "[Ziyaretci_Ad_Soyad]=" & "'" & Me![Ziyaretci_Ad_Soyad] & "'"

If kriter = "[Ziyaretci_Ad_Soyad]=" Then

MsgBox ("Lütfen açmak istediğiniz kriteri seçin...")

Else
DoCmd.OpenForm acilacak_form, , , kriter

End If
End Sub
22/04/2009, 00:27

tdsharun

Benim bildiğim kadarıyla olmaz. Ama dediğim gibi: "Benim bildiğim kadarıyla"...

Ben olsam şöyle yapardım:

1- Bir ara form yapardım. Arama formu. Bunun üzerinden birden fazla alanda arama yapar, istediğim sonucu bulunca ilgili kaydı açtırırdım. Tabi bu arada arama formunu da kapattırırdım. böylece açık iki tane form olurdu. 1. forum ve istediğim veriye ulaştığım 3. formum. 2. form olan arama formumu zaten kapatmıştım.

2- 3. formumun kapandığında olayına da ayhan2122 hocamın verdiği kodları eklerdim. Böylece kriter sıkıntısını aşmış olurdum. FIRAT adında olmasına rağmen Soyadları farklı olan kişileri de görmüş olurdum...

İstediğiniz alan ad soyad alanı değil de ayırıcı özelliği olan TC Kimlik No gibi bir alan olmuş olsaydı tüm bunlara gerek kalmaz, sadece TC Kimlik No alanı yeterli olurdu.

Ama illa ki ad soyad alanı olması gerekiyorsa da ben bu şekilde yapardım.

Ha, el elden, akıl akıldan üstündür. Vardır belki bi yöntemi. Ama benim bildiğim bu...

Kolay gelsin...
22/04/2009, 08:13

esrefigit

zaten formda kayıt bulmayı yapmışsınız biz bulunan kayıttan bilgileri diğer forma aktarmayı tamamlayalım bunun aslında veriyi kopyala sonra form kapanınca yapıştır Dlookup ile bulunan kaydın id sine göre tc yi getir tablodan sorgu ile bulunan kaydın tc sini getir ado yada ile findfirst ederek getir gibi bir çok yolu var ama biz en kolay olanı tarif edelim

kimlik formunun kapanışına
Forms!ziyaret![LOG_ZİYARET Altform].Form!.[TC Kimlik No] = Me.TC_No

bunu yaz


Private Sub Form_Close()
Forms!ziyaret![LOG_ZİYARET Altform].Form!.[TC Kimlik No] = Me.TC_No
End Sub

bu şekilde
22/04/2009, 09:38

tdsharun

Sayın umuttk, sizin yapmaya çalıştığınız şeyi başka bir konuya örnek olarak ekledim. Hem de sizin örneğinizi yaparak. O soruyu soranı da siz sandığım için sizin örneğiniz üzerinde istediğiniz doğrultuda bir çalışma yaptım. Lütfen şu linki inceleyin, örneğiniz orada:

https://accesstr.net/konu-coklu-arama-mu...4#pid16574

Kolay gelsin...
22/04/2009, 10:25

ayhan2122

Sn umuttk;
Aşağıdaki örneği inceleyin. Gönderdiğim örnekte Kimlik formunda FIRAT ÖZTÜRK ve MEHMET FIRAT isminde 2 kimlik bilgisi var. Ziyaretçi adını "FIRAT" olarak girip çift tıklattığınızda her 2 kaydı da çağırıyor. siz aradığınız kaydı seçip formunuzu kapattığınızda onayınızla bilgiler ziyaretçi formuna aktarılıyor. Ziyaretçi ismi boş (null) girerseniz bütün kayıtlar, birerbir aynı girerseniz sadece uyuşan kayıt geliyor. Aynı işlemler TcNo için de geçerli. İnş. istediğiniz buydu
22/04/2009, 10:36

tdsharun

Bu çok daha güzel oldu sayın hocam... Ellerine sağlık.

Bence bu daha iyi bir örnek oldu.

Boşuna dememişler bir sorunu çözmenin en az iki yolu vardır diye...
1 2 3 4 5