مشكلة في تصدير استعلام اذا كان مشروط

[STERP]

السلام عليكم ورحمة الله وبركاته  

عندي سؤال بخصوص تصدير الاستعلام الكويري الي تكست نصي 

انا عامل زر تصدير لتكست من تقارير محفوظه اسمها saved imports   فبيصدر بطريقة ممتازة

فالمشكلة لو كان الاستعلام فيه شرط لايصدر يطلع رسالة خطأ

 

TXT.rar

[jjafferr]

وعليكم السلام ورحمة الله وبركاته 🙂

 

هلا والله بأهل طيبة ، مهوى الفؤاد 🙂

 

للإستفادة القصوى من المنتدى، رجاء قراءة قوانين المنتدى : قواعد المشاركة فى الموقع

 

رسالة الخطأ: Too many parameters expected 1 ، Too many parameters expected 2 ، Too many parameters expected 3 ، Too many parameters expected X

لها هذه الحلول :

في معيار الاستعلام :

بدلا عن
[Forms]![Form1]![Text1]


استعمل
Eval("[Forms]![Form1]![Text1]")

.

واذا كنت في الكود وكنت تستعمل الامر Recordset

dim rst as dao.recordset
  set rst= ....
  rst.movelast
  ...
  
  
Exit Sub
err_cmd_Combine_Click:

        If Err.Number = 3061 Then  'too few parameters, expected 1 or more
            
            'this error occurs when trying to run a query which needs its parameters from a Form,
            'the Form should be open with the parameter, then this code take the values properly
            
            Dim qdf As QueryDef
            Dim prm As Parameter
            
            'Set qdf = CurrentDb.QueryDefs("strSql")
            Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSql)
            For Each prm In qdf.Parameters
                prm.Value = Eval(prm.Name)
            Next prm

            Set rst = qdf.OpenRecordset(dbOpenDynaset)
            DoCmd.DeleteObject acQuery, "NewQueryDef"
            
            Resume Next
        
        Else
        
            MsgBox Err.Number & vbCrLf & Err.Description
        End If

 

جعفر

[STERP]

جزاك الله خيراً  واسف علي التاخير بس عدم معرفة استخدام البرنامج، خلاص لاقيت حل انو تصدر الاستعلام لجدور وتصدر الجدول لتكست