-
Enter parameter Value
odakocek > 12-04-14, 07:25 PM
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. -
RE: Enter parameter Value
odakocek > 12-04-14, 08:31 PM
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
-
RE: Enter parameter Value
MTNQ > 14-04-14, 12:11 AM
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 -
RE: Enter parameter Value
odakocek > 14-04-14, 03:59 PM
Cảm ơn bạn nhiều.