Đánh giá chủ đề:
  • 2 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Khi bấm nút GHI thì sẽ không bao giờ sửa được.
#1
Cho mình hỏi?
Trong forms nhập liệu! Có cách nào khi mình bấm nút GHI thì sẽ không bao giờ sửa được bất cứ điều gì trong forms đó? Muốn sửa phải có Pass. Xin anh chị em chỉ giáo giúp, cảm ơn!!, Nếu có thể, cho mình xem một ví dụ!
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn
#2
Chào bạn!
Trong table bạn tạo thêm 1 cột KHOA(type: yes/no)
Tại sự kiện ON LOAD của form thiết kế bạn kiểm tra trạng thái hiện tại của KHOA:
- Nếu KHOA = True( hoặc Yes) thì yêu cầu nhập mật khẩu. Nếu nhập mật khẩu đúng thì set KHOA = False (hoặc No)
- Nếu KHOA = Flase (hoặc No) thì cho phép Ghi ENABLE nút GHI (btnGhi.Enabled=True)
- Refesh lại form
Chữ ký của dtv197 Xin chào, mình là dtv197, Tham gia http://thuthuataccess.com/forum từ ngày 20-08 -11.
Reply
Những người đã cảm ơn danhxetnghiem
#3
Bạn danhxetnghiem làm ở khoa xét nghiệm hả?
Xem thử cái này có đúng ý bạn ko nha?

Demo lock record (344KB)

Mã:
Private Sub cmdLUU_Click()
    Me.chkLOCK = True
    Me.txtTEN.SetFocus
    Call Form_Current
    Me.Refresh
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If
End Sub

Mã:
Private Sub cmdSUA_Click()
    Dim StrPwd As String
    StrPwd = InputBox("Vui long nhap mat khau. ", "Nhap mat khau")
    
    If StrPwd = "" Or StrPwd = Empty Then
       Exit Sub
    End If

    If StrPwd = "matkhau" Then
        chkLOCK = False
        MsgBox "Nhap mat khau thanh cong!", vbInformation, "Thong bao!"
        Me.txtTEN.SetFocus
        Call Form_Current
        Me.Refresh
    Else
        MsgBox "Mat khau khong dung!", , "Luu Y!"
        Exit Sub
    End If

End Sub

Mã:
Private Sub Form_Current()
    If chkLOCK = True Then
        Me.AllowEdits = False
        Me.cmdSUA.Enabled = True
        Me.cmdLUU.Enabled = False
    ElseIf chkLOCK = False Then
        Me.AllowEdits = True
        Me.cmdSUA.Enabled = False
        If Not Me.NewRecord Or Me.Dirty Then
            cmdLUU.Enabled = True
        End If
    End If
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname , danhxetnghiem , haianhhp
#4
(21-09-13, 04:18 PM)MatTroiNguQuen Đã viết: Bạn danhxetnghiem làm ở khoa xét nghiệm hả?
Xem thử cái này có đúng ý bạn ko nha?

Demo lock record (344KB)

Mã:
Private Sub cmdLUU_Click()
    Me.chkLOCK = True
    Me.txtTEN.SetFocus
    Call Form_Current
    Me.Refresh
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If
End Sub

Mã:
Private Sub cmdSUA_Click()
    Dim StrPwd As String
    StrPwd = InputBox("Vui long nhap mat khau. ", "Nhap mat khau")
    
    If StrPwd = "" Or StrPwd = Empty Then
       Exit Sub
    End If

    If StrPwd = "matkhau" Then
        chkLOCK = False
        MsgBox "Nhap mat khau thanh cong!", vbInformation, "Thong bao!"
        Me.txtTEN.SetFocus
        Call Form_Current
        Me.Refresh
    Else
        MsgBox "Mat khau khong dung!", , "Luu Y!"
        Exit Sub
    End If

End Sub

Mã:
Private Sub Form_Current()
    If chkLOCK = True Then
        Me.AllowEdits = False
        Me.cmdSUA.Enabled = True
        Me.cmdLUU.Enabled = False
    ElseIf chkLOCK = False Then
        Me.AllowEdits = True
        Me.cmdSUA.Enabled = False
        If Not Me.NewRecord Or Me.Dirty Then
            cmdLUU.Enabled = True
        End If
    End If
End Sub
Đúng rồi mình làm ở khoa xét nghiệm! cảm ơn bạn thật nhiều, mình sẽ làm theo bạn để xem! được rồi mình nói nhé. cảm ơn rất nhiều.

(21-09-13, 04:06 PM)dtv197 Đã viết: Chào bạn!
Trong table bạn tạo thêm 1 cột KHOA(type: yes/no)
Tại sự kiện ON LOAD của form thiết kế bạn kiểm tra trạng thái hiện tại của KHOA:
- Nếu KHOA = True( hoặc Yes) thì yêu cầu nhập mật khẩu. Nếu nhập mật khẩu đúng thì set KHOA = False (hoặc No)
- Nếu KHOA = Flase (hoặc No) thì cho phép Ghi ENABLE nút GHI (btnGhi.Enabled=True)
- Refesh lại form

