[原创]登陆问题？

snowflying

请教各位高手：

我想在登陆窗体中选择用户名，输入密码后，点击确定按钮，就进入工时输入窗体（只显示该部门的员工）

请大家帮我看看这段代码哪里错误了？

例如：选择车身一室，输入密码3110，“提示错误：除非控件获得焦点，否则您不能引用该控件的属性或方法”

这是怎么回事啊，情大家多多帮忙啊？

谢谢！

[此贴子已经被作者于2006-5-3 14:39:04编辑过]

andymark

你用了文本框的text属性,把它去掉

如Text0.Text 直接用Text0就可以了

snowflying

哦，谢谢！

我上传的那个文件怎么看不见啊，在哪里呢？

snowflying

组合框呢，是不是也要把combo.text 改为combo啊？

一点通

按"回复",将你的文件用WINRAR打包后传上来看下

snowflying

我把text去掉了，提示“您输入的表达式引用了一个关闭或不存在的对象“

怎么回事啊

Private Sub cmdok_Click()

On Error GoTo err_cmdok_click
Dim rs As ADODB.Recordset
Dim str As String
Dim num As Integer
Dim username As String
Dim password As String
  username = Trim(combo7)
password = Trim(text2)
Set rs = New ADODB.Recordset
   If IsNull(username) Then
   DoCmd.Beep
   MsgBox ("lease choose username")
   If IsNull(password) Then
   DoCmd.Beep
   MsgBox ("lease input password")
   
   Else
     str = "select * from 登陆表 where 登陆表.部门名称='" & username & "'and 登陆表.密码='" & password & "'"
   
Set rs = GetRs(str)  

If rs.EOF Then
    DoCmd.Beep
    MsgBox ("lease input ")
    combo7 = ""                                                     

    text2 = ""
    text2.SetFocus
     End If
   End If


Exit Sub
     Else
       DoCmd.Close
       Me![cmdok].SetFocus
       MsgBox ("wlecome to this systerm")
       check = True
       DoCmd.OpenForm ("工时输入窗体")
      

       'DoCmd.OpenForm "工时输入窗体", , , "[部门] = 'combo7'"
      End If

  Set rs = Nothing
  Set conn = Nothing


exit_cmdok_click:
   
Exit Sub
err_cmdok_click:
    MsgBox Err.Description
    Resume exit_cmdok_click

  
End Sub