anhemnhangu > 28-02-14, 05:51 PM
trunghieu > 28-02-14, 07:19 PM
anhemnhangu > 01-03-14, 08:27 AM
(28-02-14, 07:19 PM)trunghieu Đã viết: Xin góp ý cho bạn thế này, bạn xem có thể sử dụng được không:
- Trong table chứa dữ liệu cần khóa bận thiết kế thêm trường khoaso
- Bạn viết code hoặc update query theo điều kiện những dữ liệu có ngày nhập trong một tháng nào đó cần khóa sẽ cập nhật thêm ngày/tháng/năm khóa sổ vào trường khoaso.
- Trong các form nhập liệu, bạn có thể cho hiện thị các record đã khóa sổ hoặc có thể không cho hiển thị tùy ý bạn theo điều kiện khoaso= null, dữ liệu đã khóa sổ có thể cho xem dạng report hoặc form.locked = true thì dữ liệu không thể sữa hoặc thay đổi được.
Vài ý cùng bạn, chúc bạn thành công.
haquocquan > 01-03-14, 10:48 AM
MTNQ > 01-03-14, 12:54 PM
(28-02-14, 05:51 PM)anhemnhangu Đã viết: Em muốn làm một chức năng khi kết thúc tháng thì mình khóa sổ cuối tháng, qua tháng sau thì không
thay đổi, chỉnh sửa được. Vậy mình phải chọn kỳ làm việc sau khi đăng nhập ?
Các bạn cho mình hỏi trường hợp này thì mình phải xử lý viết Code như thế nào.
Cám ơn.
Private Sub Form_Current()
Dim strThang As String, strNam As String
strThang = Format(Date, "mm")
strNam = Format(Date, "yyyy")
' Me!txtTen.SetFocus
If Not Me.NewRecord Then
If Format(Me!txtNgaythang, "mm") <> strThang Or Format(Me!txtNgaythang, "yyyy") <> strNam Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If
Else
Me.AllowEdits = True
End If
End Sub