-
Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 11:04 AM
Mình có vấn đề như sau. Mình đã tạo được code xuất dữ liệu từ access vào file word có sẵn kèm 1 msgbox "da xuat file thanh ong". Nhưng cho mình hỏi có cách nào để khi bấm tắt thông báo đó đi ( mặc định là nút OK trên windows) thì cửa sổ file word đó tự active lên màn hình không?
Code của mình đây ạ:
Mã:Private Sub xuatfileword_Click()
Dim oApp As Object, doc As Object
Dim strDocName As String
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
'Xuat sang file word 1
strDocName = CurrentProject.Path & "\THONGKE.dotx"
Set doc = oApp.Documents.Add(strDocName)
On Error Resume Next
doc.FormFields("Text1").Result = tenlop.Value
doc.FormFields("Text2").Result = malop.Value
oApp.ActiveDocument.SaveAs FileName:=CurrentProject.Path & "\THONGKE\" & "THANG " & Month(Now()) & " " & Year(Now()) & ".doc"
Set oApp = Nothing
MsgBox "Xuat data thanh cong! Luu file tai " & CurrentProject.Path & "\THONGKE\"
oApp.Activate
End Sub
nhưng vẫn không được, màn hình word cứ ẩn dưới taskbar chứ không active lên màn hình. Mong các bạn chỉ giáo thêm -
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
ongke0711 > 20-12-21, 11:50 AM
Bạn Set oApp=Nothing rồi lấy gì mà Activate nó nữa.
Mã PHP:oApp.Visible = True
oApp.Activate -
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 11:52 AM
-
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 12:20 PM
help me T_T -
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
ongke0711 > 20-12-21, 12:46 PM
(20-12-21, 11:52 AM)doandinhtam Đã viết:
(20-12-21, 11:50 AM)ongke0711 Đã viết: Bạn Set oApp=Nothing rồi lấy gì mà Activate nó nữa.
Mã PHP:oApp.Visible = True
oApp.Activate
e đã fix theo ý bác nhưng sau khi mở lại file access thao tác lại thì chỉ hiện ra cái icon nhấp nháy dưới taskbar chứ không active cửa sổ nữa.
Nếu Form đang ở dạng Popup thì chắc là nó không kích hoạt cửa sổ Word được.
Bạn dùng hàm này xem.
Mã PHP:AppActivate "Word"
-
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 01:50 PM
Trích dẫn:Nếu Form đang ở dạng Popup thì chắc là nó không kích hoạt cửa sổ Word được.
Vẫn vậy bác ạ😞
Bạn dùng hàm này xem.
Mã PHP:AppActivate "Word"
-
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
ongke0711 > 20-12-21, 02:17 PM
bạn copy đoạn code lên xem. -
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 02:37 PM
-
RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang
doandinhtam > 20-12-21, 03:17 PM
e đã thử test trên máy em thì không được. nhưng mang qua máy khác thì lại được...