ACCESS无效使用null

来源：百度知道编辑：UC知道时间：2024/05/21 09:57:51

自己用ACCESS做的一个出卷系统的代码，在查看试卷这部分的代码出现了无效使用NULL 错误不知道怎么改，高手指导一下。
代码如下：Private Sub cmdSave_Click()
Dim fso As New FileSystemObject, fil As TextStream
CommonDialog1.DialogTitle = "选择试卷文件路径/指定文件名"
CommonDialog1.Filter = "试卷文件（*.txt）|*.txt"
CommonDialog1.FileName = Application.CurrentProject.Path & "\我的试卷.txt"
Do
CommonDialog1.ShowSave
If fso.FileExists(CommonDialog1.FileName) Then
n = MsgBox(CommonDialog1.FileName & vbCrLf _
& "已存在，是否覆盖该文件？", vbCritical + vbYesNo)
If n = vbYes Then Exit Do
Else
Exit Do
End If
Loop
'将生成的试卷和答案写入文件
Set fil = fso.CreateTextFile(CommonDialog1.FileName)
fil.WriteLine txtTest
fil.Close
MsgBox "试卷已成功保存到<" & CommonDialog1.FileName _
& ">中！", vbInfo

Private Sub cmdSave_Click()
Dim fso As New FileSystemObject, fil As TextStream
CommonDialog1.DialogTitle = "选择试卷文件路径/指定文件名"
CommonDialog1.Filter = "试卷文件（*.txt）|*.txt"
CommonDialog1.FileName = Application.CurrentProject.Path & "\我的试卷.txt"
Do
CommonDialog1.ShowSave
If fso.FileExists(CommonDialog1.FileName) Then
n = MsgBox(CommonDialog1.FileName & vbCrLf _
& "已存在，是否覆盖该文件？", vbCritical + vbYesNo)
If n = vbYes Then Exit Do
Else
Exit Do
End If
Loop
'将生成的试卷和答案写入文件
Set fil = fso.CreateTextFile(CommonDialog1.FileName)
if isnull(txtTest )=true then
msgbox "现在 txtTest 是NULL值，无法继续执行！"
else
fil.WriteLine txtTest
fil.Close
MsgBox "试卷已成功保存到<" & CommonDialog1.FileName _
& ">中！", vbInformation
isSaved = True
end if
End Sub

求救:无效使用NULL 无效使用Null: 'Split' 无效使用 Null: 'clng' 急救!无效使用 Null: 'Cint' 无效使用 Null : "replace" 的问题无效使用 Null: 'replace'，什么问题？ VB连接数据库问题实时错误94 无效使用NULL asp的新闻系统为什么有时在删除记录时会提示:"无效使用 Null: 'Split' " ACCESS NULL值应如何计算 access使用