Cho em hỏi lỗi này là do đâu ?

[hocon84]

Em có tạo một ứng dụng nhỏ cho quầy bán CD của nhà em. Công việc như thế này:
- Trên frmBanCD, tại txtIDCD em nhấn phím * để vào frmCD, vào đây để em tìm được một IDCD nào đó cần bán, sau đó em nhấn Esc để vừa thoát vừa chèn IDCD em lựa chọn vào txtIDCD của frmBanCD.

Nếu em tìm được IDCD vừa ý thì ko có gì dể bàn, Nhưng tội ở chỗ là khi em không tìm thấy IDCD theo yêu cầu, em bấn nút Esc thì hiện ra một báo lỗi Dỳ-bấc ..... Răn - tham ... gì gì đấy... (có nút End, Help,...)

Vậy, em xin sự trợ giúp của anh chị.
Em xin cảm ơn nhiều !
File đây ạ: http://www.4shared.com/file/76724298/cd5adcc/db1.html

View more random threads:

• Vấn đề xóa dữ liệu trên Form( Khi Form đang mở bởi 2 người)
• Cho mình hỏi về OLE quái vật !
• Tài liệu Macro trong Access
• Treeview trong access
• Lỗi access 2003 khi chạy trên 2007
• Em có hai thắc mắc mong được anh chị giúp đỡ
• nho huong dan sua loi code va huong dan lam do an lap trinh access
• Connect ODBC trong ACCESS!
• Giúp mình bắt lỗi khi người dùng nhấn Alt + F4
• Mong các bác giúp đỡ

[sownlee]

Ðề: Cho em hỏi lỗi này là do đâu ?

Bạn sửa sự kiện On Keydown của form frmCD lại như sau nhé:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        If Me.RecordsetClone.RecordCount > 0 Then
            If IIf(IsNull(txtIDCD), "", txtIDCD) <> "" Then
                Me.Tag = txtIDCD
            End If
        End If
        DoCmd.Close acForm, Me.Name
    End If
End Sub

[xuyenchi05]

Ðề: Cho em hỏi lỗi này là do đâu ?

hoặc thế này cũng được:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error Resume Next
If KeyCode = vbKeyEscape Then
If IIf(IsNull(txtIDCD), "", txtIDCD) <> "" Then
Me.Tag = txtIDCD
End If
DoCmd.Close
End If
End Sub

[canhotanbinh]

Ðề: Cho em hỏi lỗi này là do đâu ?

Đơn giản thế thôi sao hai anh, tệ thật em không biết làm cơ chứ.
Cảm ơn hai anh nhé.....!