Thủ Thuật Access - Thư viện thủ thuật

Giải pháp Chuyển đổi từ địa chỉ cũ sang địa chỉ mới theo đơn vị hành chính hiện tại?

Tue, 01 Jul 2025 08:44:37 +0000

Chuyển đổi hàng loạt địa chỉ từ danh sách, từ file text, hoặc từ table
Mình chưa tìm được bài viết nào về vấn đề này, mong anh chị em giúp đỡ!
Xin cảm ơn!

Phục hồi mật khẩu file ACCDB

Sat, 18 Nov 2023 09:16:24 +0000

Chào các bạn,

Mình có 1 file Accdb bị quên mật khẩu. Nhờ các bạn hỗ trợ phục hồi lại giúp. Trân trọng cảm ơn.

Thân,

Các bước để viết một phần mềm quản lý hợp đồng bằng acces

Fri, 06 Aug 2021 02:59:58 +0000

Mình đang có kế hạch tạo một file access để quản lý hợp đồng với các yêu cầu:
1. Nhiều người cùng sử dụng để nhập liệu.
2. Phân quyền từng chức năng cho từng user.
Mọi người có thể giúp mình lên thứ tự các công việc phải làm được không? Mình mới tìm hiểu access nên chưa biết cái nào làm trước, cái nào làm sau.
VD: mình chưa biết tạo table và form user trước hay tạo table và form dữ liệu khách hàng trước.

Mình có tải một vài file trên diễn đàn về để nghiên cứu, một số file mình mở thì ra luôn form không thấy được file đó có các table, form,... gì, làm cách nào để hiện lên các table, các form có trong file.
VD: PhanMemQuanLyKhangViet (Lan) 3.1 (mình muốn xem các table, form có trong file)

Rất mong nhận được sự hướng dẫn của mọi người.
Xin cảm ơn.

Điền dữ liệu tự động trên Form nhập liệu

Wed, 28 Jul 2021 07:18:08 +0000

Mình có 2 table tên:
Table DMKH có các cột : STT, TenVT, TenKH, DC, DT
Table ChaoGia có các cột: STT, TenVT, TenKH, SoChaoGia, GiaChao
Mình tạo một form nhập liệu là FrChaoGia để nhập liêu vào table ChaoGia
Mình muốn là khi nhập TenVT vào xong thì TenKH tự động có.

Rất mong nhận được hướng dẫn từ mọi người.

Sử dụng hàm SWITCH trong Access

Wed, 14 Jul 2021 02:23:18 +0000

Do trong chuyên mục Hàm, mình không thấy nút Tạo chủ đề, nên mình để tạm bài viết ở đây
Hàm SWITCH:
-         Công dụng: Lượng giá 1 danh sách biểu thức và trả về 1 trị hoặc biểu thức tương ứng đâu tiên trong danh sách có trị True
-         Cú pháp:
SWITCH(Biểu thức 1, Kết quả 1 [, Biểu thức 2, Kết quả 2…..[,Biểu thức n, Kết quả n]])

- *Switch xét các biểu thức lần lượt từ trái qua phải. Nếu biểu thức 1 là True thì Switch trả về kết quả 1
  Nếu biểu thức 1 là False, Biểu thức 2 là True thì Switch trả về Kết quả 2
  Nếu biểu thức 1 là True mà biểu thức 5 bị lỗi (Ví dụ chia cho 0) thì hàm sẽ báo lỗi chứ không trả về kết quả 1
  Nếu mọi biểu thức đều là False thì hàm sẽ trả về giá trị Null
  Muốn chọn giá trị còn lại khi mọi biểu thức đều False, (cũng giống như chọn tình huống còn lại (Else của lệnh IF; hoặc Case Else của Select Case) thì ta dùng hằng True cho biểu thức cuối cùng;
VD: Trong Query       SWITCH(DiemTB<5, “Yếu”,
                                DiemTB>=5 and DiemTB <=6.5, “Trung Bình”,
                                DiemTB>6.5 and DiemTB <8, “Khá”,
                                DiemTB>=8 and DiemTB <9, “Giỏi”,
                                True, “Xuất xắc”)
************
Bài Toán Ví dụ:
                Cập nhật tiền thưởng vào bảng tblBanhang cho nhân viên
-         Nếu bán dưới 1.000 sp thì được thưởng 500.000 đ
-         Nếu bán từ 1.000 sp đến dưới 2.000 sp thì được thưởng 1.000.000 đ
-         Nếu bán từ 2.000 sp đến dưới 3.000 sp thì được thưởng 3.000.000 đ
-         Nếu bán từ 3.000 sp đến dưới 4.000 sp thì được thưởng 5.000.000 đ
-         Từ 4.000 sp trở lên thì được thưởng 7.000.000 đ
[img][/img]

=> Nếu dùng Query Update:

Mã PHP:
UPDATE tblBanHang SET tblBanHang.TienThuong = Switch([doanhsoban]<1000,500000,[doanhsoban]>=1000 And [doanhsoban]<2000,1000000,[doanhsoban]>=2000 And [doanhsoban]<3000,3000000,[doanhsoban]>=3000 And [doanhsoban]<4000,5000000,True,7000000); 

=> Nếu dùng Code VBA:

Mã PHP:
Function TinhThuong()
Dim rs As DAO.Recordset, soluong As Single
Set rs = CurrentDb.OpenRecordset("tblBanhang")
rs.MoveFirst

Do While Not rs.EOF
soluong = rs("doanhsoban")
rs.Edit
rs("TienThuong") = Switch(soluong < 1000, 500000, _
                                              soluong >= 1000 And soluong < 2000, 1000000, _
                                              soluong >= 2000 And soluong < 3000, 3000000, _
                                              soluong >= 3000 And soluong < 4000, 5000000, _
                                              True, 7000000)
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Function 

=>>>>>>KẾT QUẢ:
[img][/img]

Drag n Drop Image

Thu, 20 May 2021 03:32:07 +0000

Chào các bác
Em muốn tạo một ảnh trên form sao cho có thể kéo thả ảnh từ folder vào, sau đó lưu ảnh vào một folder được chỉ định từ trước
Em lang thang trên mạng tìm được drag drop trong exel, mà loay hoay mãi không tạo được trong access
Trong file excel này có thể kéo thả ảnh nhiều lần, khi kéo thả vào thì ảnh cũ được thay thế bằng ảnh mới
Các bác có ý tưởng nào ko ạ
File Exel

Hiển thị số thứ tự ra màn hình 2

Tue, 20 Apr 2021 14:53:31 +0000

Chào mọi người, mình đang thiết kế hệ thống bắt số xếp hàng cho phòng khám, ý tưởng là tại phòng khám bệnh có 1 cpu chia ra 2 màn hình, 1 màn hình dùng cho các nhu cầu sử dụng bình thường, và 1 màn hình để ở trước cửa phòng khám dùng để hiển thị số thứ tự. Khi bác sĩ mở máy tính lên sẽ mở 2 app, 1 app dùng để khám bệnh và 1 app để hiển thị số ra màn hình bên ngoài của. Vậy làm cách nào để có thể thể hiện app gọi số kia ra màn hình ở ngoài cửa được.

Như hình bên dưới ngồi ở room A mở app cho hiển thị lên monitor ở roomB.

Chuẩn hóa unicode tổ hợp và unicode dựng sẵn

Sat, 10 Apr 2021 07:05:28 +0000

Chào mọi người, mình xin chia sẽ thư viện do mình tự viết dùng để chuẩn hóa unicode tổ hợp và unicode dựng sẵn. Để sử dụng được thì mọi người đăng kí với window bằng lệnh cmd sau:

Mã:
C:\Windows\Microsoft.NET\Framework\v4.0.30319\RegAsm.exe D:\folder\CustomUnicode.dll /tlb:CustomUnicode.tlb /codebase

Bạn sửa lai đường dẫn d:\folder cho phù hợp với máy của bạn nhé.

Sau đó mọi người vào cửa sổ code của vba reference đến file .tlb

Thư viện này có 2 hàm:
1/ UnicodeDungSan: Dùng để chuyển sang kiểu unicode dựng sẵn.
2/ UnicodeToHop: Dùng để chuyển sang kiểu unicode tổ hợp.

Demo:

db1.zip (Kích cỡ: 11.86 KB / Tải về: 14)

CustomUnicode.zip (Kích cỡ: 2.45 KB / Tải về: 24)

[Demo P1] Tạo Thông báo bằng form thay thế Msgbox

Fri, 26 Mar 2021 17:08:45 +0000

Chức năng: Hiển thị tiếng việt; Chỉnh màu sắc; Chỉnh Font chữ, cỡ chữ; Nút nào hiện thông qua table [tblThongbao]

Cú pháp:
- Chỉ gọi thôi: GoiThongbao SoTTCuaThongbao
- Gọi để lấy câu trả lời Yes/No; Ok/Cancel: GoiThongbao( SoTTCuaThongbao); Trả về 1 nếu Đồng y

* Khuya quá lười viết post video giới thiệu chi tiết

Code:

Mã PHP:
' --------------------------------------------------------------------------------------------------------
' Ten Modules/Class:    modThongbao
' Ten ham/thu tuc    :  GoiThongbao
' Tao tren may PC    :  HENDAN
' Author/ Tac gia    :  maidinhdan@gmail.com ,  Ngay, gio tao: 26/03/2021 4:01:39 PM
' Parameters/Tham so :
' Cu phap/ Purpose  :
' Pham vi ap dung    : Goi thong bao bang Form
' --------------------------------------------------------------------------------------------------------
'Gia tri tra ve cua ham Goithongbao la:
'True => Tuong ung ban da nhan nut    Ok/Yes
'False => Tuong ung ban da nhan nut    No/Cancel
Public Function GoiThongbao(SoCanGoi As Long) As Boolean
On Error GoTo Loi
    Dim cls As clsThongbao
    Set cls = New clsThongbao
    With cls
        .SoTT = SoCanGoi
        .MoFormThongbao
        Do While KiemTraFormDangMo(acForm, "frmThongbao")
            DoEvents
            Sleep 100
        Loop
    End With
    
    Set cls = Nothing
    GoiThongbao = TraLoi
Exit_Loi:
        Exit Function
Loi:        ' Khi cac Thu tuc loi se nhay den dong duoi day
        GoiThongbao 6
        GoiThongbao = False
        Resume Exit_Loi      ' Chay nguoc len dong Exit_Loi: va thoat
End Function

'Kiem tra doi tuong dang dong hay mo
Function KiemTraFormDangMo(KieuDoiTuong As Integer, TenFormCanKiemTra As String) As Boolean
Dim i As Integer
    i = SysCmd(acSysCmdGetObjectState, KieuDoiTuong, TenFormCanKiemTra)
    KiemTraFormDangMo = i And acObjStateOpen
End Function 

Để lại Email trong 10 ngày sẽ gửi Demo nhé!

DemoTBForm - 8.zip (Kích cỡ: 142.02 KB / Tải về: 41)

Không cho gõ tiếng việt có dấu vào textbox

Wed, 24 Mar 2021 09:53:00 +0000

Chào mọi người, mình đang tìm giải pháp cho việc cấm người dùng gõ tiếng việt có dấu vào ô textbox. Đa số các giải pháp mình tìm được đều là không cho gõ khi phát hiện đó là tiếng việt có dấu. Ví dụ: Ô textbox đang có dữ liệu là CA gõ tiếp phím F thì không cho phép, nhưng điều mình cần là vẫn hiển thị chữ F, khi đó dữ liệu ô textbox sẽ là CAF.

Mình đang áp dụng việc này vào nghiệp vụ scan mã vạch. Khi mình scan 1 mặt hàng ví dụ CAFE, thì scan nó ra CÀE (telex), hoặc mặt hàng là A1BC thì nó lại thành ÁBC (vni), người dùng phải tắt unikey đi rất là bất tiện và không chuyên nghiệp.

Ai có giải pháp thì giúp mình nhé.

[Demo P2] Link Table nhiều File khác nhau (Hàm ngắn gọn)

Tue, 23 Mar 2021 09:43:13 +0000

Hôm trước có giới thiệu [Thủ Thuật] [Phần 1]Demo Link Table nhiều File khác nhau

Demo này Code gọi phải nhớ tên table hơi phiền phức; nhất là ứng dụng có nhiều table như của anh TranThanhAn1962

Ưu điểm: Code gọi ngắn gọn

Mã PHP:
Ham_TaoLinkAllTable(DuongDanFile,[Mat khau co the bo trong neu file khong co mat khau])

=>

    Ham_TaoLinkAllTable Me.txtlinkfile1, Me.txtpass            'File co Pass

    Ham_TaoLinkAllTable Me.txtlinkfile2                    ' File khong Pass, chi can dien Link File la dc 

Khả năng ứng dụng:

- Áp cho tất cả phiên bản Access *.mdb hoặc *.accdb, có Pass hay không có pass cũng vậy

- Thích hợp Link table số lượng lớn và với nhiều File Access khác nhau cùng 1 lúc

- Trong ứng dụng có đính kèm hàm xóa tất cả table; hàm chọn File; hàm Kiểm tra sự tồn tại table để các bạn test

* Hình minh họa:

Code:

Mã PHP:
' --------------------------------------------------------------------------------------------------------
' Ten Modules/Class:    modLinkTable
' Ten ham/thu tuc    :  Ham_TaoLinkAllTable
' Tao tren may PC    :  HENDAN
' Author/ Tac gia    :  maidinhdan@gmail.com ,  Ngay, gio tao: 23/03/2021 4:19:39 PM
' Parameters/Tham so :
' Cu phap/ Purpose  : Ham_TaoLinkAllTable(DuongDanFile,[Mat khau co the bo trong neu file khong co mat khau])
' Pham vi ap dung    : Tao LinkTable nhanh voi nhieu File Access khac nhau va co so luong table lon
' --------------------------------------------------------------------------------------------------------
Public Function Ham_TaoLinkAllTable(DuongDanFile As String, Optional MatkhauFile As String) As Boolean
    On Error GoTo Loi
        'Chen cac Thu tuc cua ban o day
    Dim dbHienHanh As DAO.Database, i As Integer
    Set dbHienHanh = CurrentDb
    Dim TableHienHanh As String
    'Duyet lay tat ca table Access hien hanh, bao gom ca cac table dang link, ngoai tru table he thong
    For i = 0 To dbHienHanh.TableDefs.Count - 1
        If Left(dbHienHanh.TableDefs(i).Name, 4) <> "MSys" Then
        TableHienHanh = dbHienHanh.TableDefs(i).Name
            Debug.Print "HienHanh: ___________", TableHienHanh
        End If
    Next i
    ' Khoi tao mot ket noi den Link file chi dinh; cac dong mau xanh la cay de Admin Test thoi, khi dung hay bo di
    Dim dbKhac As DAO.Database  ', i As Integer
'    Dim DuongDanFile As String, MatkhauFile As String
    Dim tdf As TableDef
'    DuongDanFile = CurrentProject.Path & "\DataTest.mdb"
'    MatkhauFile = "111444"
'    DuongDanFile = CurrentProject.path & "\TaoFileMDB.mdb"
'    MatkhauFile = ""
    i = 0  'Set bien i lai tu dau
    Set dbKhac = DBEngine.Workspaces(0).OpenDatabase(DuongDanFile, False, False, "MS Access;PWD=" & MatkhauFile)
    Dim TableKhac As String
    
    ''Duyet lay tat ca table Access theo Link file chi dinh, ngoai tru table he thong
    For i = 0 To dbKhac.TableDefs.Count - 1
        If Left(dbKhac.TableDefs(i).Name, 4) <> "MSys" Then
        TableKhac = dbKhac.TableDefs(i).Name
        'So sanh Table trong File chi dinh co khac voi table hien hanh khong? Khac thi xoa; Khong thi bo qua
        If KiemtraTableTontai(TableKhac) Then  'Hàm kiem tra table hien hanh co ton tai khong?
            CurrentDb.TableDefs.Delete TableKhac
            Debug.Print TableKhac & "________Da Xoa va Se tao lai"  'Thong bao Table dang ton tai, se xoa va se tien hanh lien ket lai
        Else
            Debug.Print TableKhac & "________SeTaoMoi"  'Thong bao Table chua co, va se tien hanh lien ket lai
        End If
        'Tien hanh link lai lien ket voi table trong file chi dinh
                Set dbHienHanh = CurrentDb
                Set tdf = dbHienHanh.CreateTableDef(TableKhac)
                'Danh dau ket noi den file Access chi dinh de tien hanh link table
                With tdf
                    .Connect = "Ms Access;UID=Admin;PWD=" & MatkhauFile & ";DATABASE=" & DuongDanFile
                  .SourceTableName = TableKhac
                End With
                ' ra lenh ket noi
                dbHienHanh.TableDefs.Append tdf
            
        End If
    Next i
    'Xoa bien khoi bo nho
      Set dbHienHanh = Nothing
      Set dbKhac = Nothing
      Ham_TaoLinkAllTable = True
' Doan xu ly cac loi
LoiExit:
    Exit Function
Loi:
    Ham_TaoLinkAllTable = False
    If Err = 3110 Then
        Resume LoiExit
    Else
        If Err = 3011 Then
            Resume Next
        End If
    End If
End Function 

Ai cần xin để lại email

Demo_LinkTableNhieuFileKhacNhau_PhanII(Khoa).zip (Kích cỡ: 47.32 KB / Tải về: 59)

Cách lấy các sản phẩm trong đơn hàng trước đó cho đơn hàng mới?

Sat, 02 Jan 2021 11:12:59 +0000

Anh chị cho em hỏi cách lấy lại đơn hàng cũ ngày 31/12/2020 cho đơn hành mới ngày 02/01/2020 (hôm nay) mình làm thế nào nhanh ạ?
Em xin cảm ơn anh chị.
Em gửi file demo.
https://www.mediafire.com/file/okba75y8v...accdb/file

1.jpg (Kích cỡ: 72.78 KB / Tải về: 25)

Làm thế nào để MsgBoxUni tùy chỉnh được chức năng của nút OK và Cancel?

Sat, 19 Dec 2020 05:09:30 +0000

Xin chào mọi người!
Như câu hỏi trên tiêu đề, làm sao để có thể dùng được chức năng phím OK (để đóng form và mở 1 form khác) và Cancel trong MsgBoxUni giống như Msgbox mặc định của access ạ.
Em có dùng Select case nhưng nó báo lỗi.
Nhờ mọi người giúp đỡ. Xin cảm ơn.
https://www.mediafire.com/file/osfzo2xxd...accdb/file

Tạo Textbox gộp các chuỗi?

Wed, 02 Dec 2020 14:55:30 +0000

Mình có 2 bảng với liên kết 1-nhiều: cụ thể 1 khách hàng có nhiều số điện thoại. Cho mình xin hỏi: Làm thế nào để tạo 1 textbox gộp các chuỗi số điện thoại lại với nhau như hình ạ? Xin cảm ơn.

  T1.jpg (Kích cỡ: 18.91 KB / Tải về: 22)

  T2.jpg (Kích cỡ: 12.36 KB / Tải về: 16)

  T3.png (Kích cỡ: 969 bytes / Tải về: 9)

[Demo Phần 3]-[Lịch năm]Điền ngày tháng bằng click chuột [No Calendar]

Sun, 22 Nov 2020 17:07:04 +0000

Tiếp nối thủ thuật Điền ngày tháng bằng nút nhấn:
Phần 1: [Thủ Thuật] Demo_Chọn ngày tháng bằng nút (No Calender Tiếng việt)
Phần 2: [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar]

* Và hôm nay xin giới thiệu Phần 3: gồm chức năng sau:
1. Lịch nguyên một năm. ( khác với các phần trước chỉ có 1 tháng)
2. Code rút gọn hơn với cú pháp giản đơn: Chèn code ở bất cứ sự kiện nào bạn thích và chèn cú pháp sau

Mã PHP:
LichVN Me.TenTextbox 

3. Nếu ô bạn gọi có ngày tháng Lịch sẽ tự động nhảy đến năm và ô ngày tháng của bạn.
4. Có thể Click Double trên Lịch để lấy nhanh ngày tháng

* Yêu cầu: khi chèn vào ứng dụng của bạn.
1. Import 1 form: frmLichVN và 1 Module: basLichVN
2. Nhớ câu thần chú phía trên

Hình minh họa

Demo đính kèm:
Nếu cần nghiên cứu học tập xin để lại Email
Thân mến

Demo_ChonLichBangMotNutNhan_LichCaNam(Phan 3).zip (Kích cỡ: 62.73 KB / Tải về: 38)