[求助]初学问题想2天了，还是登录窗，程序执行不通

ydavid116 · 发表于 2006-5-19 16:24

JlIMC2k9.rar (18.55 KB, 下载次数: 8) 还是登录窗的问题，点击确定后总到了 openrecord "select * from 用户", record 这里就停了，出现“子程序或函数未定义”，我做了表呀，怎么还是不通呢。呵呵，初学者问问题就可能是好笑，请高手指点，这个问题解决不了，可能就得想一段时间再接着学了。 [em06][em06][em06]

Renco · 发表于 2006-5-19 17:26

Dim record As New ADODB.Recordset

record 定义要有个 new

openrecord "select * from 用户", record

要改成；

record.Open "select * from 用户", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

sky82聊聊 · 发表于 2006-5-19 23:30

可以参照这个
If Nz([Txt密码]) = Nz(DLookup("[密码]", "用户密码表", "[用户名]=" & "'" & Combo用户名 & "'")) _
And Me.Combo用户名 <> "" Then

sky82聊聊 · 发表于 2006-5-19 23:43

对你以下代码做了修改 Private Sub cmdenter_Click() ''''''''''''''''' If Nz([txtpassword]) = Nz(DLookup("[密码]", "用户", "[用户名]=" & "'" & Txtusername & "'")) _ And Txtusername <> "" Then '验证用户和密码) 'DoCmd.Close Me.Visible = False End If DoCmd.OpenForm "主窗体" ''''''''''''''''''''' End Sub 在用户名打入123,密码打入123就可以调用主窗体.

sky82聊聊 · 发表于 2006-5-19 23:45

SP43R2Qc.rar (18.85 KB, 下载次数: 18)

		自动登录	找回密码
密码			免费注册

[求助]初学问题想2天了，还是登录窗，程序执行不通

忘记把附件上传了