版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

[求助] access內(nèi)某個字段為空時，向word導(dǎo)入數(shù)據(jù)，提示：數(shù)據(jù)類型錯誤，請問如何克服？含文件已有1人參與

在網(wǎng)上找了一個《【access源碼示例】-word導(dǎo)入導(dǎo)出系列-替換方式導(dǎo)出》，想要學(xué)習(xí)。
在學(xué)習(xí)《【access源碼示例】-word導(dǎo)入導(dǎo)出系列-替換方式導(dǎo)出》過程中，發(fā)現(xiàn)該程序存在一個缺陷。
缺陷如下：如果某個字段為空，那么會提示類型錯誤，同時出現(xiàn)該字段為空，其他在后字段也為空的問題。

麻煩哪位高手指點下如何解決這個問題，最好能夠直接在數(shù)據(jù)庫中進(jìn)行修改，謝謝！

原始鏈接：http://www.accessoft.com/article-show.asp?id=7264
同時一并附上數(shù)據(jù)庫。

回復(fù)此樓

» 本帖附件資源列表

歡迎監(jiān)督和反饋：小木蟲僅提供交流平臺，不對該內(nèi)容負(fù)責(zé)。
本內(nèi)容由用戶自主發(fā)布，如果其內(nèi)容涉及到知識產(chǎn)權(quán)問題，其責(zé)任在于用戶本人，如對版權(quán)有異議，請聯(lián)系郵箱：xiaomuchong@tal.com
附件 1 : 20120806083414.rar

2014-07-20 12:21:45, 97.45 K

» 猜你喜歡

284求調(diào)劑已經(jīng)有10人回復(fù)
一志愿山東大學(xué)藥學(xué)學(xué)碩求調(diào)劑已經(jīng)有4人回復(fù)
07化學(xué)280分求調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有12人回復(fù)
求材料，環(huán)境專業(yè)調(diào)劑已經(jīng)有3人回復(fù)
335求調(diào)劑已經(jīng)有5人回復(fù)
求調(diào)劑已經(jīng)有7人回復(fù)
一志愿吉大化學(xué)322求調(diào)劑已經(jīng)有4人回復(fù)
環(huán)境學(xué)碩288求調(diào)劑已經(jīng)有8人回復(fù)
341求調(diào)劑(一志愿湖南大學(xué)070300) 已經(jīng)有6人回復(fù)

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

麻煩給段vba代碼，實現(xiàn)access數(shù)據(jù)自動導(dǎo)入到word中已經(jīng)有3人回復(fù)
請問如何將Access中的數(shù)據(jù)自動填寫到到word中？已經(jīng)有6人回復(fù)

1樓 2014-07-20 12:27:51

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

Private Sub 導(dǎo)出word_Click()
On Error GoTo Err_cmdExportToWord_Click
Dim objApp       As Object 'Word.Application
Dim objDoc       As Object 'Word.Document
Dim objTable       As Object 'Word.Table
Dim strTemplates As String '模板文件路徑名
Dim strFileName    As String '將數(shù)據(jù)導(dǎo)出到此文件
Dim D_Price As Currency
Dim I As Integer

strTemplates = CurrentProject.Path & "\word模板\采購訂單模板.doc"

'通過文件對話框生成另存為文件名
With FileDialog(2)  'msoFileDialogSaveAs
      .InitialFileName = CurrentProject.Path & "\" & Me.訂單編號 & "-采購訂單.doc"
      If .Show Then strFileName = .SelectedItems(1)
End With

'如果對話框被取消，則變量沒有被賦值，退出過程
If strFileName = "" Then Exit Sub

'文件名必須包括“.doc”的文件擴(kuò)展名，如沒有則自動加上
If Not strFileName Like "*.doc" Then strFileName = strFileName & ".doc"
'如果文件已存在，則刪除已有文件
If Dir(strFileName) <> "" Then Kill strFileName

'將光標(biāo)設(shè)置為沙漏形，以示正在執(zhí)行程序
DoCmd.Hourglass True

