战斗之心传承职业选择:关于access
来源:百度文库 编辑:查人人中国名人网 时间:2024/07/08 08:33:42
我运行下面的按钮事件时提示 不能找到表达式中的引用字段“|”
请问如何解决?
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
[用户信息]![房号].SetFocus
domcmd.FindRecord [用户信息]![List25]
With CodeContextObject
rrr = "[用户信息]![姓名] = """
DoCmd.ApplyFilter "uuu", rrr
If (.RecordsetClone.RecordCount > 0) Then
[用户信息]![姓名] = Trim([Text 10])
[用户信息]![性别] = Trim([Combo8])
[用户信息]![年龄] = Trim([Text12])
[用户信息]![身份证号码] = Trim([Text14])
[用户信息]![联系电话] = Trim([Text16])
[用户信息]![家庭住址] = Trim([Text18])
[用户信息].Refresh
Else
MsgBox "该房间已经有客户入住!"
End If
End With
DoCmd.GoToRecord , , acNewRec
exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume exit_Command24_Click
End Sub
请问如何解决?
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
[用户信息]![房号].SetFocus
domcmd.FindRecord [用户信息]![List25]
With CodeContextObject
rrr = "[用户信息]![姓名] = """
DoCmd.ApplyFilter "uuu", rrr
If (.RecordsetClone.RecordCount > 0) Then
[用户信息]![姓名] = Trim([Text 10])
[用户信息]![性别] = Trim([Combo8])
[用户信息]![年龄] = Trim([Text12])
[用户信息]![身份证号码] = Trim([Text14])
[用户信息]![联系电话] = Trim([Text16])
[用户信息]![家庭住址] = Trim([Text18])
[用户信息].Refresh
Else
MsgBox "该房间已经有客户入住!"
End If
End With
DoCmd.GoToRecord , , acNewRec
exit_Command24_Click:
Exit Sub
Err_Command24_Click:
MsgBox Err.Description
Resume exit_Command24_Click
End Sub
应该是这句代码出问题了:domcmd.FindRecord [用户信息]![List25]
你跟一下,看List25返回什么值?
到这里看看
http://www.hongen.com/pc/oa/ac2k/ac2k.htm
另外你可以安装一个access然后看帮助文件
再就是买本相关的书看看