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.