• Ngăn xóa cột từ subform
  • Ngăn xóa cột từ subform

    AnNguyen > 29-07-19, 05:06 PM

    Khi em chọn nguồn subform là 1 table thì ngay tại subform em chuột phải có chữ delete vậy là e xóa được cả cái cột đó đi,
    Vậy em phải làm thế nào để ngăn không cho người dùng xóa cột mà vẫn thêm dữ liệu hay thay đổi các bản ghi được ạ.
    Em cảm ơn!
  • RE: Ngăn xóa cột từ subform

    ongke0711 > 29-07-19, 07:58 PM

    Bạn vô Property Sheet của Form -> Format -> Layout view: No.
  • RE: Ngăn xóa cột từ subform

    AnNguyen > 29-07-19, 10:10 PM

    (29-07-19, 07:58 PM)ongke0711 Đã viết: Bạn vô Property Sheet của Form -> Format -> Layout view: No.
    Vâng. Em cảm ơn.
    Bác cho e hỏi thêm chút ạ. Cái subform đó em muốn lấy sự kiện click để em click vào dòng nào thì lấy ra mã trong đó. E tìm sự kiện của subform thì không thấy gì ạ
  • RE: Ngăn xóa cột từ subform

    ongke0711 > 29-07-19, 10:19 PM

    Click dòng trong Subform thực chất là click vô từng textbox của SF. Bạn phải chọn từng textbox trong đó và gán sự kiện On Click giống nhau cho nó.
  • RE: Ngăn xóa cột từ subform

    AnNguyen > 29-07-19, 10:40 PM

    (29-07-19, 10:19 PM)ongke0711 Đã viết: Click dòng trong Subform thực chất là click vô từng textbox của SF. Bạn phải chọn từng textbox trong đó và gán sự kiện On Click giống nhau cho nó.
    Ôi nhiều thế em gán sao được hết ạ  021
  • RE: Ngăn xóa cột từ subform

    ongke0711 > 29-07-19, 11:16 PM

    Kỹ thuật lập trình nằm ở đây.
    - Khi click vô dòng đầu thì thông thường chỉ click vô mấy cột gần đầu bên trái thôi đúng không? thì chỉ cần gán cho 4 5 cột thôi.
    - Khi viết code thì phải viết nó thành Function hoặc Sub để chỉ cần gọi nó thôi thay vì mỗi textbox lại gõ lại một đống code. Đó là tính kế thừa trong lập trình hướng đối tượng.
    Vd:

    Private Sub txtMaNV_Click()
         Call XuLy
    End Sub

    Private  Sub txtTenNV_Click()
         Call XuLy
    End Sub




    Private Sub XuLy()
         Dim sMa As String
         sMa= Me.txtMaNV
         MsgBox sMa
         .....
    End Sub
  • RE: Ngăn xóa cột từ subform

    AnNguyen > 30-07-19, 09:06 AM

    (29-07-19, 11:16 PM)ongke0711 Đã viết: Kỹ thuật lập trình nằm ở đây.
    - Khi click vô dòng đầu thì thông thường chỉ click vô mấy cột gần đầu bên trái thôi đúng không? thì chỉ cần gán cho 4 5 cột thôi.
    - Khi viết code thì phải viết nó thành Function hoặc Sub để chỉ cần gọi nó thôi thay vì mỗi textbox lại gõ lại một đống code. Đó là tính kế thừa trong lập trình hướng đối tượng.
    Vd:

    Private Sub txtMaNV_Click()
         Call XuLy
    End Sub

    Private  Sub txtTenNV_Click()
         Call XuLy
    End Sub




    Private Sub XuLy()
         Dim sMa As String
         sMa= Me.txtMaNV
         MsgBox sMa
         .....
    End Sub
    Em cảm ơn bác nhé!
  • RE: Ngăn xóa cột từ subform

    AnNguyen > 30-07-19, 09:14 AM

    (29-07-19, 07:58 PM)ongke0711 Đã viết: Bạn vô Property Sheet của Form -> Format -> Layout view: No.
    Bác ơi, nay em mở máy thì không tìm thấy cái định dạng Layout View nào trong format cả  008
  • RE: Ngăn xóa cột từ subform

    ongke0711 > 30-07-19, 10:30 AM

    (30-07-19, 09:14 AM)AnNguyen Đã viết:
    (29-07-19, 07:58 PM)ongke0711 Đã viết: Bạn vô Property Sheet của Form -> Format -> Layout view: No.
    Bác ơi, nay em mở máy thì không tìm thấy cái định dạng Layout View nào trong format cả  008

    Chính xác nó là "Allow Layout view". Bạn tìm thông số gần đúng với nó rồi thử cũng được mà, vì tôi không nhớ chính xác cái property đó.
  • RE: Ngăn xóa cột từ subform

    AnNguyen > 30-07-19, 10:54 AM

    (30-07-19, 10:30 AM)ongke0711 Đã viết:
    (30-07-19, 09:14 AM)AnNguyen Đã viết:
    (29-07-19, 07:58 PM)ongke0711 Đã viết: Bạn vô Property Sheet của Form -> Format -> Layout view: No.
    Bác ơi, nay em mở máy thì không tìm thấy cái định dạng Layout View nào trong format cả  008

    Chính xác nó là "Allow Layout view". Bạn tìm thông số gần đúng với nó rồi thử cũng được mà, vì tôi không nhớ chính xác cái property đó.
    hehe, được rồi ạ, cảm ơn bác nhiều nhé.