• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Active cửa sổ word sau khi xuất dữ liệu từ access sang

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] Active cửa sổ word sau khi xuất dữ liệu từ access sang
• Active cửa sổ word sau khi xuất dữ liệu từ access sang

• 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

  (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.

• 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.
  Bạn dùng hàm này xem.
  
  

  Mã PHP:

  AppActivate "Word" 


  Vẫn vậy bác ạ😞

• 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

  (20-12-21, 02:17 PM)ongke0711 Đã viết: bạn copy đoạn code lên xem.

  
  Nguyên cái code e để ở trên đó bác. E đã bỏ set oapp = nothing và thêm activate “word” rồi nhưng cứ tắt đi mở lại là lại bị. Form của e thiết kế dạng pop-up như bác nói 😞

• RE: Active cửa sổ word sau khi xuất dữ liệu từ access sang

  ongke0711 > 20-12-21, 02:44 PM

  Form trong hình này tôi để ở chế độ Popup = Yes, Modal = Yes mà nó vẫn hoạt động đúng ý đồ.
  Với 2 dòng lệnh sau:
  
  

  Mã PHP:

  appWord.Visible = True
AppActivate "Word" 


  
  
  

• 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...
• Bài trước Bài tiếp