ACCESS相关

记录下最近做的个小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