Cách viết một số lệnh thường dùng trong command button

[hiepphanthiet]

Nhờ các bạn chỉ giúp cách viết một số lệnh thường dùng trong command button (Access)! Cám ơn nhiều!

 

[tienduyet]

Ví dụ: mình tạo một nút nhấn (Access gọi là command button) có tên là cmdThoat, tại Event On Click mình viết câu lệnh:

Private Sub cmdThoat_Click()
DoCmd.Close acForm,"frmMain"
End Sub

Khi bấm vào đây là thoát frmMain.

Thân chào !

 

[dungp5]

Nhờ các bạn chỉ giúp cách viết một số lệnh thường dùng trong command button (Access)! Cám ơn nhiều!

Mình thì ko cần dùng câu lệnh mà làm luôn như thế này:
-Ví dụ mở 01 form nào đấy:
Trong command button wizard:
+ chọn Categories/form opreration sau đó:
+ chọn actions/open form, tiếp đó nhấn next hộp thoại có form xuất hiện chỉ cần chọn thế là xong;
- Tương tự với mở 01 report để xem trước khi in (preview report):
+ Categories/report opreration
+ actions/preview report
-....
thân chào.

 

[dungp5]

Nhờ các bạn chỉ giúp cách viết một số lệnh thường dùng trong command button (Access)! Cám ơn nhiều!

Mình thì ko dùng lệnh mà dùng có sẵn trong access như thế này
-Ví dụ mở 01 form nào đấy:
Trong command button wizard:
+ chọn Categories/form opreration sau đó:
+ chọn actions/open form, tiếp đó nhấn next hộp thoại có form xuất hiện chỉ cần chọn thế là xong;
- Tương tự với mở 01 report để xem trước khi in (preview report):
+ Categories/report opreration
+ actions/preview report
-....
thân chào.

 

[hiepphanthiet]

Cám ơn các bạn rất nhiều!

Mình cũng viết câu lệnh như vậy trong onclick nhưng không mở hay đóng được form gì cả (mở theo cách của Dung 5 thì chạy được). Có phải ct Access của mình bị lỗi hay còn một công đoạn nào nữa? Ví dụ:Mình đã làm các bước sau: Trên một form, mình tạo thêm nút lệnh từ command button, chuột phải chọn properties-->Event-->on click: DoCmd.OpenForm "DSKhachhang", ac ViewNormal (không có thêm điều kiện lọc hay bất cứ thứ gì khác mà vẫn không mở được). Mình đang cần ai đó phát hiện dùm mình sai chỗ nào và chỉ cho cách thực hiện lại. Cam ơn các bạn!

 

[hiepphanthiet]

cám ơn và thành thật xin lỗi các bạn! Access mình bị hư, mình đã cài đặt lại và lệnh chạy được rồi.
NH