Code Snippet "VBA Access"

Formular öffnen

Option Compare Database

Private Sub OpenForm(frmname)
On Error GoTo Err_btnOpenfrmlanguages_Click

    Dim stLinkCriteria As String

    DoCmd.OpenForm frmname, , , stLinkCriteria

Exit_btnOpenfrmlanguages_Click:
    Exit Sub

Err_btnOpenfrmlanguages_Click:
    MsgBox Err.description
    Resume Exit_btnOpenfrmlanguages_Click
End Sub

Private Sub btnOpenfrmlanguages_Click()
  Call OpenForm("frm_proglanguages")
End Sub

Private Sub btnOpenfrmsources_Click()
  Call OpenForm("frm_sources")
End Sub