Cách tạo biểu mẫu phân tách của riêng bạn trong Access bằng VBA

Giải pháp truy cập Tháng Chín 29, 2025
Chia sẻ ngay bây giờ:

Biểu mẫu chia nhỏ trong Access cực kỳ hữu ích. Thật không may, chúng không hoạt động khi bạn đặt chúng bên trong biểu mẫu điều hướng. Tìm hiểu cách bạn có thể tạo một hàm VBA sẽ mô phỏng các chức năng của biểu mẫu phân tách của Access và làm cho hàm này hoạt động ngay cả bên trong biểu mẫu dẫn hướng.

Biểu mẫu tách cho phép bạn có hai dạng xem bản ghi của mình cùng một lúc – dạng xem biểu mẫu và dạng xem biểu dữ liệu. Nó cho phép bạn có cái nhìn tổng quan về tất cả các bản ghi của mình đồng thời cung cấp cho bạn tùy chọn để xem và chỉnh sửa từng bản ghi một.

Thật không may, biểu mẫu phân tách sẽ không hoạt động khi bạn đặt chúng bên trong biểu mẫu điều hướng – điều gì đó khiến tôi bối rối. Điều tốt là có một cách giải quyết cho việc này. Sử dụng VBA, bạn có thể tạo chức năng của riêng mình sẽ mô phỏng biểu mẫu phân chia của Access. Chỉ cần làm theo các bước dưới đây.

Tải xuống Ngay

Nếu bạn muốn bắt đầu sử dụng tính năng này càng sớm càng tốt, bạn có thể:

Tải xuống cơ sở dữ liệu mẫu với mã VBA ngay bây giờ

Còn không, nếu bạn muốn DIY, bạn có thể đọc nội dung bên dưới.

Các bước để tạo biểu mẫu phân tách của riêng bạn trong Access bằng VBA

1. Mở biểu mẫu tách của bạn và cập nhật Chế độ xem mặc định thành Biểu mẫu đơn. Mở biểu mẫu tách của bạn và cập nhật chế độ xem mặc định thành một biểu mẫu

  1. Mở biểu mẫu tách của bạn.
  2. Trong khi ở chế độ xem thiết kế, hãy chọn biểu mẫu.
  3. Chuyển đến Bảng thuộc tính (ALT + Enter) > tab Biểu mẫu.
  4. Thay đổi chế độ xem mặc định thành: Biểu mẫu đơn.
  5. Đóng biểu mẫu và lưu lại.

2. Tạo một bản sao của biểu mẫu. Điều này sẽ đóng vai trò là dạng xem biểu dữ liệu.

  1. Chuyển đến ngăn điều hướng.
  2. Nhấp chuột phải vào biểu mẫu của bạn và chọn Sao chép.
  3. Nhấp chuột phải vào vùng trống trong ngăn điều hướng và chọn Dán.
  4. Thay đổi tên Biểu mẫu. Nối nó với “_Datasheet”.

Ví dụ:

  • Hình thức: Thành viên
  • Bản sao của biểu mẫu: Member_Datasheet

3. Mở Biểu mẫu biểu dữ liệu và cập nhật các thuộc tính dạng xem biểu mẫu của nó.

  1. Mở biểu mẫu Biểu dữ liệu.
  2. Trong khi ở chế độ xem thiết kế, hãy chọn biểu mẫu.
  3. Chuyển đến Trang thuộc tính > tab Biểu mẫu.
  4. Cập nhật các thuộc tính sau:
    • Chế độ xem mặc định: Bảng dữliệu
    • Cho phép Dạng xem Biểu dữ liệu: Có
    • Cho phép xem biểu mẫu: Không
  5. Đóng biểu mẫu và lưu lại.

4. Mở lại Biểu mẫu chính và thêm Biểu mẫu biểu dữ liệu dưới dạng biểu mẫu phụ.

  1. Mở biểu mẫu chính (mẫu đã được sao chép) trong dạng xem thiết kế.
  2. Thêm một biểu mẫu con.
    • Chuyển đến menu Thiết kế. Chọn Biểu mẫu con/Báo cáo con.Chọn biểu mẫu con
    • Nhấp vào khu vực Chi tiết của biểu mẫu.
    • SubForm Wizard sẽ xuất hiện.Trình hướng dẫn biểu mẫu con

1. Nhấp vào 'Sử dụng biểu mẫu hiện có'.

2.Chọn biểu mẫu biểu dữ liệu của bạn.

3.Nhấp vào Tiếp theo.Chọn 'Xác định của riêng tôi'

4.Chọn 'Xác định của riêng tôi'.

5.Nhấp vào Kết thúc.

3. Biểu mẫu biểu dữ liệu hiện là biểu mẫu con của biểu mẫu chính của bạn. Điều chỉnh nó theo kích thước và vị trí mong muốn của bạn.

5. Cuối cùng, thêm mã.

  1. Mở Trình chỉnh sửa VBA (ALT + F11).
  2. Chọn biểu mẫu chính và dán mã theo sau.Chọn Biểu mẫu chính và Dán mã
'MAIN FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Members_Datasheet.Requery
End Sub

Private Sub Form_Current()
   If Me.NewRecord Then
     Me.Members_Datasheet.Form.Recordset.AddNew
   Else
     Me.Members_Datasheet.Requery
   End If
End Sub
  1. Sau khi sao chép mã, thay thế tất cả các phiên bản của từ Thành viên_Bảng dữ liệu với tên thật của biểu mẫu biểu dữ liệu của bạn.
  2. Khi hoàn tất, hãy chọn Biểu mẫu biểu dữ liệu của bạn từ menu Dự án và sao chép mã bên dưới.
'SUBFORM/DATASHEET FORM
Option Explicit

Private Sub Form_AfterUpdate()
   Me.Parent.Form.Requery
End Sub

Private Sub Form_Current()

  Dim pk_field As String, pk_tbox As Control
  Dim primaryKey As String, strSearch As String
 
  Set pk_tbox = Me.Member_ID 'textbox containing primary key *
  pk_field = "Member_ID" 'primary key field name *

  primaryKey = Nz(pk_tbox.Value, 0) 'change value to 0 if null
  pk_field = "[" & pk_field & "]" 'enclose field name with brackets
 
  If primaryKey <> 0 Then 'if not null (or not a new record)
    strSearch = pk_field & "=" & primaryKey
    Me.Parent.Recordset.FindFirst strSearch
  Else
     Me.Parent.Form.Recordset.AddNew
  End If

End Sub
  1. Cập nhật giá trị cho các biến sau:
  • pk_tbox – đề cập đến hộp văn bản chứa khóa chính.
  • pk_field – đề cập đến trường khóa chính của nguồn bản ghi.

Mỗi bài đều có dấu hoa thị (*) ở phần bình luận để bạn dễ dàng tìm thấy.

  1. Khi hoàn tất, hãy lưu các thay đổi (CTRL + S) và đóng VBA Editor.

Giờ đây, bạn có thể thêm biểu mẫu phân tách của riêng mình bên trong biểu mẫu điều hướng. Hãy thử nó ra!

Sửa cơ sở dữ liệu truy cập bị hỏng (.accdb)

Có rất nhiều lý do khiến cơ sở dữ liệu Access bị hỏng. Đáng tiếc là chúng ta không thể kiểm soát được hầu hết các lý do đó. Nếu điều này xảy ra với bạn, hãy nhớ rằng vẫn có cách để khôi phục lại dữ liệu. DataNumen Inc. đã tạo ra một phần mềm thực hiện sửa accdb. Kiểm tra nó ra.

Giới thiệu tác giả:

Jayme Stack là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm phục hồi excel. Để biết thêm thông tin, hãy truy cập www.datanumennăm

Chia sẻ ngay bây giờ:

Được đóng lại.