أرجو الاجابة ........ممكن

-- الحل بسيط ياأخي ..

-- اذا كانت المخرجات هي تقرير يعتمد على هذا الإستعلام بحيث أن هذا الزر يفتح التقرير فهذا هو الحل :

-- لنفرض أن النموذج الني صنعته اسمه frmquery

-- ولنفرض أن مربع النص اسمه txtname

-- لنفرض ايضا أن الحقل الذي تريد البحث فيه هو name

-- الآن افتح الإستعلام وتحت الحقل name وفي صف (معايير) أكتب :

=forms![frmquery]![txtname]

--- وإذا كنت تريد فتح نموذج آخر اسمه frmnew مثلا ،يأخذ قيمة مربع النص ويمررها للإستعلام ،

--- فاستخدم الكود التالي في حدث نقر الزر :

Private Sub cmdOpen_Click()

On Error GoTo Err_cmdOpen_Click



    Dim stDocName As String

    Dim stLinkCriteria As String



    stDocName = "frmnew"

    stLinkCriteria = "[name] = " & Me!txtname

    DoCmd.OpenForm stDocName, , , stLinkCriteria



Exit_cmdOpen_Click:

    Exit Sub



Err_cmdOpen_Click:

    MsgBox Err.Description

    Resume Exit_cmdOpen_Click

    

End Sub