28/02/2022, 00:20
tanyeri
Arkadaşlar merhaba forma eklediğim bir ek nesnesini Sql bağlantısı ile çağırmayı denedim ancak sonuç alamadım. ilgili tabloda "resimler" isimli alanın ek olarak tanımlandığı görünüyor. Normal şartlarda ben veriyi aşağıdaki gibi Sql ile çağırıyorum bunu başaramayınca sorgu sihirbazından sira no ile eşleştirerek çağırmaya çalıştım yine de sonuç alamadım.Desteğinizi bekliyorum.
Public Sub veribilgisial()
Dim rs As ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT * FROM TeknikRaporlar WHERE sirano = " & liste_teknikrapor.Column(0)
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection
If rs.State = 1 Then
If Not rs.BOF Then
dtr_sirano = rs("sirano")
dtr_resimler = rs("resimler")
End If
rs.Close
End If
Set rs = Nothing
End SubSELECT TeknikRaporlar.resimler, TeknikRaporlar.sirano
FROM TeknikRaporlar
WHERE (((TeknikRaporlar.sirano)=[Formlar]![Detayli_TeknikRapor]![sirano].[Text] Or (TeknikRaporlar.sirano)=[Formlar]![Detayli_TeknikRapor]![sirano] Or (TeknikRaporlar.sirano)=[Formlar]![Detayli_TeknikRapor]![sirano].[Name]));