请帮忙VB程序哪里错了!

来源:百度知道 编辑:UC知道 时间:2024/06/03 20:11:07
提示:编译错误,变量未定义。请帮我看下,谢谢!

'记录查询
Public Sub RecordFind()
frmManRecord2.Show 1
If Trim(frmManRecord2.sQSql & " ") <> "" Then

msSql = msSelect & msTableName & " where" & frmManRecord2.sQSql & msOrderBy
ShowData
End If
Unload frmManRecord2
End Sub
有frmManRecord2这个窗体,好像是msSelect未定义吧!

1、首先有没有frmManRecord2这个窗体;
2、frmManRecord2.sQSql这个属性是哪来的?
3、msSql=msSelect & msTableName & " where" & frmManRecord2.sQSql & msOrderBy ShowData这些变量是否定义;

你用到的变量都没定义,定义下就好了