Thủ Thuật Access - Tương tác Chương trình ngoài

TẠO THÔNG BÁO NHẮC NHỞ CÔNG VIỆC - EXCEL + POWERSHELL + TASK SCHEDULER

Mon, 30 Mar 2026 16:39:59 +0000

Đây là một ứng dụng nhỏ cài task vào hệ thống Windows thông qua Task Scheduler, để hiển thị thông báo nhắc nhở các công việc cần làm.
+ Dùng file Excel để liệt kê theo dõi công việc.
+ Powershell sẽ hiển thị các công việc đến hạn lên bảng (dùng Form của .NET). Trước đây dùng file VBScript (VBS) khá là tiện nhưng Microsoft đã không còn hỗ trợ nên các phiên bản Windows 11 sau này (24H2) không có VBS. Muốn chạy được thì phải tự cài thêm (trong Windows features).
+ Task scheduler sẽ định kỳ vào một khoảng thời gian qui định (chạy file PowerShell) sẽ hiện thông báo lên màn hình máy tính để nhắc nhở thực hiện.

Vì code để hiển thị thông báo đơn giản nên vẫn sẽ có một số hạn chế, lỗi như:
- Vẫn hiện màn hình console.
- Người dùng phải mở file excel để bấm cập nhật công việc thì hệ thống thông báo mới đúng và đủ.

*** Lưu ý: Copy nguyên thư mục và giữ nguyên các file trong đó để ứng dụng hoạt động đúng.
Thư mục phải luôn đảm bảo có 2 file là: NhacNhoCongViec.xlsm và NhacNhoCongViecForm.ps1
Không được đổi tên thư mục [Tool_KhongXoa].

Ghi chú thêm:
- File PowerShell (PS) có thể trực tiếp mở file Excel để lấy thông tin đưa vào bảng nhưng tôi không dùng code này để tránh đụng khi người dùng đang thao tác trên file Excel này. Hơn nữa để PS làm việc với Excel thì sẽ phải nạp thêm thư việc "Import-Excel" nhưng đối với máy không có quyền Administrator sẽ phải thêm mấy bước cài đặt -> hơi phiền phức .
- Sau này tôi sẽ làm một phiên bản khác có tuỳ chọn hiển thị thông tin ở mục thông báo góc phải dưới màn hình. Hoặc dùng msg.exe của Windows để hiện thông báo thuần tuý dạng text đơn giản.

Link file: https://www.mediafire.com/file/fj7ps4uew...c.zip/file

Lấy dữ liệu từ Api của web và đẩy ngược lại

Tue, 20 Jun 2023 16:27:59 +0000

Đã có bạn nào suy nghĩ đến việc sử dụng acess để lấy thông tin từ Api của các website và đây ngược lại dữ liệu qua Api chưa?
có bạn nào nghiên cứu rồi thảo luận chia sẻ cho minh với

Tìm kiếm tiếng việt khi Link Access đến SQL Server

Mon, 29 May 2023 03:57:12 +0000

Em có chương trình trên Web, Data là SQL Server; khi nhập liệu trên Web thì code là:

Mã PHP:
Dim SqlString As String = "INSERT INTO tblDienThoai ( [SoCV],[LoaiCV], [NgayCV], [NgayGiao], [Loai], [Noidung]) VALUES ('" & _
                SoCVTextBox0.Text & "', N'" & _
                LoaiCVTextBox0.Text.ToUpper & "', '" & _
                NgayCVTextBox0.Text & "', '" & _
                Today() & "', N'" & _
                DiDen.Text & "', N'" & _
                NoidungTextBox0.Text & "')”
        myConn.Open()
        cmd = New SqlCommand(SqlString, myConn)
        cmd.ExecuteNonQuery()
        myConn.Close() 

Giờ em dùng Access để link đến SQL Server rồi filter, có đoạn code sau:

Mã PHP:
    If Not IsNull(Me.txtND) Then
        strWhere1 = strWhere1 & "([Noidung] Like  ""*" & Me.txtND & "*"" ) AND "
    End If 

Nhưng không ra kết quả, em đoán là do bảng mã Unicode, khi nhập liệu trên Web thì có Prefix là : N'
Nếu Data trên Access thì đoạn code trên vẫn Filter bình thường
Vậy giờ em phải làm thế nào? các bác giúp em với.

