DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub komutdüğümesininadı_Click() ' ... sizin butonun adı
On Error GoTo Err_komutdüğümesininadı
Dim RprAdı As String
Dim LinkCriteria As String
RprAdı= "açılacakRaporunAdı"
LinkCriteria = "[FirmaID]=Forms![kriterin alınacağı form adı]![kriterin alınacağı alan adı]
DoCmd.OpenReport rprAdı, , , LinkCriteria
Exit_komutdüğümesininadı:
Exit Sub
Err_komutdüğümesininadı
MsgBox Err.Description
Resume Exit_komutdüğümesininadı
End Sub