Access表單的子表單的子表單的第2記錄，如何可以导出成为Word的电子表格 / Access / 程式設計俱樂部

討論區快速選單

知識庫快速選單

討論區最近新進100則主題

CSSLP認證，將資安落實在軟體開發中

[ 回上頁 ] [ 討論區發言規則 ]

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 次 ]
[ 給個讚 ] [ 給個讚 ] [ 回應本文 ] [ 發表新文 ] [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]