Merhaba @haliliyas  Bey;
Merkmal adını yazdırmak için textbox ekledim ve TBL_MERKMAL tablosundan merkmal_adi alanını çekmek için sizin yazdığınız dan esinlenerek sorgu1 yazdım,  Record set oluşturdum.
Fakat şu hatayı alıyorum.  RunTime Error '424 Object Required 
Debug 'a tıkladığımda   alttaki satırda hata olduğunu gösteriyor.


rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic   
Ekledim satırlar aşağıdaki gibidir.

Private Sub cb_tipler_Change()

Me.pdf_gosterici.Visible = True

Me.txt_teknik_resim_no = Dlookup ("teknik_resim", "TBL_TIPLER", "tip_id=" & cb_tipler)



Dim rst, rst1 As New ADODB.Recordset

Dim SqlMerkal, sorgu1 As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_UYARI_SINIRI WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler



rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveLast

rst.MoveFirst



a = rst.RecordCount

For i = 1 To a

Controls("txt_uks" & i).Visible = True

Controls("txt_aks" & i).Visible = True

Controls("txt_uks" & i) = rst.Fields("uks")

Controls("txt_aks" & i) = rst.Fields("aks")

rst.MoveNext

Next i



sorgu1 = "select * from TBL_MERKMAL where (TBL_MERKMAL.tip_idfk)=" & Me.cb_tipler

rst1.Open sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst1.MoveLast

rst1.MoveFirst



a = rst1.RecordCount

For i = 1 To a



Controls("txt_lbl_" & i) = rst1.Fields("merkmal_adi")



rst1.MoveNext

Next i







End Sub