文本框默认值设置
我用VBA做了一个查询窗体，有最大值和最小值两个文本框，用SQL语句查询介于最大值和最小值之间的记录，请问要使文本框为空时默认为一个值（即未填入查询条件时也可按默认值查询出记录），代码如何写？
我写的是：If coalmax1.Text = "" Then
coalmax1.Text = 3.402823E+38
运行出错，哪位高手帮忙看下，不甚感激

[解决办法]
coalmax1.Text = cstr(3.402823E+38),试试
数字太大，不一定行
[解决办法]
coalmax1.Text = ""
这句把coalmax1控件弄成死循环了
[解决办法]

VB code

Private Sub coalmax1_Change()    Static lFlag As Long    If (lFlag) Then Exit Sub    If (Not IsNumeric(coalmax1) And coalmax1.Text <> "") Then        MsgBox "请输入数字", 48        lFlag = -1        coalmax1.Text = ""        lFlag = 0: Exit Sub    End If    If coalmax1.Text = "" Then        coalmax1.Text = 3.402823E+38        coalmax1.SelStart = 0        coalmax1.SelLength = &H7FFFFF    End IfEnd Sub