TÌM BẠN GIỎI ACESS LÀM DỰ ÁN

Thu, 23 Mar 2023 02:30:46 +0000

Hiện tại mình nhiều việc, cần tìm một bạn giỏi Acess nhận làm đự án
YÊU CẦU CỤ THỂ

B1. Tạo một bảng trong Acess
Gồm
ID, stt, Họ tên, Giới tính, tuổi, Địa chỉ, ngày tháng, ghi chú, tổng tiền

B2.Tạo một form kết nối đến bảng acess
nhập liệu chỉnh sửa
B3. Tạo một bảng tương tự trên Mysql kết nối form ở B2 và trên Form B2 tạo nút đồng bộ và đồng bộ dữ liệu trên bảng Acess với bảng trên mysql
B4. tạo một hàm export từ bảng Acess ra excel.xlsx và impoort ngược lại
Phần mềm yêu cầu viết cộng nghệ kết nối nhanh, nhẹ
Mong liên hệ để được thảo luận thỏa thuận: ZAO:không chin, tam chin, hai bay sau,hai ba sau
CẢM ƠN

Kết nối Access đến SQL Server bị chậm khi cài máy ảo VMWare

Wed, 15 Jun 2022 01:13:23 +0000

Khi em cài máy ảo bằng phần mềm VMware thì nó bị ảnh hưởng đến kết nối của máy.
Bình thường em dùng MS Access kết nối tới SqlSV rất ổn nhưng từ khi cài máy ảo VMWare vào thì bị chậm trông thấy, mặc dù khi không dùng em đã tắt VMWare đi nhưng không cải thiện được.
Bập bõm lúc nhanh lúc chậm, em thử gỡ hẳn cài đặt VMWare ra thì lại không bị vấn đề đó nữa.
Em cảm ơn!

Lỗi không thể đăng nhập được FTP qua tài khoản local

Mon, 30 May 2022 09:55:17 +0000

Em có làm theo hướng dẫn để tạo FTP nhưng bị lỗi hiện đăng nhập dù nhập đúng tài khoản và mật khẩu cũng không được.
Và nhập trên trình duyệt web thì lỗi và không hiện gì cả.
Em đã mở cổng 21.
Em cảm ơn!

Cách lấy thông tin "Giá trị sử dụng BHYT" trên mạng

Tue, 26 Apr 2022 02:39:39 +0000

Tôi có Table chứa thông tin về Mã thẻ BHYT, Họ và tên, Ngày sinh của học sinh. Làm cách nào để lấy thông tin về giá trị sử dụng BHYT hiển thị lên form của Access?

Trang web tra cứu tại đây: https://baohiemxahoi.gov.vn/tracuu/Pages...-bhyt.aspx

Tôi thấy có hướng dẫn lấy thông tin doanh nghiệp tại https://thuthuataccess.com/forum/thread-11611.html
Tôi muốn làm form giống thế, nhưng khả năng có hạn, nên đành bó tay.

Rất mong các Bác hỗ trợ. Tôi vô cùng cảm ơn!

SQL Builder For Excel - Access - SQLite & Ms Server

Sat, 22 Jan 2022 03:40:38 +0000

I/ Yêu cầu hệ thống

1/ sử dụng hệ điều hành WindowsXP To Windows10

2/ máy tính cài đặt Ms Office Excel mọi phiên bản

II/ Thông tin ứng dụng

1/ ứng dụng SQL Builder sử dụng để truy vấn dữ liệu Excel - Access và SQLite

2/ ứng dụng SQL Builder Ms Server sử dụng để truy vấn dữ liệu từ Ms Server nếu máy tính bạn có cài và sử dụng nó

III/ Sơ lược vài điều cần thiết

1/ nếu hàng ngày bạn hay sử dụng Excel để tính toán +-*/ hoặc copy dữ liệu từ 1 File Excel khác lên thì bạn phải mở file đó lên xong copy nó ... vậy ứng dụng có thể giúp bạn làm điều đó mà ko cần thiết mở file đó lên ..... nếu bạn biết một chút về SQL thì có thể tùy chỉnh câu lệnh truy vấn dữ liệu vv...