'打開模板文件
Set objApp = CreateObject("Word.Application"

objApp.Visible = True
Set objDoc = objApp.Documents.Open(strTemplates, , True)

lngI = Nz(DCount("*", "采購明細(xì)表", "訂單ID = " & Me.訂單ID & ""

, 0)
'如果訂單明細(xì)記錄大于0才導(dǎo)出明細(xì)
If lngI > 0 Then
D_Price = DSum("金額", "采購明細(xì)表", "訂單ID = " & Me.訂單ID & ""

      Set objTable = objDoc.Tables(1)
      For I = 1 To lngI - 1
         Set rowNew = objTable.Rows.Add(beforeRow:=objTable.Rows(2))
      Next

      '向Word中對應(yīng)表格單元格寫入數(shù)據(jù)
      I = 2
      With objTable
         Set rst = CurrentProject.Connection.Execute("select 產(chǎn)品名稱,規(guī)格,數(shù)量,單位,單價,金額 from 采購明細(xì)表 where 訂單ID = " & Me.訂單ID)
         Do While Not rst.EOF
            .Cell(I, 1).Range = rst("產(chǎn)品名稱"

.Cell(I, 2).Range = rst("規(guī)格"

.Cell(I, 3).Range = rst("單位"

.Cell(I, 4).Range = rst("數(shù)量"

.Cell(I, 5).Range = rst("單價"

.Cell(I, 6).Range = rst("金額"

            I = I + 1
         rst.MoveNext
         Loop
         rst.Close
         Set rst = Nothing
      End With
End If

With objApp.Application.Selection
         .Find.ClearFormatting
         .Find.Replacement.ClearFormatting
            With .Find
                  .Text = "{$訂單編號}"
                  .Replacement.Text = Me.訂單編號.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$供方地址}"
                  .Replacement.Text = Me.地址.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$供應(yīng)商}"
                  .Replacement.Text = Me.供應(yīng)商.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$聯(lián)系人}"
                  .Replacement.Text = Me.聯(lián)系人.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$簽訂日期}"
                  .Replacement.Text = Me.簽訂日期.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$采購員}"
                  .Replacement.Text = Me.采購員.Value & ""
               End With
            .Find.Execute Replace:=wdReplaceAll
            With .Find
                  .Text = "{$金額}"
                  .Replacement.Text = D_Price
               End With
            .Find.Execute Replace:=wdReplaceAll
End With

'將寫入數(shù)據(jù)的模板另存為文檔文件
objDoc.SaveAs strFileName
objDoc.Saved = True


Exit_cmdExportToWord_Click:
If Not objDoc Is Nothing Then objApp.Visible = True
'恢復(fù)光標(biāo)形狀
DoCmd.Hourglass False
Set objApp = Nothing
Set objDoc = Nothing
Set objTable = Nothing
Exit Sub

Err_cmdExportToWord_Click:
MsgBox Err.Description, vbCritical, "出錯"
Resume Exit_cmdExportToWord_Click
End Sub

贊一下

回復(fù)此樓

2樓2014-07-20 16:57:58

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

引用回帖:

2樓: Originally posted by wilstar at 2014-07-20 16:57:58
Private Sub 導(dǎo)出word_Click()
On Error GoTo Err_cmdExportToWord_Click
Dim objApp       As Object 'Word.Application
Dim objDoc       As Object 'Word.Document
Dim objTable       A ...

麻煩哪位大仙給我詳細(xì)解釋下這段代碼，可以么？金幣照樣送

我想了解這段代碼，然后修改后，為己所用，但改了一天，還是不停的報錯

所以就像讓哪位高手指點下

贊一下

回復(fù)此樓

3樓2014-07-20 17:00:19

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

Set rst = CurrentProject.Connection.Execute("select 產(chǎn)品名稱,規(guī)格,數(shù)量,單位,單價,金額 from 采購明細(xì)表 where 訂單ID = " & Me.訂單ID)

而且這句話，不知道是什么意義，當(dāng)我將“訂單ID”換成其他“日期ID”，同時修改相應(yīng)的表格后，還是一直報錯，感覺只能用“訂單ID”樣，求高手指點啊

贊一下

回復(fù)此樓

4樓2014-07-20 17:21:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

claro

金蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 1309.7
紅花: 2
帖子: 102
在線: 60.1小時
蟲號: 945008
注冊: 2010-01-19
專業(yè): 計算機(jī)應(yīng)用技術(shù)

【答案】應(yīng)助回帖

感謝參與，應(yīng)助指數(shù) +1

幫你看看，應(yīng)該是做個異常的轉(zhuǎn)換就可以

[ 發(fā)自手機(jī)版 http://www.gaoyang168.com/3g ]

贊一下

回復(fù)此樓

5樓2014-07-21 06:18:45

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

引用回帖:

5樓: Originally posted by claro at 2014-07-21 06:18:45
幫你看看，應(yīng)該是做個異常的轉(zhuǎn)換就可以

謝謝了
昨天改了一天，頭都大了，哎，還是學(xué)藝不精啊

贊一下

回復(fù)此樓

6樓2014-07-21 08:42:36

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

claro

金蟲 (小有名氣)

應(yīng)助: 4 (幼兒園)
金幣: 1309.7
紅花: 2
帖子: 102
在線: 60.1小時
蟲號: 945008
注冊: 2010-01-19
專業(yè): 計算機(jī)應(yīng)用技術(shù)

【答案】應(yīng)助回帖

'對不起，這兩天忙，解決了嗎？

[ 發(fā)自手機(jī)版 http://www.gaoyang168.com/3g ]

贊一下

回復(fù)此樓

» 本帖已獲得的紅花（最新10朵）

wilstar

7樓2014-07-23 06:39:04

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

wilstar

金蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 826.5
散金: 167
紅花: 1
帖子: 379
在線: 90.1小時
蟲號: 685867
注冊: 2009-01-01

送紅花一朵

引用回帖:

7樓: Originally posted by claro at 2014-07-23 06:39:04
'對不起，這兩天忙，解決了嗎？

還沒呢？老是報錯，哎
你有時間的話，就幫我看下嘛，如果你忙的話，就不急哈

贊一下

回復(fù)此樓

8樓2014-07-23 08:20:32

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 wilstar 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 生物學(xué)一志愿985，分?jǐn)?shù)349求調(diào)劑 +6	zxts12 2026-03-21	9/450	2026-03-23 18:37 by macy2011
[考研] 08工學(xué)調(diào)劑 +7	用戶573181 2026-03-20	11/550	2026-03-23 15:47 by 我愛學(xué)習(xí)學(xué)習(xí)使?/a>
[考研] 328求調(diào)劑 +4	LHHL66 2026-03-23	4/200	2026-03-23 14:55 by lbsjt
[考研] 315分，誠求調(diào)劑，材料與化工085600 +3	13756423260 2026-03-22	3/150	2026-03-22 20:11 by edmund7
[考研] 一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。 +3	晨昏線與星海 2026-03-20	3/150	2026-03-22 16:00 by ColorlessPI
[考研] 311求調(diào)劑 +3	26研0 2026-03-20	3/150	2026-03-22 14:46 by ColorlessPI
[考研] 280求調(diào)劑 +11	咕嚕曉曉 2026-03-18	12/600	2026-03-21 22:40 by ACS Nano——
[考研] 材料學(xué)碩333求調(diào)劑 +3	北道巷 2026-03-18	3/150	2026-03-21 18:17 by 學(xué)員8dgXkO
[考研] 313求調(diào)劑 +4	肆叁貳壹22 2026-03-19	4/200	2026-03-21 17:33 by ColorlessPI
[考研] 22 350 本科985求調(diào)劑，求老登收留 +3	李軼男003 2026-03-20	3/150	2026-03-21 13:28 by 搏擊518
[考研] 303求調(diào)劑 +5	睿08 2026-03-17	7/350	2026-03-21 03:11 by JourneyLucky
[考研] 324分 085600材料化工求調(diào)劑 +4	llllkkkhh 2026-03-18	4/200	2026-03-21 01:24 by JourneyLucky
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +5	守候夕陽CF 2026-03-18	5/250	2026-03-21 01:06 by JourneyLucky
[考研] 296求調(diào)劑 +6	www_q 2026-03-18	10/500	2026-03-20 23:56 by JourneyLucky
[考研] 330求調(diào)劑 +4	小材化本科 2026-03-18	4/200	2026-03-20 23:13 by JourneyLucky
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +11	Ymlll 2026-03-18	15/750	2026-03-20 19:40 by 丁丁*
[考研] 生物學(xué)調(diào)劑招人�。�！ +3	山海天嵐 2026-03-17	4/200	2026-03-19 21:34 by 怎么釋懷
[考研] 一志愿福大288有機(jī)化學(xué)，求調(diào)劑 +3	小木蟲200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu
[考研] 0703化學(xué)調(diào)劑 +3	妮妮ninicgb 2026-03-17	3/150	2026-03-18 10:29 by macy2011
[考博] 26博士申請 +3	1042136743 2026-03-17	3/150	2026-03-17 23:30 by 輕松不少隨

24小時熱門版塊排行榜

[求助] access內(nèi)某個字段為空時，向word導(dǎo)入數(shù)據(jù)，提示：數(shù)據(jù)類型錯誤，請問如何克服？含文件 已有1人參與

» 本帖附件資源列表

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本帖已獲得的紅花（最新10朵）

[求助] access內(nèi)某個字段為空時，向word導(dǎo)入數(shù)據(jù)，提示：數(shù)據(jù)類型錯誤，請問如何克服？含文件已有1人參與

» 本主題相關(guān)價值貼推薦，對您同樣有幫助: