(09/05/2019, 17:09)icemeno yazdı: 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

Kodu Seç

Kodu Kopyala

(09/05/2019, 17:28)ozanakkaya yazdı: Merhaba, referanslara "Microsoft ActiveX Data Object 2.8 library" referansını eklerseniz düzelir.

Dim rst As New ADODB.Recordset
Dim SqlMerkal 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

Dim rst1 As New ADODB.Recordset
Dim SqlMerkal1 As String
Dim aa, ii As Integer

'*********************************************************************************************
SqlMerkal1 = "select * from TBL_MERKMAL WHERE (TBL_MERKMAL.tip_idfk)=" & Me.cb_tipler

rst1.Open SqlMerkal1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst1.MoveLast
rst1.MoveFirst

aa = rst1.RecordCount
For ii = 1 To aa

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


rst1.MoveNext
Next ii

(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

Kodu Seç

Kodu Kopyala

(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

Kodu Seç

Kodu Kopyala