Sorgu1 adlı rapora Sira adlı denetimide ekleyiniz isterseniz gmrünmez yapa bilirsiniz.
Sonrada Baskı Önizleme butonuna bunu yazınız.
Kod:
Private Sub Komut92_Click()
On Error GoTo Err_Komut92_Click
Dim stDocName As String
stDocName = "Sorgu1"
'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acPreview, , "[Sira]=Forms![AnaTablo]![Sira]"
Exit_Komut92_Click:
Exit Sub
Err_Komut92_Click:
MsgBox Err.Description
Resume Exit_Komut92_Click
End Sub
Buda direkt yazdırmak için kod
Kod:
Private Sub Komut92_Click()
On Error GoTo Err_Komut92_Click
If MsgBox("Yazdırmak istediğinizden emin misiniz?", 36, "Yazdırma") = 6 Then
Dim stDocName As String
stDocName = "Sorgu1"
'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acNormal, , "[Sira]=Forms![AnaTablo]![Sira]"
Exit_Komut92_Click:
Exit Sub
Err_Komut92_Click:
MsgBox Err.Description
Resume Exit_Komut92_Click
End If
End Sub