sayın modalı ektekı dosyadakı problem oan ekrandakı kayıtlı kısının onızlemede gozukmemesı ve yazıcıya gıtmemesı yardımcı olursanız sevınırım sımdıden kolay gelsın.
Raporu açtığınız forma bir metin kutusu ekleyin görünmez olarak ayarlayın ve veri kısmından tablonun Kimlik alanı ile ilişkilendirin.
Daha sonra formun kod sayfasını açın ve raporu ön izleme düğümesinin kodlarını şu şekilde değiştirin:
Kod:
Private Sub Komut107_Click()
On Error GoTo Err_Komut107_Click
Dim stDocName As String
Dim strWhere As String
strWhere = "Kimlik=" & Me.txtKimlikNo
stDocName = "rapor test"
DoCmd.OpenReport stDocName, acPreview, , strWhere
Exit_Komut107_Click:
Exit Sub
Err_Komut107_Click:
MsgBox Err.Description
Resume Exit_Komut107_Click
End Sub
Buraya bir strWhere cümlesi ekledim bu da raporu o an forumda geçerli olan kayıda göre açıyor.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.