如何做大于某一数字的代码

愉快　发表于：2009-04-24 09:20:17 　

以下是我写写的代码，其他没有问题，就是大于的不对：

Private Sub Command15_Click()

Dim strSQL As String

strSQL = "select * from tblgdzlb where 1=1"

If IsNull(Me.Text9) = False Then

strSQL = strSQL & " and 持股数 >= #" & Me.Text9 & "#"

End If '此是我写的持股数代码

If IsNull(Me.Text11) = False Then

strSQL = strSQL & " and 登记日期 >= #" & Me.Text11 & "#"

End If

If IsNull(Me.Text13) = False Then

strSQL = strSQL & " and 登记日期 <= #" & Me.Text13 & "#"

End If

Me.chgdzlb.Form.RecordSource = strSQL

Me.chgdzlb.Form.Refresh

End Sub

豆豆发表于：2009-04-24 09:56:09

strSQL = strSQL & " and 持股数 >= #" & Me.Text9 & "#"

改为

strSQL = strSQL & " and 持股数 >= " & Me.Text9

愉快发表于：2009-04-24 10:01:45

不对，提示错误，并在下面字段打颜色

Me.chgdzlb.Form.RecordSource = strSQL

豆豆发表于：2009-04-24 10:03:33

有附件吗？

赵文斌发表于：2009-04-24 10:32:52

strSQL = strSQL & " and 持股数 >= #" & Me.Text9 & "#"

改为

strSQL = strSQL & " and 持股数 >= " & Me.Text9

改为：strsql=strsql & " and 持股数 >= val('" & Me.Text9 &"')"

持股数的数据类型是不是数字型的。如果不是转换一下

PANZJ 发表于：2009-04-24 10:45:14

strSQL = "select * from tblgdzlb where 1=1"

这个红色的1是什么? 还有楼上讲的注意Me.Text9数据类型

愉快发表于：2009-04-24 11:55:21

zhaowb　厉害，谢谢。

总记录：6篇页次：1/1 9 1 :

Access交流中心