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

[tienduyet]

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

 

[behattieu]

Ðề: 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

 

[tienduyet]

Ðề: 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é.....!