Cảm ơn bạn: Bạn có thể cho mình cái ví dụ nho nhỏ để mình làm theo được không ạ.
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn
#5
Mình có gởi file kèm theo, sao ko thấy bạn tải về nhỉ? đó chỉ là file tham khảo, bạn sửa lại theo ý bạn nha!
nếu muốn ẩn chkLOCK đi thì đặt thuộc tính visible là No

Chúc bạn vui!015
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn Noname
#6
(21-09-13, 09:28 PM)MatTroiNguQuen Đã viết: Mình có gởi file kèm theo, sao ko thấy bạn tải về nhỉ? đó chỉ là file tham khảo, bạn sửa lại theo ý bạn nha!
nếu muốn ẩn chkLOCK đi thì đặt thuộc tính visible là No

Chúc bạn vui!015

Cảm ơn file đính kèm của bạn, mình tải về rồi mà lại rắc rối ở chổ là trong forms nhập liệu có thêm Subforms trong subforms vẩn sửa được bạn à, giúp mình chổ này với.
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn
#7
(23-09-13, 02:24 PM)danhxetnghiem Đã viết: Cảm ơn file đính kèm của bạn, mình tải về rồi mà lại rắc rối ở chổ là trong forms nhập liệu có thêm Subforms trong subforms vẩn sửa được bạn à, giúp mình chổ này với.

Đơn giản là bạn thêm Me.subform.Locked = True (hoặc False) vào sự kiện Form_Current (thay "subform" bằng "tên subform" của bạn)

VD:
Trích dẫn:Private Sub Form_Current()
If chkLOCK = True Then
Me.AllowEdits = False
Me.subform.Locked = True
Me.cmdSUA.Enabled = True
Me.cmdLUU.Enabled = False
ElseIf chkLOCK = False Then
Me.AllowEdits = True
Me.subform.Locked = False
Me.cmdSUA.Enabled = False
If Not Me.NewRecord Or Me.Dirty Then
cmdLUU.Enabled = True
End If
End If
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn danhxetnghiem
#8
Nếu subform của bạn hiển thị dạng Datasheet thì nên dùng Me.subform.Enabled = False (hoặcTrue)
hoặc muốn ẩn luôn cái subform ấy đi thì dùng Me.subform.Visible = False (hoặcTrue)

Bạn tùy biến thêm nhé! 007
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn danhxetnghiem
#9
(23-09-13, 10:01 PM)MatTroiNguQuen Đã viết: Nếu subform của bạn hiển thị dạng Datasheet thì nên dùng Me.subform.Enabled = False (hoặcTrue)
hoặc muốn ẩn luôn cái subform ấy đi thì dùng Me.subform.Visible = False (hoặcTrue)

Bạn tùy biến thêm nhé! 007
Cảm ơn bạn mình đã làm được! nhưng xin cho mình ngộ mụi hỏi thêm 1 vấn đề nữa nhé? vậy nếu mình muốn khóa tên và tuổi, nhưng mình không muốn khóa địa chỉ thì phải làm sao? mình cũng tìm toài đủ cách rồi mà vẩn không lục ra.
biết là Me."tên trường".cái gì ở đây mình không biết? = true.
Hi vọng bạn giúp đở? xin cảm ơn.
Chữ ký của danhxetnghiem Đừng bao giờ so sánh đoạn đầu của bạn với đoạn giữa của người khác
Reply
Những người đã cảm ơn
#10
Ở mainform:
me!ten_textbox.locked = true (khóa cứng, hiện rõ trên màn hình, nhận được forcus nhưng không sửa được dữ liệu)
me!ten_textbox.enabled = false (làm mờ, không nhận forcus)
me!ten_textbox.visibled = false (ẩn, không nhìn thấy, thường dùng trên form dạng singleform)

Tham chiếu đến các đối tượng thuộc subform:
me!tenform!tensubform.form!ten_textbox.thuộctính

bạn kết hợp lại nhé big green



LightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulbLightbulb
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cgiahuy13@gmail.com


ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn MatTroiNguQuen , danhxetnghiem


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo Menu dạng TreeView bằng Query (không dùng ActiveX) ongke0711 4 269 06-12-16, 09:16 PM
Bài mới nhất: toancvp
  Không cho phép điều chỉnh kích thước của Form ChiMai 1 129 18-09-16, 01:27 PM
Bài mới nhất: ongke0711
  Hightlight field nếu field được modify Anna 2 207 08-09-16, 10:14 AM
Bài mới nhất: ledangvan
  Không cho phép click phải chuột trên form ChiMai 2 144 03-09-16, 09:33 PM
Bài mới nhất: ongke0711
Rainbow [Help] E tạo Form nhập liệu cho table ma không dc BUIHUUDIEN 11 550 24-08-16, 12:30 AM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