vb编码!!!!!!!!!!
来源:百度知道 编辑:UC知道 时间:2024/07/02 01:02:34
我在做access 的登陆界面
这是我的 确定键 的代码
Private Sub login_ok_Click()
Dim userid As Integer
If IsNull(com用户) = False Then
If DLookup("[密码]", "系统用户", "[用户名]= """ & com用户 & """") = txt密码 Then
userid = DLookup("[id]", "系统用户", "[用户名]= """ & com用户 & """")
DoCmd.Close
DoCmd.OpenForm "欢迎界面"
Form_欢迎界面.user = userid
Else
txt密码 = ""
txt密码.SetFocus
MsgBox "密码错误!", vbCritical
End If
End If
End Sub
用户名是组合框 行来源是 SELECT [系统用户].[用户名] FROM 系统用户 ORDER BY [用户名];
按确定后就出来错误。。。
大家帮忙解决下
然后就进vb调试
编译错误:
方法或数据成员未找到
加我qq吧 289089196
这是我的 确定键 的代码
Private Sub login_ok_Click()
Dim userid As Integer
If IsNull(com用户) = False Then
If DLookup("[密码]", "系统用户", "[用户名]= """ & com用户 & """") = txt密码 Then
userid = DLookup("[id]", "系统用户", "[用户名]= """ & com用户 & """")
DoCmd.Close
DoCmd.OpenForm "欢迎界面"
Form_欢迎界面.user = userid
Else
txt密码 = ""
txt密码.SetFocus
MsgBox "密码错误!", vbCritical
End If
End If
End Sub
用户名是组合框 行来源是 SELECT [系统用户].[用户名] FROM 系统用户 ORDER BY [用户名];
按确定后就出来错误。。。
大家帮忙解决下
然后就进vb调试
编译错误:
方法或数据成员未找到
加我qq吧 289089196
哪行报错?
报什么错?
为什么提问的都喜欢只说有错而不说具体错误内容
Option Explicit
Dim errpass%, password$
Dim finduser As Boolean
Public Function Searchdata(用户名 As String, 密码 As String) As Boolean
Searchdata = False
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "用户名 ='" & 用户名 & "'"
If Not Adodc1.Recordset.EOF Then
If Trim(Adodc1.Recordset.Fields("密码")) = 密码 Then Searchdata = True
End If
End Function
Private Sub Comm11_Click()
finduser = Searchdata(Trim(Text1.Text), Trim(Text2.Text))
If finduser Then