• Thêm mới dữ liệu
  • Thêm mới dữ liệu

    thanhquyt > 29-08-15, 12:07 AM

    Hi mọi người
    Giúp mình lỗi này với.Đăng bài hoài ko được nên port hình luôn
    [img][Hình: GPh03ug.jpg][/img]
    Thank
  • RE: Thêm mới dữ liệu

    maidinhdan > 29-08-15, 12:33 AM

    Mình chưa trả lời tại sao bạn lỗi, mình muốn hỏi thôi hà. ( ....Thuật ghi nhớ,....giúp bạn lâu quên )

    Nút Thêm + Lưu của bạn, bạn biết khi nhấn nó có ý nghĩa gì không?
  • RE: Thêm mới dữ liệu

    thanhquyt > 29-08-15, 12:46 AM

    (29-08-15, 12:33 AM)maidinhdan Đã viết: Mình chưa trả lời tại sao bạn lỗi, mình muốn hỏi thôi hà. ( ....Thuật ghi nhớ,....giúp bạn lâu quên )

    Nút Thêm + Lưu của bạn, bạn biết khi nhấn nó có ý nghĩa gì không?


    Nút thêm  là thêm mới dữ liệu.Nút lưu là lưu dữ liệu lên table
    Nhưng ở nút thêm khi đã có thông tin mà chưa muốn lưu mà muốn thêm mới nữa thì khi click thêm nó tự động lưu.Nên bị bắt lỗi ở textbox khi có thông tin thì ko lưu.Nhưng lại gặp lỗi như mình đã trình bày
    Bạn giúp mình với
    Thank
  • RE: Thêm mới dữ liệu

    maidinhdan > 29-08-15, 01:09 AM

    Trả lời:

    Có lẽ bắt mới bắt đầu tập viết code, bạn không nên copy từ ứng dụng của người khác khi chưa thông hiểu hết các ý nghĩa của nó.


    * Ở 2 nút: Hạn chế sử dụng "On Error Resume Next" = Bỏ qua tất cả các lỗi nếu có, thế thích khi chạy code này, nếu gặp lỗi đoạn nào thì nó sẽ không tô màu vàng cho bạn xem để chỉnh.

    * Nút thêm của bạn ý nghĩa như thế này: Hành động nhấn nút: có Tối thiểu hai hành động được thực hiện.
    1. Nếu ô Tenbn rỗng thì khôi phục lại ( undo). 
    2. Thực hiện tiếp Di chuyến đến ô Tenbn.
    3. Thêm mới.

    => Lỗi phát biểu hành động 1.

    Khuyến nghị, đọc bài này: [Thủ Thuật] Demo_1 Nút nhấn có 2 chức năng ( Thêm + Xóa)

    Trong Demo trên, để ý 2 dòng trong code là đủ:
    ' Them moi
            DoCmd.GoToRecord , , acNewRec
    ' Xoa

        DoCmd.SetWarnings False
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70               '' Thay thế dòng này và dòng dưới bằng .......acCmdSaveRecord ( Lưu)
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        MsgBox "Da xoa"