• Trang chủ click to expand contents 

  • 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" 


    [Hình: Export2Word.gif]

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