討論區快速選單
知識庫快速選單
掌握Salesforce雲端管理秘訣 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
Access表單的子表單的子表單的第2記錄,如何可以导出成为Word的电子表格
更改我的閱讀文章字型大小
作者 : dunhill0825(dunhill0825)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/10/10 上午 08:29:19
問題說明圖片:
http://img209.imageshack.us/img209/9690/1y12.png

問題程式如下:
Private Sub Command264_Click()
On Error GoTo Err_Command264_Click

    Set WordApp = CreateObject("Word.Application") '創建 Word 應用類
    WordApp.Visible = True '設置 Word 可見
    Set Word = WordApp.Documents.Open("E:\accesstest\testword.doc") '打開 Word 工作簿
    With Word.Tables(1)

    .cell(1, 2) = Forms![客戶資料查詢表]![建築物表]!建物門牌
    .cell(2, 3) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!附屬建物
    .cell(3, 3) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!面積
    
'以下已試過都不行
' DoCmd.GoToRecord , , acNext
' Me![建築物表]![建_附屬 子表單]![附屬建物].SetFocus
    
' DoCmd.GoToRecord acActiveDataObject, , acNext
' DoEvents
' DoCmd.GoToRecord , , acNext, 2

    .cell(2, 4) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!附屬建物
    .cell(3, 4) = Forms![客戶資料查詢表]![建築物表]![建_附屬 子表單]!面積
    End With

Exit_Command264_Click:
    Exit Sub

Err_Command264_Click:
    MsgBox Err.Description
    Resume Exit_Command264_Click
End Sub

 請高手指導迷津,感恩!
作者 : dunhill0825(dunhill0825)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/10/14 下午 05:23:08
已解決
作者 : dunhill0825(dunhill0825)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/10/14 下午 05:23:30
已解決
 板主 : 徵求中
 > Access - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Access - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Access
1 史努比 4480 
2 坤哥 3600 
3 rudy 1700 
4 tiger 1300 
5 EC2002 910 
6 阿呆紅 730 
7 hwangtw 550 
8 jkych 530 
9 小老頭 190 
10 阿酷 180 
Access
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
3.100586E-02