Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: huylam 29-02-12, 05:51 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
Mình đang gặp một vấn đề khi làm theo thí dụ của Microsoft MSDN online tại link này: http://msdn.microsoft.com/en-us/library/...e.11).aspx. Ý nghĩa demo của nó là khi thay đỗi dữ liệu trên form (có thể là các text box) thì nút Undo sẽ được bật lên cho phép người dùng có thể undo để lấy lại giá trị ban đầu của nó.
Mình đã làm 2 trường hợp:
Trường hợp 1: Làm giống theo source code Example(Sử dụng sự kiện Private Sub Form_Dirty(Cancel As Integer)):
Nút Undo không bao giờ được bật vì Me.Dirty luôn luôn = false
Sourde code:
Private Sub Form_Dirty(Cancel As Integer)
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub
Trường hợp 2: Thay thế Private Sub Form_Dirty() bằng event của 1 text box (DCHI : Địa chỉ) trên Form cho giống với giải thích của Microsoft (The following example enables the btnUndo button when data is changed. The UndoEdits( ) subroutine is called from the Dirty event of text box controls. Clicking the enabled btnUndo button restores the original value of the control by using the OldValue property.)
Nút Undo được bật khi khi sự kiện Dirty của Textbox xảy ra ở lần thứ 2(Lần đầu khi thay đổi giá trị vẫn không bật lên vì Me.Dirty = false)
Source Code:
Private Sub DCHI_Dirty(Cancel As Integer)
UndoEdits
End Sub
Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Private Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC In Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub
--------------------------------------------
Lưu ý thêm là khi mình debug thì trong cả 2 trường hợp khi xảy ra sự kiện thì giá trị của các text box mình vừa thay đổi trên form sẽ không lấy được trong Dirty Event, mà nếu không lấy được giá trị mới thì sao mà biết đường xử lý dữ liệu và ngăn không cho chỉnh sửa dữ liệu trên đó bằng cách set giá trị Cancel = true.
Mình mong muốn là khi có bất kỳ thay đỗi dữ liệu trên các control trên form là nút undo sẽ được bật lên liền và ngược lại khi không có thay đỗi gì thì nút undo sẽ chìm xuống.
Rất mong mọi người giải thích dùm và nếu ai biết rõ về sự kiện Dirty này có thể làm 1 demo khác dùm mình vì demo này thấy không ổn!
Chân thành cảm ơn.
|
|
Viết bởi: bemit207 29-02-12, 04:07 PM Chuyên mục: Query - Bài trả lời (1) |
nhà mình tự trộn thức ăn chăn nuôi heo, trộn nhiều loại cám ( tùy giai đoạn của con heo ), mình muốn là khi mình xuất một số lượng cám thì trong kho sẽ tự giảm theo định mức đặt trước .
vd : để 100kg cám heo Loại A : thì cần các nguyên liệu là : bắp 50kg, đậu nành 20kg,nguyen liệu B 30 kg ,
thì khi mình làm phiếu xuất 200 kg cám loại A thì trong kho sẽ tự giảm các nguyên liệu xuống ( không qua form xuất kho cho các nguyên liệu ) .
XIn mọi người cho ý kiến dùm, Access mình cũng lơ tơ mơ nên nếu câu hỏi có gì ko phải xin moi người thông cảm
thank
|
|
Viết bởi: dungnvl08 29-02-12, 02:05 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (5) |
Các bạn giúp mình hàm tính điểm TB môn theo Qui chế của Bộ GDĐT:
TB môn = Điểm các bài kiểm tra X hệ số/ Tổng hệ số.
Đây là demo của mình http://www.box.com/s/v3shekmpo2ic89idpsch
Hỏi xuất Access sang Excel để in!|
|
Viết bởi: autokiss 29-02-12, 09:47 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (5) |
Link file Excel mẫu biểu báo cáo đây, các bạn giúp mình nhé! http://www.mediafire.com/?3xdxxjzydntmuch
|
|
Viết bởi: meohenmiao 28-02-12, 09:23 AM Chuyên mục: Query - Bài trả lời (4) |
Trong file em đính kèm có 1 form f_updatecus nay em muốn khi nhập thông tin khách hàng vào đây thì nó sẽ update toàn bộ dữ liệu trên form vào SQL SERVER table Khachhang? (Số chứng minh thư là khoá chính)
Cái này em dùng để sửa đổi thông tin khách hàng nếu như khách hàng có số CMTND đã tồn tại.
Và cho em hỏi bên form f_newcus (khách hàng mới) ở sự kiện sau khi nhập số chưng minh thư em để đoạn code như vậy đã hợp lý chưa, có cách nào hay hơn nữa không. (em sợ làm chậm đường chuyền).
Em cám ơn các bác!
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,300 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 129 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 146 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 7,890 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 162 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 596 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 176 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 530 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,594 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 273 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |