Office中国论坛/Access中国论坛

标题: 如何判断一个文本框的值是数字格式还是文本格式？ [打印本页]

作者: wmok 时间: 2007-9-8 10:07
标题: 如何判断一个文本框的值是数字格式还是文本格式？
如何判断一个文本框的值是数字格式还是文本格式？

tks!!!

作者: wmok 时间: 2007-9-8 10:10
因为以这个文本框为条件做查询的时候，在SQL查询语句中以“数字格式”和“文本格式”为值的写法是不一样的
文本格式要加''
而数字就不用。。。

作者: tz-chf 时间: 2007-9-8 10:36
IsNumeric()

作者: wmok 时间: 2007-9-8 10:38
我用了这段代码来格式化字符串，也不行！（对数字型和日期型不起作用）

作者: wmok 时间: 2007-9-8 10:39
Option Compare Database

Function Q(ByVal SqlVariable As Variant) As String

'-----------------------------------------

'　　　　Notes: Useful in creating properly FORMatted SQL statements

'　　　　Usage: sql="select * from table where name= " & Q(vntName)

'　　　　这个版本格式化适用于Access的变量，若支持其它数据库或许需要对其进行修改

'-----------------------------------------

On Error GoTo ErrTrap

Q = SqlVariable

'FORMat the string

Select Case varType(SqlVariable)

Case vbNull, vbEmpty

Q = "NULL"

Case vbString

Q = "'" & Replace(SqlVariable, "'", "''") & "'"

'date variable

Case vbDate

'FORMat and enclose in pounds signs for Access

Q = "#" & Format$(SqlVariable, "general date") & "#"

'otherwise treat as numeric

Case Else

On Error Resume Next

Q = CStr(SqlVariable)

If err.Number <> 0 Then Q = SqlVariable

End Select

Exit Function

ErrTrap:

On Error GoTo 0

End Function

作者: tz-chf 时间: 2007-9-8 11:12
你是不是搞颠倒了。哪道不是以sql的要求加引号，而是以文本框为准吗？

作者: wmok 时间: 2007-9-8 13:02
问题已经解决，谢谢!

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