问题描述
我正在使用 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
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)