• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Khi bấm nút GHI thì sẽ không bao giờ sửa được.

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Khi bấm nút GHI thì sẽ không bao giờ sửa được.
• Khi bấm nút GHI thì sẽ không bao giờ sửa được.

• Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  danhxetnghiem > 21-09-13, 10:45 AM

  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ụ!

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  dtv197 > 21-09-13, 04:06 PM

  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

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  MTNQ > 21-09-13, 04:18 PM

  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

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  danhxetnghiem > 21-09-13, 08:33 PM

  (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 ạ.

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  MTNQ > 21-09-13, 09:28 PM

  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!

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  danhxetnghiem > 23-09-13, 02:24 PM

  (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!

  
  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.

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  MTNQ > 23-09-13, 09:04 PM

  (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

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  MTNQ > 23-09-13, 10:01 PM

  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é!

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  danhxetnghiem > 25-09-13, 01:34 PM

  (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é!

  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.

• RE: Khi bấm nút GHI thì sẽ không bao giờ sửa được.

  cpucloi > 26-09-13, 08:04 AM

  Ở 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é
  
  
  
  
• Bài trước Bài tiếp