Giao diện nhập liệu Access

Đó hỏi: e-CHÍP có thể chỉ em làm sao để:
1. Khi mới mở form không cho phép chỉnh sửa dữ liệu trên form chính, ẩn đi các nút "Ghi" và nút "Không ghi".
2. Tạo nút "Sửa" cho phép sửa mẩu tin trên form (nhưng không cho sửa số BD).
3. Làm sao để các nút sáng lên khi cần dùng đến và mờ đi khi không dùng đến (ví dụ: khi mình nhấn nút "Thêm mẩu tin" thì nút "Sửa" mờ đi. Khi mình đã thêm được mẩu tin rồi thì nút "Sửa" sáng lên).
Em sắp thi rồi và còn mù mờ về nó lắm.

Đây trả lời: Để cho / không cho phép chỉnh sửa dữ liệu trên form chính khi form mới mở (tình huống On Open), bạn sử dụng thuộc tính AllowEdits của form.

Để làm mờ / hiện rõ nút lệnh (nghĩa là cho / không cho chọn) cũng như các đối tượng trên form, bạn sử dụng thuộc tính Enabled của chúng.

Giả sử: nút "Thêm" có tên cmdThem, nút "Sửa" có tên cmdSua, nút "Ghi" có tên cmdGhi, nút "Không ghi" có tên cmdKhongGhi. Bạn có thể giải quyết các thắc mắc của mình thông qua đoạn mã 1.

Bạn lưu ý: Khi một đối tượng đang nhận focus, bạn không thể cho mờ (thuộc tính Enabled = False) hoặc biến mất (thuộc tính Visible = False), muốn vậy trước hết phải chuyển focus sang đối tượng khác bằng hành vi SetFocus. Chúc bạn thi đậu nhé!

Đoạn mã 1:

Private Sub Form_Open(Cancel As Integer)
  Me.AllowEdits = False      ‘ Không cho sửa dữ liệu
  cmdGhi.Enabled = False     ‘ Không cho chọn nút "Ghi", "Không ghi"
  cmdKhongGhi.Enabled = False
End Sub
Private Sub cmdThem_Click()
  DoCmd.GoToRecord , , acNewRec ‘ Thêm mới record
  SoBD.SetFocus                 ‘ Chuyển con trỏ đến mục SoBD
  cmdThem.Enabled = False       ‘ rồi mới làm mờ nút "Thêm" được
  cmdSua.Enabled = False
  cmdGhi.Enabled = True         ‘ Cho chọn nút "Ghi", "Không ghi"
  cmdKhongGhi.Enabled = True
End Sub
Private Sub cmdSua_Click()
  SoBD.Enabled = False       ‘ Không cho sửa mục SoBD
  HoTen.SetFocus             ‘ Chuyển con trỏ đến mục HoTen
  cmdSua.Enabled = False     ‘ rồi mới làm mờ nút "Sửa" được
  cmdThem.Enabled = False
  cmdGhi.Enabled = True
  cmdKhongGhi.Enabled = True
  Me.AllowEdits = True       ‘ Cho sửa dữ liệu
End Sub
Private Sub cmdGhi_Click()
  DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
  cmdThem.Enabled = True
  cmdSua.Enabled = True
  cmdThem.SetFocus           ‘ Chuyển con trỏ đến nút "Thêm"
  cmdGhi.Enabled = False     ‘ rồi mới làm mờ nút "Ghi" được
  cmdKhongGhi.Enabled = False
  Me.AllowEdits = False
End Sub
Private Sub cmdKhongGhi_Click()
  DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
  cmdThem.Enabled = True
  cmdSua.Enabled = True
  cmdThem.SetFocus            ‘ Chuyển con trỏ đến nút "Thêm"
  cmdKhongGhi.Enabled = False ‘ rồi mới làm mờ nút "Không ghi" được
  cmdGhi.Enabled = False
  Me.AllowEdits = False
End Sub

Phục hồi lệnh Send to trong menu ngữ cảnh

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Send To]
@="{7BA4C740-9E81-11CF-99D3-00AA004AE837}"

rồi bấm kép chuột vào file này để chạy (để thay đổi registry của Windows). Thay đổi sẽ có hiệu lực mà không cần khởi động lại Windows.
Khi muốn ẩn lịnh Send to, bạn vào Registry > tìm đến khóa HKEY_CLASSES_ROOT\ AllFilesystemObjects\ shellex\ ContextMenuHandlers\ Send To > xóa giá trị Default của khóa này.

Nơi tải các file DLL của Windows

[Đầu trang]