cb_tipler_Change() cb_tipler değiştiğinde olayına aşağıdakine benzer bir kod yazarsanız olur bence.

Private Sub cb_tipler_Change()

Me.pdf_gosterici.Visible = True

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

Me.lbl_1.Caption = Dlookup ("merkmal_adi", "TBL_MERKMAL", "tip_idfk=" & cb_tipler)

'Me.cb_merkmal.Requery

'______________________Deneme______

Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_MERKMAL where [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("lbl_" & i).Visible = True

Controls("txt_uks" & i) = rst.field("txt_uks" & i)

Controls("txt_aks" & i) = rst.field("txt_aks" & i)



Next i

'_______________deneme_bitti______________



End Sub