ad tıklandığında olayındaki kodu aşağıdaki ile değiştirin

Private Sub ad_Click()

    

    On Error GoTo Err_ad_Click



    Dim stDocName As String

    Dim stLinkCriteria As String



    stDocName = "form2"

    DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_ad_Click:

    Exit Sub



Err_ad_Click:

    MsgBox Err.Description

    Resume Exit_ad_Click

End Sub