• Enter parameter Value
  • 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.