Skip to main content

AccessTr.neT


Textbox A Veri Çekme Hk.

Textbox A Veri Çekme Hk.

#7
Merhaba, referanslara "Microsoft ActiveX Data Object 2.8 library" referansını eklerseniz düzelir.
Cevapla
#8
(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
Cevapla
#9
"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
Cevapla
#10
(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.
Cevapla
#11
(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.. +rep
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task