打开另一窗体

张杨　发表于：2013-11-12 09:41:10 　

Private Sub 登录系统_Click()
If IsNull(Me.管理用户) Then
   MsgBox "请输入管理用户的账号！", vbQuestion
   Exit Sub
End If
If IsNull(Me.登录密码) Then
   MsgBox "请输入管理用户的登录密码！", vbQuestion
   Exit Sub
End If
If adlogin = True Then
   DoCmd.Close acForm, Me.Name
   DoCmd.OpenForm "库存"

Else
MsgBox "管理用户的账号或密码错误，请重新输入", vbCritical
Exit Sub
End If
End Sub

请问各位老师，我想当登陆密码=123时，在打开另一个窗体，在以上代码的基础上应怎样写代码？

Top

凌云发表于：2013-11-12 15:51:32

Private Sub 登录系统_Click()
If IsNull(Me.管理用户) Then
   MsgBox "请输入管理用户的账号！", vbQuestion
   Exit Sub
End If
If IsNull(Me.登录密码) Then
   MsgBox "请输入管理用户的登录密码！", vbQuestion
   Exit Sub
End If
If me.密码="123" and me.账号=“账号” Then
   DoCmd.Close acForm, Me.Name
   DoCmd.OpenForm "库存"

Else
MsgBox "管理用户的账号或密码错误，请重新输入", vbCritical
Exit Sub
End If
End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

打开另一窗体