Trong hướng dẫn này, chúng ta sẽ học cách mở hoặc đóng biểu mẫu Access bằng VBA.
Mở biểu mẫu truy cập
Để mở một biểu mẫu trong Access, hãy sử dụng phương thức DoCmd.OpenForm:
DoCmd.OpenForm "AccessForm"
Thao tác này sẽ mở Biểu mẫu có tên “AccessForm”:
AccessForm được hiển thị trong ngăn điều hướng
Mở biểu mẫu có tiêu chí
Mã này sẽ mở một biểu mẫu trong Access với các tiêu chí cụ thể:
DoCmd.OpenForm "AccessForm", acNormal, "ID = 10"
Cú pháp DoCmd.OpenForm
Cú pháp đầy đủ của phương thức là:
DoCmd.OpenForm (NameOfForm, FormView, FilterName, WhereCondition, DataMode, Chế độ cửa sổ, OpenArgs) ở đâu:
| Tham số | Sự miêu tả |
|---|---|
| NameOfForm | Bắt buộc và là tên của biểu mẫu bạn muốn mở. |
| FormView | Tùy chọn và cho phép bạn chỉ định dạng xem của biểu mẫu. Đây có thể là: acDesign, acFormDS, acFormPivotChart, acFormPivotTable, acLayout, acNormal, acLayout hoặc acPreview. Mặc định là acNormal. |
| FilterName | Tùy chọn và cho phép bạn chỉ định tên của truy vấn hoặc chuỗi SQL để sử dụng làm bộ lọc. |
| WhereCondition | Tùy chọn và cho phép bạn thực hiện truy vấn loại where mà không cần sử dụng từ where. |
| DataMode | Tùy chọn và cho phép bạn chỉ định chế độ nhập dữ liệu của mình. Đây có thể là: acFormAdd, acFormEdit, acFormPropertySettings hoặc acFormReadOnly. Mặc định là acFormPropertySettings. |
| Chế độ cửa sổ | Tùy chọn và đặt hiển thị chế độ Cửa sổ. Đây có thể là: acDialog, acHidden, acIcon, acWindowNormal. Mặc định là acWindowNormal. |
| OpenArgs | Tùy chọn có thể được tham chiếu trong macro và biểu thức. |
Lập trình VBA | Code Generator làm việc cho bạn!
Đóng một biểu mẫu trong Access
Sử dụng DoCmd.Close để đóng một biểu mẫu đang mở:
DoCmd.Close acForm, "AccessForm"
Đóng biểu mẫu và lưu
Mã VBA này sẽ đóng và lưu biểu mẫu Access:
DoCmd.Close acForm, "AccessForm", acSaveYes
Nhắc trước khi đóng biểu mẫu
Thủ tục này sẽ nhắc người dùng trước khi đóng biểu mẫu:
Public Sub CloseFormWithConfirmation (FormName As String) If MsgBox ("Bạn có chắc chắn muốn đóng cửa sổ này không?", VbYesNo + vbQuestion, "Confirmation") = vbYes Sau đó DoCmd. Đóng acForm, FormName End If End Sub
Bạn có thể gọi nó như thế này:
Sub riêng CloseFormWithConfirmation_Example () Gọi CloseFormWithConfirmation ("AccessForm") Kết thúc Sub
Bạn mệt mỏi với việc tìm kiếm ví dụ về mã VBA? Hãy thử AutoMacro!
Cú pháp DoCmd.Close
Cú pháp đầy đủ của phương thức là:
DoCmd.Close (Loại đối tượng, Tên của môn học, ObjectSave) ở đâu:
| Tham số | Sự miêu tả |
|---|---|
| Loại đối tượng | Tùy chọn và đây là loại đối tượng mà bạn muốn đóng. Đây có thể là một biểu mẫu hoặc báo cáo, v.v. |
| Tên của môn học | Tùy chọn và là tên của đối tượng mà bạn muốn đóng. |
| ObjectSave | Tùy chọn và được sử dụng để chỉ định xem bạn có muốn lưu các thay đổi đã thực hiện hay không. |
