Merhaba, referanslara "Microsoft ActiveX Data Object 2.8 library" referansını eklerseniz düzelir.
Textbox A Veri Çekme Hk.
(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
(09/05/2019, 17:28)ozanakkaya yazdı: Merhaba, referanslara "Microsoft ActiveX Data Object 2.8 library" referansını eklerseniz düzelir.Referans ekliydi zaten @haliliyas bey söylemişti. Yine de tşkler. Alttaki gibi değişiklik yapınca oldu gibi görünüyor.
İlginiz ve verdiğiniz doğru bilgiler için hepinize teşekkürler.
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
"cb_tipler_Change"'in kodunu değiştirdim
aşağıdaki kodu dener misiniz?
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(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 işten çıktım, evde firsat bulursam birazdan denerim. Daha olmadı yarın öğleden sonra iş yerinde deneyip sonucu bildireceğim. ( iş yerinde başka bir işim var 2 gün kadar sürecek gibi o yüzden cevap pazartesiye kalabilir) İlginiz için teşekkürler.
(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..
Konuyu Okuyanlar: 3 Ziyaretçi
