|
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
請高手指導迷津,感恩!
|
|