AccessTr.neT
Liste Kutusu Çift Tıklama Olay Yordamı - Baskı Önizleme

+- 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ığı: Liste Kutusu Çift Tıklama Olay Yordamı (/konu-liste-kutusu-cift-tiklama-olay-yordami.html)

Sayfalar: 1 2

Liste Kutusu Çift Tıklama Olay Yordamı - SeferŞANLI - 17/12/2019

Arkadaşlar a formundaki liste kutusunu çift tıklayınca b formundaki metin kutularına ado ile veri getirmeye çalışıyorum. Lakin gelmiyor. İlgilenebilir misiniz?
Private Sub listeolaylar_DblClick(Cancel As Integer)

DoCmd.OpenForm "frm_ifadeler"

'Call FormAcik

'Call KilitGuncelle



Dim strSQL As String

strSQL = "SELECT * FROM tbl_olaybilgisi WHERE Kimlik =" & Me.listeolaylar & ""



Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open strSQL, CurrentProject.Connection

        

If Not rs.BOF Then





 Me.txtolaytarihi = rs("olaytarihi")

Me.txtolaysaati = rs("olaysaati")



Me.txtolayyeri = rs("olayyeri")

Me.txtolay = rs("olayozeti")



End If

rs.Close

Set rs = Nothing

End Sub


Cvp: Liste Kutusu Çift Tıklama Olay Yordamı - berduş - 17/12/2019

Me.txtolaytarihi = rs("olaytarihi")
Me.txtolaysaati = rs("olaysaati")
Me.txtolayyeri = rs("olayyeri")
Me.txtolay = rs("olayozeti")
Txt ile başlayan alanlar b formunda kodlar a formunda mi?

Cvp: Liste Kutusu Çift Tıklama Olay Yordamı - SeferŞANLI - 17/12/2019

Evet. Aynen Öyle.

Cvp: Liste Kutusu Çift Tıklama Olay Yordamı - SeferŞANLI - 17/12/2019

Kodlar A formununun liste kutusunun çift tıklama olay yordamında. Metin kutuları b formunda.

Cvp: Liste Kutusu Çift Tıklama Olay Yordamı - berduş - 17/12/2019

Başka formdaki bir nesneye atıfta bulunmak için önce hangi form olduğunu tanımlan gerek
Diğer formun adının b olduğunu varsayarak "me" yerine Forms("b") yazarak dener misiniz?
Forms("b").txtolaytarihi= rs("olaytarihi")  gibi

Cvp: Liste Kutusu Çift Tıklama Olay Yordamı - SeferŞANLI - 17/12/2019 

Private Sub listeolaylar_DblClick(Cancel As Integer)

DoCmd.OpenForm "frm_ifadeler"

'Call FormAcik

'Call KilitGuncelle



Dim strSQL As String

strSQL = "SELECT * FROM tbl_olaybilgisi WHERE Kimlik =" & Me.listeolaylar & ""



Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open strSQL, CurrentProject.Connection

        

If Not rs.BOF Then





Forms("frm_ifadeler").txtolaytarihi = rs("olaytarihi")

Forms("frm_ifadeler").txtolaysaati = rs("olaysaati")



Forms("frm_ifadeler").txtolayyeri = rs("olayyeri")

Forms("frm_ifadeler").txtolay = rs("olayozeti")



End If

rs.Close

Set rs = Nothing

End Sub

Konu Çözülmüştür. Kısa bir soru yeni konu açmadan. formu yeni kayda hazır halde actıktan sonra yapmak için. 
docmd.GotoRecord, ,acnewrec
komutundan sonramı kodlamak gerekir.