Office中国论坛/Access中国论坛

标题: 如何写这个语句 [打印本页]

作者: tang6518 时间: 2004-9-17 22:26
标题: 如何写这个语句
上次参照了黄海班主的登陆事例.想完成如下的功能:

登陆后,根据不同的登陆ID,来决定打开不同的窗体.

黄海老大的原格式为:

Private Sub cmdOK_Click()

If IsNull(Me.cboUserName) Then

      MsgBox "请输入您的用户名！", vbQuestion

      Exit Sub

End If

If login = True Then

      DoCmd.Close acForm, "登陆背景"

      Me.TimerInterval = 0

      DoCmd.Close acForm, Me.Name

      DoCmd.OpenForm "控制台"

Else

      MsgBox "用户名或密码不正确!", vbCritical

      Exit Sub

End If

End Sub

我更改后为: 其中admin是指为以admin的名义登陆.

Private Sub cmdOK_Click()

Dim nm As String

If IsNull(Me.cboUserName) Then

      MsgBox "请输入您的用户名！", vbQuestion

      Exit Sub

End If

If login = True Then

nm = Me.cboUserName.Value

If nm = "admin" Then

      DoCmd.Close acForm, "登陆背景"

      Me.TimerInterval = 0

      DoCmd.Close acForm, Me.Name

      DoCmd.OpenForm "主要控制模板"

ElseIf nm <> "admin" Then

DoCmd.Close acForm, "登陆背景"

      Me.TimerInterval = 0

      DoCmd.Close acForm, Me.Name

      DoCmd.OpenForm "form1"

Else

      MsgBox "用户名或密码不正确!", vbCritical

      Exit Sub

End If

End If

End Sub

可是出来的多是 form1.

请教!!! 谢谢!

作者: 方漠 时间: 2004-9-19 04:08
If login = True Then

   nm = Me.cboUserName.Value

   If nm = "admin" Then

      DoCmd.Close acForm, "登陆背景"

      Me.TimerInterval = 0

      DoCmd.Close acForm, Me.Name

      DoCmd.OpenForm "主要控制模板"

   ElseIf nm <> "admin" Then

      DoCmd.Close acForm, "登陆背景"

      Me.TimerInterval = 0

      DoCmd.Close acForm, Me.Name

      DoCmd.OpenForm "form1"

   End If

Else

   MsgBox "用户名或密码不正确!", vbCritical

   Exit Sub



End If

作者: 异乡客 时间: 2004-9-20 19:54
endif的位置错了？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)