2/ Khi bạn làm việc ở 1 Cty hay tổ chức chính trị nào đó mà IT họ khóa quyền quản trị PC lại thì việc cài đặt bất cứ cái gì vào PC sẻ rất khó khăn và không thể được ( trừ khi bạn h@ck nó ).... thì với ứng dụng nhỏ sau không cần thiết cài đặt chỉ Copy vào USB hay đâu đó trên PC nếu được thì bạn có thể mở lên và sử dụng bình thường ...

3/ Link Video sau đính kèm phía dưới là link tải ứng dụng hoàn toàn miễn phí ... đó là ứng dụng đầu tay Tôi phát hành miễn phí cho ai yêu thích và sử dụng nó ... Mọi chi tiết nếu cần có thể liên hệ qua Email: kieumanh366377@gmail.com

Ứng dụng nhỏ gọn thân thiện và dễ sử dụng cho Excel - Access - SQlite và Ms Server ...

https://youtu.be/XVMgxAKruDY

Tôi đang Fix lại code lược bỏ nhiều Unit ko sử dụng và Viết API + COM là những hàm tiện ích cơ bản nhất ... dự án cập nhật trên GitHub
đó là 1 API + COM ( 32 bit và 64 bit ) xuất hàm song song chung trong 1 DLL ... sử dụng cho VBA, vb6, Delphi, VB.net, C# +... ai quan tâm có thể sử dụng nó

https://github.com/KieuManh366377/FireMy...75f687e966

Lấy Dữ liệu Qua Internet - Phương Thức SQL TCP/IP

Tue, 21 Sep 2021 03:23:34 +0000

1/ đây là bản Demo lấy dữ liệu qua Internet ... Úp lên đây cho bạn nào dùng được thì dùng

2/ đọc file hướng dẫn kèm theo khi tải Files

3/ Nếu máy bạn nào cài Office 64 bít thì bắt buộc cài
Microsoft Access Database Engine 2010 Redistributable
của Ms link sau thì mới sử dụng được

Download Microsoft Access Database Engine 2010 Redistributable from Official Microsoft Download Center
www.microsoft.com www.microsoft.com

4/ Nếu máy bạn nào Office 32 bit thì bỏ qua mục số 3

5/ Trong file có sử dụng code của nước ngoài ( một Coder quốc tịch Đức Viết )

6/ Yêu cầu máy tính có kết nối internet thì mới sử dụng được

7/ Các bạn chuyên Access thì lấy dữ liệu Access về xong muốn làm gì thì tùy chỉnh lại cho phù hợp

8/ Xem video và cách sử dụng

https://youtu.be/P_DUG5DbLM0

9/ Link tải Files
https://drive.google.com/file/d/126R0YvM...sp=sharing

Xóa và thêm ảnh trên thư mục của website

Wed, 01 Sep 2021 11:08:28 +0000

Em có backend là Sql server dùng chung cho Ms Access và website. Trên website thì có thư mục ảnh chứa ảnh còn đường dẫn thì lưu vào database, ở trên website thì em có thể xóa ảnh trong thư mục và đường dẫn trong database. Vậy trong Ms Access thì làm sao mà trỏ đến được thư mục ảnh trên web để xóa hoặc thêm ạ? Vì em chỉ xóa được đường dẫn thôi còn ảnh trên thư mục web vẫn còn.
Em cảm ơn!

Addins Excel - SQL Builder For SQLite - Access - Excel - Ms Server

Wed, 23 Jun 2021 05:19:24 +0000

Addins cho Excel - SQL Builder - Sử dụng để truy xuất dữ liệu + Tạo SQL cơ bản bao gồm như sau:

1/ Excel
2/ Access
3/ SQLite
4/ Ms Server
5/ Tiện ích Copy Files ( Vì sử dụng tìm kiếm File theo cây thư mục nên tiện đó cho thêm vào Vì Form còn trống )
6/ Exports ra 2 hàm API cơ bản chỉ Copy File SQLBuilderLibrary.dll vào

C:\Windows\System32\SQLBuilderLibrary.dll và sử dụng...

7/ sẻ từng bước xuất thêm hàm như hàm lấy List TableName vv + EXE + ...

8/ Úp đây cho bạn nào cần thì sử dụng thế thôi

Video Demo
https://youtu.be/JGQx3FmRehs

là bản Demo chưa hoàn thiện sẻ phát sinh lỗi ... sẻ fix + viết thêm khi rảnh

