Viết mật khẩu cho nút lệnh (Command button)

[PVT]

Mình có một file access như hình đính kèm, trong hộp nhập liệu (data form) có nút lệnh khá nhạy cảm là "Delete cancelled permits", nếu bấm vào nút này thì nó xóa các "cancelled permit".

Để tránh việc xóa nhầm, mình muốn gán thêm mật khẩu trước khi nút lệnh này chạy.

Các bạn giúp mình với.

Rất cám ơn.

PVT

 

[Po_Pikachu]

Bạn thử code giống kiểu này xem có được không?

Sub thu() Dim pw As String pw = InputBox("Thu: ", "Thong bao") If pw = "134" Then 'Del code Else MsgBox ("Ban phai nhap dung pass moi duoc") Exit Sub End If End Sub

Thân.

 

[ptm0412]

Sub DelButton_click()
Dim PssDel As String
PssDel = InputBox("Please type your Password:", "Password to delete")
If PssDel = "aBcD" Then
'your delete code'
Else
MsgBox "You don't have permission to delete those record", vbOKOnly, "Access Denied!"
Exit Sub
End If
End Sub

 

[PVT]

Mình chưa rành lắm, các bạn add nó vào file này giúp mình.

Cám ơn.
Thang

 

[Po_Pikachu]

Tại Form đó bạn chọn chế độ Design nha! Rồi nhấp phải chuột vào "Delete Cancelled Permits" chọn Build Event -> Bạn sẽ thấy code mình đặt trong đó. File: http://www.mediafire.com/?5xzrdeyyyqj Chúc thành công. Thân.

 

[PVT]

Cám ơn Po_Pikachu & Ptm0412, giải pháp rất đơn giản và hữu dụng. Các bạn thật xứng danh GPE starssss.

Một lần nữa, xin cám ơn. Các bạn ở SG thì cho mình bíêt để có dịp offline "tạ lễ" nhé.

Thân,
Thang

 

[nguyenhongk14]

Help me!

============
Chào ban
Cám ơn Po_Pikachu & Ptm0412.
Mình đang muốn học lập trình Access
Mình muốn tự viết 01 chương trình Quản lý Lương, nhân viên hoặc Quản lý NHẬP-XUẤT-TỒN KHO của 01 cơ sở bán thức ăn , thuy san hay gia súc chẳng hạn...
Bạn có chương trình nào tương tự cho mình tham khảo với
Chủ yếu mình học tập về thiết kế giao diện, viết code cho các nút lệnh, các event, viết macro , lập bẩy trong các nút lệnh... nh62u thứ lắm
bạn có tài liệu thì share cho mình với
cam ơn bạn nhiều
===============

Sub DelButton_click()
Dim PssDel As String
PssDel = InputBox("Please type your Password:", "Password to delete")
If PssDel = "aBcD" Then
'your delete code'
Else
MsgBox "You don't have permission to delete those record", vbOKOnly, "Access Denied!"
Exit Sub
End If
End Sub

 

[ptm0412]

Mình đang muốn học lập trình Access

Tham khảo 1 form nhập liệu trong link Nhập và lưu trong Access

 

[syquyen1987]

Sub DelButton_click()
Dim PssDel As String
PssDel = InputBox("Please type your Password:", "Password to delete")
If PssDel = "aBcD" Then
'your delete code'
Else
MsgBox "You don't have permission to delete those record", vbOKOnly, "Access Denied!"
Exit Sub
End If
End Sub

Cho em hỏi là làm thế nào để gõ vào Inputbox mà Inputbox hiển thị như dạng Password ạ? Em cảm ơn

 

[ptm0412]

Cho em hỏi là làm thế nào để gõ vào Inputbox mà Inputbox hiển thị như dạng Password ạ? Em cảm ơn

Thay vì inputbox thì tạo 1 user form bé bé

 

[ongke0711]

Cho em hỏi là làm thế nào để gõ vào Inputbox mà Inputbox hiển thị như dạng Password ạ? Em cảm ơn

Bạn xem bài này, mới đây thôi: link