buraya atmak için küçültmek içi bayagı ugraşmam gerekecek
sunu denedim
Private Sub cmdRaporOnizleme_Click()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo cmdRaporOnizleme_Click_Err
On Error GoTo 0
If (IsNull(lstReports)) Then
Beep
Exit Sub
End If
Set db = CurrentDb
Set qdf = db.QueryDefs("IHALE_RAPOR")
strSQL = "SELECT Settings.*, BANKA.*, IHALE.ID, IHALE.*, SIRKET.*, * " & _
" FROM IHALE, (Settings INNER JOIN BANKA ON Settings.Banka = BANKA.ID) " & _
" INNER JOIN SIRKET ON Settings.Sirket = SIRKET.ID " & _
" WHERE (((IHALE.ID)= 12 ));"
qdf.SQL = strSQL
Set qdf = Nothing
Set db = Nothing
DoCmd.OpenReport Forms!ihale_Raporlari!lstReports, acViewPreview, ""
DoCmd.Maximize
cmdRaporOnizleme_Click_Exit:
Exit Sub
cmdRaporOnizleme_Click_Err:
MsgBox Error$
Resume cmdRaporOnizleme_Click_Exit
End Sub
" WHERE (((IHALE.ID)= 12 ));"
satırına manuel olarak 12 yazdıgımda 12 ID Nolu Kayıt Geliyor
Bana Lazım olan Listeden seçili satırdaki ID Nolu Kaydın Gelmesi
çok şey denedim maalesef basit bir şey sanıyorum ama olmadı