Lấy dữ liệu từ phần mềm quản lý bệnh viện theo chuẩn HL7

Sun, 13 Jun 2021 02:38:58 +0000

Hiện tại mình có phần mềm nho nhỏ phục vụ việc in kết quả XN trong đơn vị, mình muốn lấy thông tin bệnh nhân từ phần mềm quản lý bệnh viện (đỡ cho việc nhập lại thông tin bệnh nhân) và up kết quả lên. Nhưng không rành về API cũng như chuẩn HL7 (chuẩn mà đơn vị mình đang sử dụng, dữ liệu trả về dạng xml). Có cao nhân nào rành về mảng này có thể chia sẽ kinh nghiệm, demo hoặc keyword được ko ạ! Cám ơn rất nhiều!

Format chiều cao (Height) table trong Power Point

Wed, 09 Jun 2021 07:17:11 +0000

Nhờ cả nhà giúp đỡ:
Tiên đã mày mò code VBA làm việc với file Power Point có sẳn từ Access như: Thêm, sửa, xóa, format các Shape, Table, ... đều OK. Nhưng để format chiều cao (Height) cho 1 table trong 1 trình chiếu thì không sao làm được (Không phải format từng dòng (row) trong table).
Nhờ cả nhà giúp đoạn code Format Height Table.
Đoạn code làm việc với file Power Point:

Mã:
Private Sub FormatTable()

    Dim sFile As String

    sFile = CurrentProject.Path & "\" & "TenSlide.pptx"

    Dim ppApp As Object

    Dim ppPres As Object

    Dim ppSlide As Object

    Dim oeff As Object

    On Error Resume Next

    Set ppApp = GetObject(, "PowerPoint.Application")

    If Err.Number <> 0 Then

        Err.Clear

        Set ppApp = CreateObject("PowerPoint.Application")

    End If

    ppApp.Visible = False

    Set ppPres = ppApp.Presentations.Open(FileName:=sFile, WithWindow:=msoTrue)

    Set ppSlide = ppPres.Slides(1)

    With ppSlide.Shapes(1).Table

       'Ghi thông tin vào table:

        .Cell(1, 1).Shape.TextFrame.TextRange.text = "Hello" 'Chạy OK

        'Format chiều cao cho dòng 1:

         .Rows(1).Height = 50 ' Chạy OK

         'Format chiều cao cho cả Table:

         .Height = 500 'Không format được. Nhờ ACE chỉ giúp đoạn này.

    End With

    ppPres.Save

'    ppPres.Close

'    ppApp.Quit

    Set ppApp = Nothing

    Set ppPres = Nothing

    Set ppCurrentSlide = Nothing

End Sub

Cảm ơn nhiều !

Cách hiển thị hình ảnh từ SQL server lên Form/Report

Thu, 29 Apr 2021 01:52:51 +0000

Xin chào quý vị cao nhân!

Số là tôi có DB dùng QLSV trên SQL server:
Trong table SinhVien có field Hinh_anh được khai báo kiểu image (không phải kiểu nvarchar(20) - sorry )để lưu dữ liệu hình ảnh của từng Sinh viên, mở lên thì thấy dữ liệu được lưu theo dạng 0xFF00D800FF00E000000010004A004600490046000000010001000000000....

Xin cao nhân chỉ giáo: Để hình ảnh này được hiển thị trên Form/Report của Access thì phải làm như thế nào?

- Hiện đang sử dụng Access 2010 (32 bit)
- Kết nối với DB của SQL server bằng cách Link các Table qua công cụ ODBC Database

Xin cảm ơn!

Demo_Code Xuất Lý lịch 2C sang Word (Full)

Fri, 15 Jan 2021 07:11:47 +0000

Vài hôm trước có bạn hỏi về xuất dữ liệu Access sang word thông qua chương trình có Lý lịch/ hợp đồng
Ở bài viết này, có thể xem là những kiểu xuất được tập hợp thông qua phiếu lý lịch viên chức.

