Docmd.openreport 'a Veri Alma

Docmd.openreport 'a Veri Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Docmd.openreport 'a Veri Alma (/konu-docmd-openreport-a-veri-alma.html)

Docmd.openreport 'a Veri Alma - yakanic - 03/08/2019

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.

Cvp: Docmd.openreport 'a Veri Alma - berduş - 03/08/2019

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

RE: Docmd.openreport 'a Veri Alma - yakanic - 03/08/2019

(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.

Cvp: Docmd.openreport 'a Veri Alma - berduş - 03/08/2019

ÖD
iyi çalışmalar