Office中国论坛/Access中国论坛

标题: 请高手帮我看看这个代码哪里错误 [打印本页]

作者: tlhui 时间: 2006-11-13 17:06
标题: 请高手帮我看看这个代码哪里错误
一个文本框:会员号

一个标签框

abel级别

当在文本框输入表中有的会员号码时,则在标签框中显示相对应的级别,如果表中没有此会员号,就进行提示

Private Sub 会员号_AfterUpdate()
Me.Label级别.Caption = CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'")(0)
   If Me.会员号.EOF Then
      MsgBox "无此会员号，请重新输入！", vbQuestion, "提示..."
      Cancel = True
End If
End Sub

是不是EOF表达错误啊?为什么一输入表中没有的会员号,就提示代码错误,要求调试`请高手帮我看看`谢谢

作者: wwwwa 时间: 2006-11-13 17:21
try:

If Not CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'").EOF Then

Me.Label级别.Caption = CurrentProject.Connection.Execute("SELECT [级别] FROM 会员资料表 WHERE [FTC#]='" & Me.会员号 & "'")(0)
else

MsgBox "无此会员号，请重新输入！", vbQuestion, "提示..."
Cancel = True

End If

作者: tz-chf 时间: 2006-11-13 18:58
用dlookup查找后再作判断简便

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