Trong đoạn code bao gồm:
1. Code Xuất Phiếu Lý lịch, gồm:
+ Xuất Ảnh sang Word
+ Xuất Dữ liệu của nhiều Table trong Access sang Nhiều Table trong Word ( trong word table được kẻ đầu tiên được mặt định là table(0))
+ Tạo dòng mới cho table trong Word
+ Chỉnh kích thước, In đậm, In nghiêm.... trong word khi xuất
+ Xuất sang word lưu với tên mặc định/ có thể lựa chọn theo kiểu chỉnh mở (Add lên file mẫu)
+ Hàm hiển thị thông báo tiếng việt.

* Lưu ý: những dòng màu xanh không dùng trong đoạn code, để lại cho các bạn tham khảo tùy vào mục đích sử dụng của các bạn.

2. Hàm loại bỏ dấu tiếng việt.
Video minh họa

Code

Mã PHP:
Sub XuatLyLich()
On Error GoTo Loi
' Khoi tao Muon
Dim oApp As Object, oDoc As Object

' Ket noi som
'Dim oApp As Word.Application
'Dim oDoc As Word.Document

Dim LinkMau2c As String
Dim Dong As Long, Cot As Long

LinkMau2c = CurrentProject.Path & "\Mau\MauLyLich2C.dot"  ' Noi luu file Mau

' Khoi tao Word
'Set oApp = New Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Visible = True ' An file Word

' Khoi tao Mau 2C moi
Set oDoc = oApp.Documents.Open(LinkMau2c, , True) 'Chi xem:  Neu dung (LinkMau2c, , False) thi nhan mo lan 2 se hoi la Read Only:
'Set Doc = oApp.Documents.Add(LinkMau2c)        ' Khoi tao Mau 2C moi
With oDoc

'Ket noi tung Field rieng le, ' Chep thong tin vao file Word
'.FormFields("Madonvi").Result = Me.Madonvi
.FormFields("Socmnd").Result = Nz(Me.Socmnd)
Dim NC As String: NC = Format(Me.NgaycapCMND, "dd/MM/yyyy")
.FormFields("NgaycapCMND").Result = NC
.FormFields("Noicap").Result = Me.Noicap
.FormFields("Sobhxh").Result = Nz(Me.Sobhxh)
'.FormFields("Machucvus").Result = Me.Machucvus
.FormFields("Mangachs").Result = Me.Mangachs.Column(0)
.FormFields("Tenngach").Result = Me.Mangachs.Column(1)
'.FormFields("TenPhong").Result = Me.TenPhong
'.FormFields("Masothue").Result = Me.Masothue
.FormFields("Hoten").Result = Me.Hoten
.FormFields("Hoten2").Result = Me.Hoten
.FormFields("Ngaysinh").Result = Format(Day(Me.Ngaysinh), "00")
.FormFields("Thangsinh").Result = Format(Month(Me.Ngaysinh), "00")
.FormFields("Namsinh").Result = Year(Me.Ngaysinh)

' Dien ngay thang nam
.FormFields("Ngay").Result = Format(Day(Date), "00")
.FormFields("Thang").Result = Format(Month(Date), "00")
.FormFields("Nam").Result = Year(Date)

