版塊導航: 正在加載中...

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (6762)
>考研 (1585)
>導師招生 (1517)
>文獻求助 (543)
>蟲友互識 (354)
>考博 (232)
>休閑灌水 (214)
>基金申請 (208)
>碩博家園 (178)
>招聘信息布告欄 (138)
>博后之家 (125)
>論文投稿 (62)
>綠色求助(高懸賞) (51)
>找工作 (49)
>SciFinder/Reaxys (33)
>教師之家 (27)

返回列表

wilstar

金蟲 (正式寫手)

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

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

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

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

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

回復此樓

» 本帖附件資源列表

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

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

» 猜你喜歡

材料/農(nóng)業(yè)專業(yè)，07/08開頭均可，過線就行已經(jīng)有4人回復
327求調(diào)劑已經(jīng)有5人回復
361求調(diào)劑已經(jīng)有3人回復
一志愿中南大學化學學碩0703總分337求調(diào)劑已經(jīng)有5人回復
一志愿北京化工大學 070300 學碩 336分求調(diào)劑已經(jīng)有6人回復
材料專業(yè)求調(diào)劑已經(jīng)有10人回復
341求調(diào)劑(一志愿湖南大學070300) 已經(jīng)有5人回復
0854 考研調(diào)劑招生了！AI 方向已經(jīng)有15人回復
384求調(diào)劑已經(jīng)有6人回復
生物學學碩求調(diào)劑已經(jīng)有4人回復

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

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

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

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

wilstar

金蟲 (正式寫手)

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

Private Sub 導出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ù)導出到此文件
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”的文件擴展名，如沒有則自動加上
If Not strFileName Like "*.doc" Then strFileName = strFileName & ".doc"
'如果文件已存在，則刪除已有文件
If Dir(strFileName) <> "" Then Kill strFileName

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

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

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

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

, 0)
'如果訂單明細記錄大于0才導出明細
If lngI > 0 Then
D_Price = DSum("金額", "采購明細表", "訂單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中對應表格單元格寫入數(shù)據(jù)
      I = 2
      With objTable
         Set rst = CurrentProject.Connection.Execute("select 產(chǎn)品名稱,規(guī)格,數(shù)量,單位,單價,金額 from 采購明細表 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 = "{$供應商}"
                  .Replacement.Text = Me.供應商.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
'恢復光標形狀
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

贊一下

回復此樓

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

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

wilstar

金蟲 (正式寫手)

應助: 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 導出word_Click()
On Error GoTo Err_cmdExportToWord_Click
Dim objApp       As Object 'Word.Application
Dim objDoc       As Object 'Word.Document
Dim objTable       A ...

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

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

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

贊一下

回復此樓

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

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

wilstar

金蟲 (正式寫手)

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

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

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

贊一下

回復此樓

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

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

claro

金蟲 (小有名氣)

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

【答案】應助回帖

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

幫你看看，應該是做個異常的轉換就可以

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

贊一下

回復此樓

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

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

wilstar

金蟲 (正式寫手)

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

引用回帖:

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

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

贊一下

回復此樓

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

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

claro

金蟲 (小有名氣)

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

【答案】應助回帖

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

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

贊一下

回復此樓

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

wilstar

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

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

wilstar

金蟲 (正式寫手)

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

送紅花一朵

引用回帖:

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

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

贊一下

回復此樓

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

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

相關版塊跳轉我要訂閱樓主 wilstar 的主題更新

返回列表

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

[考研] 一志愿北京化工大學 070300 學碩 336分求調(diào)劑 +6	vv迷 2026-03-22	6/300	2026-03-23 22:00 by fuyu_
[考研] 一志愿南航材料專317分求調(diào)劑 +3	炸呀炸呀炸薯條 2026-03-23	3/150	2026-03-23 20:47 by pswait
[考研] 一志愿重慶大學085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta
[考研] 306求0703調(diào)劑一志愿華中師范 +6	紙魚ly 2026-03-21	7/350	2026-03-23 19:06 by macy2011
[考研] 07化學280分求調(diào)劑 +3	722865 2026-03-23	3/150	2026-03-23 18:48 by macy2011
[考研] 08工學調(diào)劑 +7	用戶573181 2026-03-20	11/550	2026-03-23 15:47 by 我愛學習學習使?/a>
[考研] 352求調(diào)劑 +3	大米飯！ 2026-03-22	3/150	2026-03-22 23:28 by king123！
[考研] 310求調(diào)劑 +4	baibai1314 2026-03-16	4/200	2026-03-22 20:19 by edmund7
[考研] 生物學調(diào)劑 +5	Surekei 2026-03-21	5/250	2026-03-22 14:39 by tcx007
[考研] 269專碩求調(diào)劑 +6	金恩貝 2026-03-21	6/300	2026-03-22 14:31 by ColorlessPI
[考研] 285求調(diào)劑 +6	ytter 2026-03-22	6/300	2026-03-22 12:09 by 星空星月
[考研] 286求調(diào)劑 +10	Faune 2026-03-21	10/500	2026-03-21 23:34 by 314126402
[考研] 資源與環(huán)境調(diào)劑申請(333分) +5	holy J 2026-03-21	5/250	2026-03-21 22:42 by Catalysis25
[考研] 求調(diào)劑 +3	13341 2026-03-20	3/150	2026-03-21 18:28 by 學員8dgXkO
[考研] 材料 271求調(diào)劑 +5	展信悅_ 2026-03-21	5/250	2026-03-21 17:29 by 學員8dgXkO
[考研] 302求調(diào)劑 +12	呼呼呼。。。。 2026-03-17	12/600	2026-03-21 17:29 by ColorlessPI
[考研] 299求調(diào)劑 +5	shxchem 2026-03-20	7/350	2026-03-21 17:09 by ColorlessPI
[考研] 304求調(diào)劑 +6	曼殊2266 2026-03-18	6/300	2026-03-21 00:32 by JourneyLucky
[考博] 申博26年 +3	八6八68 2026-03-19	3/150	2026-03-19 19:43 by nxgogo
[考研] 0703化學調(diào)劑 +5	pupcoco 2026-03-17	8/400	2026-03-19 13:58 by houyaoxu

24小時熱門版塊排行榜

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

» 本帖附件資源列表

» 猜你喜歡

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

【答案】應助回帖

【答案】應助回帖

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

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