(09/05/2019, 21:28)haliliyas yazdı: "cb_tipler_Change"'in kodunu değiştirdim
aşağıdaki kodu dener misiniz?

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



Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer

'===>SqlMerkal değişti<===

SqlMerkal = " SELECT TBL_MERKMAL.merkmal_adi, TBL_UYARI_SINIRI.uks, TBL_UYARI_SINIRI.aks, * " & _

            " FROM TBL_MERKMAL INNER JOIN TBL_UYARI_SINIRI ON TBL_MERKMAL.merkmal_id = TBL_UYARI_SINIRI.merkmal_idfk " & _

            " WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler  '[Formlar]![Form1]![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.Fields("uks")

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

Controls("lbl_" & i).Caption = rst.Fields("merkmal_adi") '<=== bu satır eklendi

rst.MoveNext

Next i



End Sub

Şimdi fırsat buldum ve kodu denedim. 
@haliliyas bey her zaman ki gibi nokta atış yapmışsınız. Teşekkürler..