Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Enter parameter Value
#1
Chào các bạn, đầu tiên mình xin lỗi nếu câu hỏi của mình đã có trong diễn đàn, mình đã tìm kiếm một số câu giải đáp nhưng do là lần đầu tiên tiếp xúc với Access và cũng không có thời gian nghiên cứu về nó nên mình không thật sự hiểu lắm.
Mình đã đọc ở đây :
Trích dẫn:http://thuthuataccess.com/forum/thread-7060.html
Và ở đây :
Trích dẫn:http://thuthuataccess.com/forum/thread-4932.html
Tuy nhiên vẫn chưa tìm được cách khắc phục vấn đề của mình :

Vấn đề của mình như sau :

1. Mình có 1 table : Company_profiles_tb chứa field ID_company; 1 form Company_profiles_f có Record Source là table : Company_profiles_tb; trong form này mình tạo 1 số Text box trong đó có Text box có name : ID_COMPANY_str; Control Source là ID_company

2. Mình có thêm 1 form Search (theo hướng dẫn của bạn nào đó cũng trên diễn đàn này), thực hiện việc tìm kiếm các công ty có tên hoặc địa chỉ từ các Text Box. Các công ty này được hiển thị ở List Box : COMPANY_LIST
Trên form Search này mình tạo thêm một Text box với tên là COMPANY_ID; Control Source =[COMPANY_LIST].[column](5) // Trong List box COMPANY_LIST thì cột ID_company là cột thứ 5 (0-5)

Mình thực hiện event Double click lên các entry của COMPANY_LIST để mở form Company_profiles_f nhằm hiển thị thông tin chi tiết của ID_company thu được từ text box COMPANY_ID

Private Sub COMPANY_LIST_DblClick(Cancel As Integer)
DoCmd.OpenForm "Company_info", acNormal, , "ID_company =" & Me.COMPANY_ID
Forms![Company_Search].Visible = False
End Sub

3. Khi chạy các form này thì khi mình thực hiện thao tác double click lên 1 entry đã tìm được trên form Search thì sẽ xuất hiện 1 popup Enter parameter Value bắt mình nhập lại ID_company mới chuyển đến form Company_profiles_f. Nếu nhập nhầm ID khác thì chuyển đến form Company_profiles_f của ID này, nếu không trùng ID nào thì báo lỗi.

Mình muốn khắc phục lỗi này thì phải làm thế nào ?
Cảm ơn các bạn nhiều.
Chữ ký của odakocek Xin chào, mình là odakocek, Tham gia http://thuthuataccess.com/forum từ ngày 12-04 -14.
Reply
Những người đã cảm ơn
#2
Mình làm theo mẫu này :
Trích dẫn:http://thuthuataccess.com/forum/post-22341.html
Mình cũng up luôn mẫu đơn giản mình làm và bị lỗi như đã nói ở trên.
Các bạn xem giúp mình, cảm ơn nhiều.
Trích dẫn:https://www.dropbox.com/s/24y4qg4xpwty65...Info.accdb
Chữ ký của odakocek Xin chào, mình là odakocek, Tham gia http://thuthuataccess.com/forum từ ngày 12-04 -14.
Reply
Những người đã cảm ơn
#3
Do trường ID_company của table Company_info kiểu text nên bạn chỉ cần sửa
DoCmd.OpenForm "Company_info", acNormal, , "ID_company =" & Me.COMPANY_ID
thành:
DoCmd.OpenForm "Company_info", acNormal, , "ID_company ='" & Me.COMPANY_ID & "'"
là được

Mã:
Private Sub COMPANY_LIST_DblClick(Cancel As Integer)
    DoCmd.OpenForm "Company_info", acNormal, , "ID_company ='" & Me.COMPANY_ID & "'"
    Forms![Company_Search].Visible = False
End Sub
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn odakocek
#4
Cảm ơn bạn nhiều.
Chữ ký của odakocek Xin chào, mình là odakocek, Tham gia http://thuthuataccess.com/forum từ ngày 12-04 -14.
Reply
Những người đã cảm ơn


Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