关于提示框的问题

erin_lyj

有一查询表，名字为a，

想实现如下功能：

判断该查询表是否为空，若为空则出现提示框，说明此表为空，若表不为空，则将此查询结果导出txt为文件，代码我是这么写的，可是不对，如何更改呢？

If IsNull(a) Then
    msg = "no record"
    reSponse =  MsgBox(msg, Style)
    End If
    DoCmd.TransferText acExportDelim, "a导出规格", "a", "D:\a.txt"