记录下最近做的个小ACCESS程序
[Forms]![窗体EBook报关清单CSV]![流水号]
是取项目中某个窗体上名字为流水号的文本框的值
下面是一个导出CSV文件的例子
Private Sub Command4_Click()
On Error GoTo Err_Command4_Click
Dim strname As String
Dim path As String
strname = [Forms]![窗体EBook报关清单CSV]![流水号]
strname = "M10-" & strname
path = "d:/" & strname & ".csv"
Dim dbs As Database
Dim rs As DAO.Recordset
Dim strSQL As String
Set dbs = CurrentDb()
strSQL = "SELECT EBOOK进口类型表.BOM开始有效期, EBOOK进口类型表.手册号, EBOOK进口类型表.进出口标志, EBOOK进口管控表C.料号, EBOOK进口管控表C.国家(地区)代码, EBOOK进口管控表C.申报总价, EBOOK进口管控表C.币制, EBOOK进口管控表C.申报数量, EBOOK进口类型表.征免性质, EBOOK进口类型表.用途, EBOOK进口管控表C.法定第一数量, EBOOK进口管控表C.第二数量, EBOOK进口类型表.版本号 FROM EBOOK进口管控表A INNER JOIN (EBOOK进口类型表 RIGHT JOIN EBOOK进口管控表C ON EBOOK进口类型表.进口类型=EBOOK进口管控表C.进口类型) ON EBOOK进口管控表A.[E-BOOK流水号]=EBOOK进口管控表C.流水号 WHERE EBOOK进口管控表A.[E-BOOK流水号] = " & Forms!窗体EBook报关清单CSV!流水号 & " ORDER BY EBOOK进口管控表A.登记时间, [年份标志] & [E-book流水号]"
Set rs = dbs.OpenRecordset(strSQL)
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(path, True)
Do While Not rs.EOF
tf.Write (rs(0))
For i = 1 To rs.Fields.Count - 1
tf.Write (",")
tf.Write (rs(i))
Next
tf.WriteBlankLines (1)
rs.MoveNext
Loop
Exit_Command4_Click:
Exit Sub
Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click
End Sub