AccessTr.neT

Kod:
Private Sub Komut_Click()

On Error GoTo Err_Komut_Click

    Dim stDocName As String

    stDocName = "Y"

    DoCmd.OpenReport stDocName, acPreview

Exit_Komut_Click:

    Exit Sub

Err_Komut_Click:

    MsgBox Err.Description

    Resume Exit_Komut200_Click

End Sub

merhabalar buradaki açılır pencereye ekrandaki me.kimlik verisini elle girmeden otomatik almasini istiyorum.

Kod:
    DoCmd.OpenReport stDocName, acPreview, me.kimlik

yaptim aldi ama ekrandaki kişiyi değil alakasiz birisinin verilerini raporlaştirdi bunun için farkli bir komut mu kullanmak gerekiyor.
teşekkürler.

raporunuzda yer alan Me.kimlik hangi alana denk geliyor olanı da belirtmelisiniz
kendi örneğimde ID alanı me.kimlik kriterine göre filtrelendiği için onu yazdım
ayrıca me.kimlik"ten önce 2 virgül olacak

 DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me.Kimlik

(03/08/2019, 14:58)halily yazdı: [ -> ]raporunuzda yer alan Me.kimlik hangi alana denk geliyor olanı da belirtmelisiniz
kendi örneğimde ID alanı me.kimlik kriterine göre filtrelendiği için onu yazdım
ayrıca me.kimlik"ten önce 2 virgül olacak

Kod:
DoCmd.OpenReport stDocName, acPreview, , "ID=" & Me.Kimlik

teşekkürler hocam.

ÖD
iyi çalışmalar

yakanic

berduş

yakanic

berduş