VBA - MS Access 2016 - 从表单保存 CSV 并将表单中的值添加到文件名

如何解决VBA - MS Access 2016 - 从表单保存 CSV 并将表单中的值添加到文件名

我正在使用 Ms Access 2016 中的表单，并且使用 VBA，我需要添加到 VBA，以导出带有表单值的 csv 文件，并从表中向 CSV 添加更多列表单派生自，（都来自同一个表）只有一个表与表单相关联，“tblOnlineJobTable”，当在表单上单击名为“cmdaction”的按钮时，它会生成一个唯一的调度组代码，并添加它到“tblOnlineJobTable”，我需要添加 depatchgroup 代码值，该字段名为“txtDespatchGroupBatchNumber”到导出的 csv 文件名。

我听说先把表格转成报告会比较简单，然后再另存为CSV，这一切都需要点击“cmdaction”来实现。

我没有展示我尝试过的东西，因为它们都没有奏效，而且可能只会混淆问题。

我正在努力改变 VBA 以实现上述目标，当前的 VBA 是：

    Private Sub cmdaction_Click()

        If Me.Dirty Then Me.Dirty = False
    
     If Valid Then
    
        If Nz(Me.txtDespatchGroupBatchNumber,"") <> "" Then
            If vbNo = MsgBox("Warning - You have already sent this - this will create a new DGN number," & _
                    " Do you wish to continue?",vbQuestion + vbYesNo,"Warning") Then
                Exit Sub
            End If
        End If
    
        ' 01Aug17 - add the nz to get started
        ' 07aug17 - change the DGN to a text field
'        Me.txtDespatchGroupBatchNumber = Nz(DMax("DespatchGroupBatchNumber","tblOnlineJobTable"),0) + 1
        Me.txtDespatchGroupBatchNumber = "W" & Nz(DMax("DGNnumber","qryfrmDespatchEntry_maxDGN"),0) + 1

        DoCmd.SetWarnings False
        DoCmd.OpenQuery "qry_wtbl_DespatchEntry_update"
        
        ' 01Aug17
        DoCmd.OpenQuery "qry_wtbl_DespatchEntry_update_wtbl"
        DoCmd.SetWarnings True
        
        MsgBox "Jobs have been Updated",vbinformation,"information"
        
    ' 01aug17 - always enabled
    '        Me.cmdPrintDelivery.Enabled = True
        Me.cmdPrintDelivery.SetFocus
        Me.cmdaction.Enabled = False
        
    '''        DoCmd.Close acForm,Me.Name,acSaveNo
        End If
    
    End Sub