Liste Kutusu Çift Tıklama Olay Yordamı

1 2
17/12/2019, 22:02

SeferŞANLI

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
17/12/2019, 22:08

berduş

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?
17/12/2019, 22:10

SeferŞANLI

Evet. Aynen Öyle.
17/12/2019, 22:13

SeferŞANLI

Kodlar A formununun liste kutusunun çift tıklama olay yordamında. Metin kutuları b formunda.
17/12/2019, 22:16

berduş

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
17/12/2019, 22:21

SeferŞANLI

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.
1 2