在sccess中运行小程序总提示“输入参数值”，我认为a已经赋值，怎么还是提示输入参数值报错
当运行如下小程序时，？，不知道这个小程序哪编错了，请各位帮忙找找！

Private Sub Command0_Click()
Dim a As String
On Error GoTo HandleErr
a = Left(list2(), 3)

DoCmd.OpenForm "全屏幕查询"
With Forms!全屏幕查询
mstrsql = "SELECT * FROM 家庭状况 WHERE left([住房编号],3) = [" & a & "]"
.RecordSource = mstrsql
!cmdFind.Caption = "全部显示(&S)"
End With

ExitHere:
Exit Sub

HandleErr:

Resume ExitHere
Resume

End Sub


[解决办法]
打断点，看一下mstrsql 变量的实际内容。应该是语句中有什么东西并不是字段名。


QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》