Kod:
DoCmd.OpenForm "Form Adı"
Kod:
Private Sub Saydam_Click()
On Error GoTo Err_Saydam_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form Adı"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Saydam_Click:
Exit Sub
Err_Saydam_Click:
MsgBox Err.Description
Resume Exit_Saydam_Click
End Sub
Kod içerisinde kullanılan "Saydam" düğmenizin adı olacak. Kolay gelsin.