.FormFields("Gioitinh").Result = Me.Gioitinh
.FormFields("Noisinh").Result = Me.Noisinh
.FormFields("Quequan").Result = Me.Quequan
.FormFields("Noiohiennay").Result = Me.Noiohiennay
.FormFields("Noiohiennay2").Result = Me.Noiohiennay
.FormFields("Dantoc").Result = Me.Dantoc
.FormFields("Tongiao").Result = Me.Tongiao
.FormFields("Nghekhituyendung").Result = Me.Nghenghiepkhituyendung.Value
Dim NTD As String: NTD = Format(Me.Ngaytuyendung, "dd/MM/yyyy")
.FormFields("Ngaytuyendung").Result = NTD
.FormFields("Coquantuyendung").Result = Nz(Me.Coquantuyendung)
.FormFields("Chucdanhhientai").Result = Nz(Me.Chucdanhhientai)
.FormFields("Totnghieplopmay").Result = Nz(Me.Totnghieplopmay)
.FormFields("Trinhdochuyenmon").Result = Nz(Me.Trinhdochuyenmon)
.FormFields("Chuyennganh").Result = Nz(Me.Chuyennganh)
'.FormFields("Chuyenkhoa").Result = Me.Chuyenkhoa
'.FormFields("Thanhphanxuathan").Result = Me.Thanhphanxuathan
'.FormFields("Loaihopdong").Result = Me.Loaihopdong
Dim NVD As String: NVD = Format(Me.NgayvaoDang, "dd/MM/yyyy")
.FormFields("NgayvaoDang").Result = Nz(NVD)
Dim NCT As String: NCT = Format(DateAdd("YYYY", 1, Me.NgayvaoDang), "dd/MM/yyyy")
.FormFields("NgayChinhThuc").Result = Nz(NCT)
.FormFields("Lyluanchinhtri").Result = Nz(Me.Lyluanchinhtri)
.FormFields("Quanlynhanuoc").Result = Nz(Me.Quanlynhanuoc)
Dim NVDoan As String: NVDoan = Format(Me.NgayvaoDoan, "dd/MM/yyyy")
.FormFields("NgayvaoDoan").Result = Nz(NVDoan)
.FormFields("Bacluong").Result = Nz(Me.Bacluong)
.FormFields("Heso").Result = Nz(Me.Heso)
Dim NH As String: NH = Format(Me.Ngayhuong, "dd/MM/yyyy")
.FormFields("Ngayhuong").Result = Nz(NH)
.FormFields("Congviecduocgiao").Result = Nz(Me.Congviecduocgiao)
.FormFields("Chieucao").Result = Nz(Me.Chieucao)
.FormFields("Cangnang").Result = Nz(Me.Cangnang)
.FormFields("Nhommau").Result = Nz(Me.Nhommau)
.FormFields("Tenngoaingu").Result = Nz(Me.Tenngoaingu)
.FormFields("Trinhdongoaingu").Result = Nz(Me.Trinhdongoaingu)
.FormFields("Trinhdotinhoc").Result = Nz(Me.Trinhdotinhoc)
.FormFields("Ngoaingukhac").Result = Nz(Me.Ngoaingukhac)
.FormFields("pccv").Result = Me.pccv
'.FormFields("pckv").Result = Me.pckv
'.FormFields("vk").Result = Me.vk
'.FormFields("hsvk").Result = Me.hsvk
'.FormFields("pcth").Result = Me.pcth
'.FormFields("pctn").Result = Me.pctn
.FormFields("pcud").Result = Me.pcud
.FormFields("pcdh").Result = Me.pcdh
'.FormFields("pcbl").Result = Me.pcbl
'.FormFields("NgaythamgiaBHXH").Result = Me.NgaythamgiaBHXH
'.FormFields("BHXH").Result = Me.BHXH
'.FormFields("BHYT").Result = Me.BHYT
'.FormFields("BHTN").Result = Me.BHTN
'.FormFields("Giadinhchinhsach").Result = Me.Giadinhchinhsach
'.FormFields("Sotaikhoannganhang").Result = Me.Sotaikhoannganhang
'.FormFields("Dangkytainganhang").Result = Me.Dangkytainganhang
'.FormFields("Hinhthe").Result = Me.Hinhthe
'.FormFields("Thannhannuocngoai").Result = Me.Thannhannuocngoai
'.FormFields("Davehuu").Result = Me.Davehuu
'.FormFields("Ngayvehuu").Result = Me.Ngayvehuu
'.FormFields("Ghichukhac").Result = Me.Ghichukhac

' Chen Anh vao file Word bang link anh
    .Activate
