1.连接窗体 Private Sub Command2_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "usermanage" DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Maximize End Sub 可打开名字叫usermanage的窗体 2.连接视图报表 你问的问题不太好回答,打开表或视图可如下: sql=“Select * from ******”
set rn=currentdb.openrecordset(sql) *********