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 Sub
SELECT 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]));