Chủ đề: Cho em hỏi lỗi này là do đâu ?
-
12-20-2008, 07:28 AM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Cho em hỏi lỗi này là do đâu ?
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.htmlView more random threads:
- Tối ưu thuật toán tạo thẻ kho trong access
- Cơ sở dữ liệu Access nhiều người người dùng
- Chỉ giúp em chỗ sai của đoạn code này.
- Bấm nút ESC tự đóng Forms
- TIP : Ẩn Table trong ACCESS .
- Giúp đở đoạn code SQL trong VBA của Access
- Giúp mình về câu lệnh thống kê từ ngày này đến ngày kia
- Lỗi 424 khi làm TreeView
- Tổng quát về phần mềm quản lý nhập - xuất - tồn
- tạo nút lọc và đánh số tự động
-
12-20-2008, 03:13 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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é:
Mã: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
-
12-20-2008, 03:22 PM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: 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
-
12-22-2008, 07:45 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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é.....!
Hội y khoa giới tính thế giới định nghĩa xuất tinh sớm là tình trạng rối loạn xuất tinh của nam giới với đặc trưng luôn xuất tinh sớm hơn hoặc trong vòng một phút quan hệ. Bệnh nhân không có khả năng...
Tìm hiểu về loại thuốc dứt điểm bệnh "ra nhanh"