Làm form chỉ cho nhập không cho sửa, xoá

[spammail]

Thật sự là k hiểu ý bạn cho lắm nhưng mình cũng thử đưa ra cách này xem sao.
Set properties cho subform:
+ Recordset Type: Snapshot

 

[tung dung]

Form cho nhập,không sửa xoá

xin chào,nếu chỉ cho nhập mới không thì với Data Entry = Yes là đủ,nhưng Bạn muốn tới lui để cho xem nhưng không cho sửa xoá khi đả có Data thì phải làm cách khác,bây giờ có 2 vấn đề đặt ra là:
1-không cho sửa xoá với người khác...còn Bạn thì sao!!??
2-là khoá luôn không ai có thể sửa xoá,kể cả Bạn...?
nếu là trường hợp thứ 2 thì,Bạn vào From-Design-Properties-Data(Allow Edits=No,Allow Deletions=No,Allow Additions =True),SubForm củng vậy,tôi xin giải thích thêm là nếu Bạn chọn Allow Additions =No luôn thì khi mở Form mà chưa có Record nào thì cái Form sẻ trắng bệt ra như tấm vách nhìn :004:,Ta sẻ khoá Allow Additions ở thủ tục Form_Load như sau:

If Not IsNull([1 cái field nào đó]) Then
Form.AllowAdditions = False
Else
Form.AllowAdditions = True
Form.Refresh

lưu ý,cái field [1 cái field nào đó] phải có thuộc tính Required=Yes
kế tiếp,bạn làm 2 nút lịnh(ex:Thêm,Xong):

nút Thêm On_click:

Form.AllowAdditions = True
Docmd.record goto đâu đó...
Me.SubForm.Form.AllowAdditions = True(SubForm không cần nút nào cả)
field.SetFocus(là 1 fields nào đó trong Form)
A.Visible = False(không Set cái nầy củng được nhưng về kỷ thuật lập trình thì để nhìn cho nó hiện đại)
Form.Refresh

nút Xong On_click:

Form.AllowAdditions = False
Me.SubForm.Form.AllowAdditions = False
A.Visible = True(nếu có False thì mới có True)
A.SetFocus
Form.Refresh

Bây giờ thì tới Bạn,nếu Bạn muốn sửa xoá thì Bạn làm thêm 1 cái Text nhỏ,Input Mask=Password(ex:TextSuaxoa)
TextSuaxoa_ApterUpdate()
IF TextSuaxoa = ".....gì đó" then
Form.AllowEdits = True
Form.AllowDeletions = True
Me.SubForm.Form.AllowEdits = True
Me.SubForm.Form.AllowDeletions = True
Form.Refresh
else
beep
MsgBox"muốn la gì thì la ...."

EndIf

đây là cách đơn giản nhất,còn cao cấp hơn thì Bạn dùng thêm về kỷ thuật Phân Quyền

 

[mvp2006]

Vấn đề này mình thường làm như sau
Phân quyền đơn giản
ở table User bạn thêm 1 field Admin (Yes/No)
ở form khởi động bạn gán biến chung mAdmin = field admin

Ở form bạn nhập liệu

Private Sub Form_Load()
Khoa
If madmin then
cmdSua.enabled=true
cmdXoa.enabled=true
else
cmdSua.enabled=false
cmdXoa.enabled=true
endif
End sub

Private Sub cmdThem_Click()
MoKhoa
End sub

Private Sub cmdSua_Click()
MoKhoa
End sub

Private Sub cmdGhi_Click()
Khoa
End sub


Private Sub MoKhoa()
text.Enabled = true
text.Locked = false
SubForm.Form.AllowAdditions = true
SubForm.Form.AllowDeletions=true
SubForm.Form.AllowEdits=true
End sub

Private Sub Khoa()
text.Enabled = false
text.Locked = true
SubForm.Form.AllowAdditions = false
SubForm.Form.AllowDeletions=false
SubForm.Form.AllowEdits=false
End sub

 

[tieunam1312]

Nhờ spammail hướng dẫn giúp tháo gỡ vấn đề này với ak, mình có nhận đc file của đơn vị bn mà muốn chỉnh sửa một nội dung sai lỗi chính tả nhưng ko đc, cảm ơn spammail nhiều nhé
https://secufiles.com/53ab/16._Phụ_lục__(kèm_theo_BC_của_BCH,_áp_dụng_2007).xlsx

 

[huy77cc]

cho mình hỏi với, mình có 1 bảng HOCSINH, mỗi lần mở form cập nhật ra xem dù mình chưa thêm gì cả là MALOP trong bảng HOCSINH đã tự động thay đổi tại người đầu tiên trong bảng HOCSINH là sao?