[求助]还是登录窗“确定”按钮的问题，请高手指点一下

ydavid116

前面发过贴子问关于代码一样，产生的结果不一样的问题，那是自己的粗心才出错。 这回接着做“确定”按钮时又出现过程调试错误，以为可以暂时把这个登录窗做出来提提信心，结果这段代码执行不了，真是急人。我猜过会不会是没有建立一个名为“用户”的表出来，所以执行不下去，我就建了一个表，结果还是执行不了。因为实在是初学者，出这种不懂的问题可能很好笑，也许懂的人一句话就可以解决，所以还是发上来请高手指点一下。以下是代码。出现调试问题的地方加粗和标记红色了。 _____________ Private Sub cmdenter_Click() Dim strpassword, strusername As String Dim flag As Integer Dim record As ADODB.Recordset flag = 0 '从“用户”表里读取用户名和密码 [I]openrecord[/I] "select * from 用户", record '循环判断用户名是否存在，密码是否正确 Do Until record.EOF strusername = record("用户名") strpassword = record("密码") If UCase(Me.Txtusername.Value) <> UCase(strusername) Then record.MoveNext '若相等，说明用户名存在，可以跳出循环 Else flag = 1 Exit Do End If Loop 'flag=0 说明用户名不存在，进行处理 '设置文本框的内容为空，“确定”键不可用，焦点设在txtusername If flag = 0 Then MsgBox "没有这个用户名，请重新输入" Me.txtpassword.Value = "" Me.Txtusername.Value = "" Me.Txtusername.SetFocus cmdenter.Enabled = False Exit Sub '若flag=1 说明所输入的用户名存在，进一步比较密码是否正确 '若密码出错，设置txtusername的内容不变，txtpassword的内容为空， '若密码出错,“确定”键不可用，并把焦点设在txtpassword Else If UCase(Me.txtpassword.Value) <> UCase(strpassword) Then MsgBox ("密码错误，请重新输入") Me.txtpassword.Value = "" Me.txtpassword.SetFocus cmdenter.Enabled = False Exit Sub End If End If '用户名和密码都正确，打开“主界面”窗体 DoCmd.Close DoCmd.OpenForm "主界面" End Sub _________ 不胜感激！ [em06][em06]

.无忧.

楼主不会是想累死各位老师吧？这么多代码，一条条解读，很累的，最好发个文件上来，通过运行你的文件，直接查看错误提示，然后修改运行，这样别人的效率才能提高。

ydavid116

报歉了，前面贴代码是不太好认，下次一定注意打包上载。

要不那位高手就指点以下这一句代码吧，这个代码是不是要指向一个叫"用户"的表，然后提取数据，只是为什么我在执行中老是说"字过程或函数未定义"呢？ 实在是初学，可能问这很好笑，请高手指点，多谢！

openrecord "select * from 用户", record

[em06][em06][em06]

ycyhjj2865

请重新学习一下ADO

没有openrecord 这个方法。。

Renco

在你另一个贴里已回答。