AccessTr.neT

S.A herkese merhaba
Resim de Belirtmeye Calıstım

Sub formdaki listelenen veriler içinde seçtigim satırdaki ID degerini nasıl alırım
ID degerini alıp Sql ile Rapor Sayfası için bilgi çekicem ama Hatası alıyorum
hata IHALE formu bulunamadı diyor. ve ID istiyor.
Forms!IHALE!ID

1-Mainform
Main form içine Açılan ihale Formu var
ihale formu içinde ise sub form olarak Alt_ihale_listesi Formu var


Form Adları
1- FrmMain
2-ihale
3-Alt_ihale_listesi

3 nolu form 2 nolu form içinde 2 nolu fom 1 nolu form içinde açılıyor
inşaallah anlatabilmişimdir
şimdiden teşekkür eder iyi çalışmalar dilerim...

Private Sub cmdRaporOnizleme_Click()

On Error GoTo cmdRaporOnizleme_Click_Err

On Error GoTo 0

 If (IsNull(lstReports)) Then

 Beep

 Exit Sub

 End If

 DoCmd.OpenReport Forms!ihale_Raporlari!lstReports, acViewPreview, "[ID]=" & Forms!IHALE!ID, "", acNormal

 DoCmd.Maximize

cmdRaporOnizleme_Click_Exit:

 Exit Sub

cmdRaporOnizleme_Click_Err:

 MsgBox Error$

 Resume cmdRaporOnizleme_Click_Exit

End Sub

Örnek uygulanayı ekleyiniz, örnek üzerinden çözüm arayalım...

61 mb bir veritabanı bu
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ı

IHALE ve ihale farklı form isimleridir kontrol edin. ID ve id de farklı alan isimleridir.

Form Adları
1- FrmMain
2-ihale
3-Alt_ihale_listesi

https://accesstr.net/konu-listeden-2-ayr...kinda.html
bu konuyuda inceleyin sizin uygulamanın aynısıdır.

teşekkür ederim güzel bir fikir verdi bu uygulama
rapor formunan bir etiket koydum
rapor formunu acarken

Form_ihale_Raporlari.Etiket_ID.Caption = Form_Alt_ihale_listesi.ID

raporu secerken

" WHERE (((IHALE.ID)= Forms!ihale_Raporlari!Etiket_ID.caption ));"

bu şekilde şimdilik sorun çözüldü

benim şaşırdıgım rapor secme formu üste duruyorken ben alttaki liste formunda
satır sectigimde o sectigim aktif satırı neden yazdıramıyorum

bana şimdilik bu yeter ilgi ve alakanıza teşekkür ederim...
iyi çalışmalar