'    Set oDoc = ActiveDocument
    .Tables(1).Cell(1, 1).Range.InlineShapes.AddPicture (CurrentProject.Path & "\Hinh\" & Me.Hinhthe)        ' Chen hinh
    .Tables(1).Cell(1, 1).Range.InlineShapes(1).ScaleHeight = 13
    .Tables(1).Cell(1, 1).Range.InlineShapes(1).ScaleWidth = 13
    .Tables(1).Cell(1, 1).Width = 13
    .Tables(1).Cell(1, 1).Height = 13
' Ket noi den cac Table
    Dong = 2
    ' Nap Table 2 trong Word: Dao tao boi duong
    Dim rs As Recordset
    Dim sql As String
    sql = "Select * from tbdaotaotaphuan where Socmnd='" & Me.Socmnd & "'"
    Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)  ' hoac dbOpenTable
    If rs.EOF Then
    Else
        rs.MoveFirst
        Do Until rs.EOF
                .Tables(2).Rows.Add  ' Tao dong moi
                .Tables(2).Cell(Dong, 1).Range.Text = rs.Fields("Tentruongdaotao")
                .Tables(2).Cell(Dong, 2).Range.Text = rs.Fields("Tenkhoahoc")
                .Tables(2).Cell(Dong, 3).Range.Text = rs.Fields("TungayDenNgay")
                .Tables(2).Cell(Dong, 4).Range.Text = rs.Fields("Hinhthucdaotao")
                .Tables(2).Cell(Dong, 5).Range.Text = rs.Fields("Vanbangchungchi")
                Dong = Dong + 1    ' Tang len 1 dong
        rs.MoveNext
        Loop
                .Tables(2).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        rs.Close
        Set rs = Nothing
    ' Nap Table 3 trong Word: Tom tat qua trinh cong tac
    Dong = 2
    Dim Rs2 As Recordset
    Dim Sql2 As String
    Sql2 = "Select * from tbquatrinhcongtac where Socmnd='" & Me.Socmnd & "'"
    Set Rs2 = CurrentDb.OpenRecordset(Sql2, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs2.EOF Then
    Else
        Rs2.MoveFirst
        Do Until Rs2.EOF
                .Tables(3).Rows.Add  ' Tao dong moi
                .Tables(3).Cell(Dong, 1).Range.Text = Rs2.Fields("Tudenthangnam")
                .Tables(3).Cell(Dong, 2).Range.Text = Rs2.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs2.MoveNext
        Loop
        
                        .Tables(3).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs2.Close
        Set Rs2 = Nothing
    ' Nap Table 4 trong Word: Bang quan he nhan than cua Minh
    Dong = 2
    Dim Rs3 As Recordset
    Dim Sql3 As String
    Sql3 = "Select * from tbnhanthan where Socmnd='" & Me.Socmnd & "' AND CuaBanthanhayBenVoChong=Yes"
    Set Rs3 = CurrentDb.OpenRecordset(Sql3, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs3.EOF Then
    Else
        Rs3.MoveFirst
        Do Until Rs3.EOF
                .Tables(4).Rows.Add  ' Tao dong moi
                .Tables(4).Cell(Dong, 1).Range.Text = Rs3.Fields("Moiquanhe")
                .Tables(4).Cell(Dong, 2).Range.Text = Rs3.Fields("Hoten")
                .Tables(4).Cell(Dong, 3).Range.Text = Rs3.Fields("Namsinh")
                .Tables(4).Cell(Dong, 4).Range.Text = Rs3.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs3.MoveNext
        Loop
                        .Tables(4).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs3.Close
        Set Rs3 = Nothing
    ' Nap Table 5 trong Word: Bang quan he nhan than cua Vo minh (Neu co)
    Dong = 2
    Dim Rs4 As Recordset
    Dim Sql4 As String
    Sql4 = "Select * from tbnhanthan where Socmnd='" & Me.Socmnd & "' AND CuaBanthanhayBenVoChong=No"
    Set Rs4 = CurrentDb.OpenRecordset(Sql4, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs4.EOF Then
    Else
        Rs4.MoveFirst
        Do Until Rs4.EOF
                .Tables(5).Rows.Add  ' Tao dong moi
                .Tables(5).Cell(Dong, 1).Range.Text = Rs4.Fields("Moiquanhe")
                .Tables(5).Cell(Dong, 2).Range.Text = Rs4.Fields("Hoten")
                .Tables(5).Cell(Dong, 3).Range.Text = Rs4.Fields("Namsinh")
                .Tables(5).Cell(Dong, 4).Range.Text = Rs4.Fields("Chitiet")
                Dong = Dong + 1    ' Tang len 1 dong
        Rs4.MoveNext
        Loop
                        .Tables(5).Rows(Dong).Delete  ' Xoa dong cuoi
    End If
        Rs4.Close
        Set Rs4 = Nothing

' Nap Table 6 trong Word: Bang Qua trinh Luong
    Cot = 2
    Dim Rs5 As Recordset
    Dim Sql5 As String
    Dim SoLanNangLuong As Byte, i As Byte, n As Byte
    Sql5 = "SELECT * FROM tblichsunangluong WHERE Hoten='" & Me.Hoten & "' ORDER BY Hesoselen"
'    Sql5 = "SELECT TOP 9 * FROM tblichsunangluong WHERE Hoten='" & Me.Hoten & "' ORDER BY Hesoselen"
    Set Rs5 = CurrentDb.OpenRecordset(Sql5, dbOpenDynaset)  ' hoac dbOpenTable
    If Rs5.EOF Then
    Else
    'xac dinh de lay 9 dong cuoi cung
    Rs5.MoveLast    ' dich chuyen con tro den dong cuoi cung va dem
    SoLanNangLuong = Rs5.RecordCount
    Rs5.MoveFirst
    
    If SoLanNangLuong > 9 Then
    n = SoLanNangLuong - 9
        For i = 1 To n
            Rs5.MoveNext    'dich chuyen con tro len tren 1 buoc
        Next i
    End If
        Do Until Rs5.EOF
'                .Tables(6).Column(Cot).Select
'                .Selection.InsertColumnsRight  ' Tao dong moi
                .Tables(6).Cell(1, Cot).Range.Text = Format(Month(Rs5.Fields("Ngaynangluong")), "00") & "/" & Format(Year(Rs5.Fields("Ngaynangluong")), "0000")
                .Tables(6).Cell(2, Cot).Range.Text = Rs5.Fields("Mangach") & "/" & Rs5.Fields("Baclen")
                .Tables(6).Cell(3, Cot).Range.Text = Rs5.Fields("Hesoselen")
                Cot = Cot + 1    ' Tang len 1 cot
        Rs5.MoveNext
        Loop
    End If
        Rs5.Close
        Set Rs5 = Nothing
End With




' Luu voi ten moi
oDoc.SaveAs FileName:=CurrentProject.Path & "\Mau\" & Replace(LoaibodauTiengviet(Me.Hoten) & "_" & Me.Socmnd & "_" & Format(Now(), "YYYY_MM_hh_ss"), " ", "_") & ".doc"


'    ' Dong file vua Luu
'    oDoc.Close
'    ' Thoat khoi file Word
'    oApp.Quit

' Xoa bien khoi tao
Set oApp = Nothing
    MsgBox "Xu" & ChrW(7845) & "t lý l" & ChrW(7883) & "ch 2c hoàn t" & ChrW(7845) & "t", vbInformation, "Thông báo"

Exit_Loi:
    Exit Sub
Loi:
    MsgBox "Nh" & ChrW(7853) & "p thông tin Lý l" & ChrW(7883) & "ch 2C ch" & ChrW(432) & "a " & ChrW(273) & ChrW(7847) & "y " & ChrW(273) & ChrW(7911) & ", nên không th" & ChrW(7875) & " th" & ChrW(7921) & "c hi" & ChrW(7879) & "n", vbInformation, "Thông báo"
    Resume Exit_Loi
End Sub

Function LoaibodauTiengviet(ByVal ChuTiengVietCoDau As String) As String

  Dim i As Long
  Dim intCode As Long
  Dim sChar As String
  Dim sConvert As String

  LoaibodauTiengviet = AscW(ChuTiengVietCoDau)
  For i = 1 To Len(ChuTiengVietCoDau)
      sChar = Mid(ChuTiengVietCoDau, i, 1)
      If sChar <> "" Then
          intCode = AscW(sChar)
      End If
      Select Case intCode
      Case 273
          sConvert = sConvert & "d"
      Case 272
          sConvert = sConvert & "D"
      Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863
          sConvert = sConvert & "a"
      Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862
          sConvert = sConvert & "A"
      Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879
          sConvert = sConvert & "e"
      Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878
          sConvert = sConvert & "E"
      Case 236, 237, 297, 7881, 7883
          sConvert = sConvert & "i"
      Case 204, 205, 296, 7880, 7882
          sConvert = sConvert & "I"
      Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907
          sConvert = sConvert & "o"
      Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906
          sConvert = sConvert & "O"
      Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921
          sConvert = sConvert & "u"
      Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920
          sConvert = sConvert & "U"
      Case 253, 7923, 7925, 7927, 7929
          sConvert = sConvert & "y"
      Case 221, 7922, 7924, 7926, 7928
          sConvert = sConvert & "Y"
      Case Else
          sConvert = sConvert & sChar
      End Select
  Next

  LoaibodauTiengviet = sConvert

End Function 

DemoXuatLyLich_2.zip (Kích cỡ: 130.5 KB / Tải về: 154)