استعلام يعمل من خلال النموج العادي ولا يعمل من خلال نموذج التنقل... أين الخلل ؟

[abofayez1]

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

أخوتي الكرام

لدي جدول به بيانات ويوجد استعلام  مشروط يبحث عن البيانات بين تاريخين من نفس الجدول  ... هناك نموذج خاص بالبحث عند فتح النموذج والبحث بين تاريخين يعمل الاستعلام تمام

بدون خطأ ولكن عندالبحث من نموذج التنقل لا يعمل  الاستعلام إطلاقا ... بحثت في المنتديات عن هذه المشكلة ولم أجد الحل ... فيا أهل العلم والخبرة أفيدونا وفقكم الله .

المثال في المرفقات

 

مثال استعلام.rar

تم تعديل ديسمبر 11, 2015 بواسطه abofayez1
تعديل في العنوان

[husamwahab]

السلام عليكم اخي العزيز

اكيد لن يعمل لانه مصدر المعايير في الاستعلام هو النموذج mmm وليس نموذج التنقل

الحل هو انشاء استعلام اخر مشابه لاستعلام bbb ولكن مصدر المعايير هو نموذج التنقل

ملاحظة المعيار سيكون كالتالي

[ forms]![main form name]![subform name].[form]![textbox]

[abofayez1]

منذ ساعه, husamwahab said:

السلام عليكم اخي العزيز

اكيد لن يعمل لانه مصدر المعايير في الاستعلام هو النموذج mmm وليس نموذج التنقل

الحل هو انشاء استعلام اخر مشابه لاستعلام bbb ولكن مصدر المعايير هو نموذج التنقل

ملاحظة المعيار سيكون كالتالي

[ forms]![main form name]![subform name].[form]![textbox]

أشكرك على ردك ... وقد حاولت أطبق كلامك ... لكني لم أفلح هل يمكن تتكرم وتعدل لي على الاستعلام في المثال .وفقك الله

[jjafferr]

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

 

6 ساعات مضت, husamwahab said:

1. اكيد لن يعمل لانه مصدر المعايير في الاستعلام هو النموذج mmm وليس نموذج التنقل

2. الحل هو انشاء استعلام اخر مشابه لاستعلام bbb ولكن مصدر المعايير هو نموذج التنقل

1. هذا الكلام صحيح 

2. وهذا كذلك ، ولكن عندي بديل:

 

في النموذج mmm ، اعمل حدث بعد التحديث للحقلين d1 و d2:

 

Private Sub d1_AfterUpdate()

    d_F = Me.d1
End Sub

Private Sub d2_AfterUpdate()

    d_T = Me.d2
End Sub

 

ثم نعمل الوحدة النمطية:

Option Compare Database

Public d_F As Date
Public d_T As Date
'

Function d_From()

    d_From = d_F
End Function

Function d_To()

    d_To = d_T
End Function

 

وعليه نجعل الاستعلام يأخذ القيم من الوحدة النمطية بدلا عن النموذج مباشرة (لاحظ ان لدينا وحدتين نمطيتين ، لذلك نأخذ القيم من الاثنين):

 

وصلى الله وبارك 

 

 

جعفر

279.مثال استعلام.accdb.zip

[abofayez1]

أخي الكريم 

jjafferr

 

أشهد لك إنك خبير في الأكسس ...وكفيت ووفيت  ... ووالله لو تدري أنك حليت لي مشكلة استعصت علي من أشهر ... فبارك الله فيك وزادك الله علما وجزاك عني وعن كل من استفاد خير الجزاء .

كما أشكر أخي 

husamwahab

فقد صدق في إجابته غير أني لم أستطع تطبيق ما اقترحه في رده...فبارك الله فيه

شكرا لكم جميعا

 

 

[jjafferr]

8 دقائق مضت, abofayez1 said:

أشهد لك إنك خبير في الأكسس

حياك الله وعلى راسي 

 

بس لو تعرف ، ترى القائمين على هذا الصرح والمنتدى العظيم ، هم اللي شرفوني بهذا الوسام وهذه التسمية ، بينما انا لا املك اي شهادة في الكمبيوتر ولا حتى شهادة الرخصة الدولية لقيادة الحاسب الآلي ICDL 

 

في الرابط التالي كان في سؤال شبيه ، ولكن لطباعة التقرير ، وتم حله بطريقة اخرى كذلك:

http://www.officena.net/ib/topic/64830-مشكلة-طباعة-مع-النموذج-الفرعي/?do=findComment&comment=421820

 

 

جعفر

[abofayez1]

الله يوفقك أخ  جعفر ... وما دام هذا اللقب جاك من الأعضاء فأنت والله تستاهله وأكبر وهو أكبر شهادة بحق لجهودك ومكانتك ... 

المعذرة اليوم والله كنت مسافر وشفت ردك السابق من خلال الجوال ولم أتمكن من الرد

أجريت بعض التعديلات الخفيفة ووقعت في نفس المشكلة السابقة ولكن بطريقة مختلفة 

الخلاصة يا الغالي: أضفت في نفس نموذج التواريخ الذي قمت بالتعديل عليه أسماء الموظفين وأمام كل موظف مربع خيار  أريد عند تفعيل الخيار أمام اسم الموظف أن يتم البحث في بياناته فقط 

بين التاريخين المحددين وعند عدم التفعيل أريده يبحث في الجميع كما فعلت اليوم .

حاولت أفعل كما فعلت وأعمل وحدة نمطية شبيهة لكن خلها على الله بس 

لو تكرمت تساعدني الله يوفقك ويبارك فيك

والنموذج في المرفقات جاهز

 

279.مثال استعلام.rar

[jjafferr]

29 دقائق مضت, abofayez1 said:

حاولت أفعل كما فعلت وأعمل وحدة نمطية شبيهة لكن خلها على الله بس 

يا رجال ، كنت احسبك بتطلب مني اعمل لك كبسة دجاج او لحم ، وكنت بخبصها , وخلها على الله 

غالي والطلب رخيص (بس مو كل مرة تسافر وتيجي بفكرة جديدة)

 

الاستعلام صار:

.

نقول فيه:

1. اذا الوحدة النمطية حقّت الاسم F_Name فاضية ،

2. استعمل قيم الحقل name من الاستعلام ،

3. وإلا ، فاستعمل قيمة F_Name() من الوحدة النمطية.

الكود: len(F_Name() & '')=0 في الاستعلام (واما اذا كان في الكود العادي للنماذج ، تغير ' وتخليه " : len(F_Name() & "")=0

بدل عمليتين ، وانا دائما استعمله في برامجي ، والعمليتين:

if isnull(F_Name)

والثانية

if F_Name=""

 

والكود في نموذج الاسم اصبح:

Private Sub Form_Close()

    'close name as nothing
    f_n = ""
End Sub

Private Sub Form_Load()

    'initilize name as nothing
    f_n = ""
End Sub

Private Sub print_AfterUpdate()

    'if selected, assign the name to f_n, otherwise don't
    'so f_n will only have the last value selected, NO multiple selections
    If Me!print = -1 Then
        f_n = Me!name
    Else
        f_n = ""
    End If
    
End Sub

 

والوحدة النمطية:

Option Compare Database

Public d_F As Date
Public d_T As Date
Public f_n As String
'

Function d_From()

    d_From = d_F
End Function

Function d_To()

    d_To = d_T
End Function

Function F_Name()

    F_Name = f_n
End Function

 

279.1.مثال استعلام.accdb.zip

[abofayez1]

9 دقائق مضت, jjafferr said:

يا رجال ، كنت احسبك بتطلب مني اعمل لك كبسة دجاج او لحم ، وكنت بخبصها , وخلها على الله 

غالي والطلب رخيص (بس مو كل مرة تسافر وتيجي بفكرة جديدة)

 

9 دقائق مضت, jjafferr said:

والله الكبسة أسهل من الوحدات النمطية 

الله يوفقك دنيا وآخرة

لن أجد والله أفضل من هذه الدعوة

قدمت لي خدمة لن أنساها ولن أوفيك حقك لأننا طلاب بين يديك والطالب يتعلم من معلمه دائما 

جزاك الله خير الجزاء ونفع بك ورزقك الذرية الصالحة الطيبة

وسامحني فقد أكثرت الأسئلة وأخذت من وقتك الكثير 

تقبل تحياتي وتقديري واحترامي

أبو فايز

 

 

[jjafferr]

14 دقائق مضت, abofayez1 said:

الله يوفقك دنيا وآخرة

لن أجد والله أفضل من هذه الدعوة

جزيت ووفيت ، ولا اطلب اكثر من هذا ، فجزاك الله خيرا ، ووالديك دنيا وآخرة ان شاء الله 

 

 

جعفر

[abofayez1]

هل يمكن أخ جعفر أو أحد الإخوة الكرم يخبرنا بطريقة عمل الشرط في الاستعلام  بحيث يعمل مع نموذج التنقل دون استخدام وحدات نمطية  ,,, لأني حاولت بصراحة بكل وسيلة ولم أنجح 

حاولت أيضا باستخدام

[ forms]![main form name]![subform name].[form]![textbox]    والذي ذكره أخونا 

husamwahab

 

لكن برضه لم أنجح 

فنريده للفائدة لأهميته في رأيي لأن استخدامه قد يكون أسهل من الوحدات النمطية عند الكثير

[jjafferr]

أخوي أبوفايز 

 

طريقتي مرنه وتشتغل على جميع النماذج الرئيسية والفرعية ، ومن الكود كذلك 

ونعم هناك طرق اخرى ان تنادي المعايير من عدة نماذج لإستعلام واحد ،

مثلا:

انا في معظم برامجي عندي نموذج واجهة البرنامج ، وهذا النموذج دائما مفتوح اثناء استعمال البرنامج (وطبعا تقدر تستخدم نموذج مخفي اذا اردت) ،

فاللي ممكن ان تعمله هو ، ان تعمل حقول غير مضمنه في هذا النموذج (طبعا ستكون مخفيه) ، 

ثم ترسل قيمة المعايير الى هذه الحقول في نموذج الواجهة ، 

تغير معيار الاستعلام ، بحيث يشير الى هذه الحقول.

 

 

جعفر

[abofayez1]

بارك الله فيك أخي الغالي

وفتحت لي أبواب كثيرة بأمثلتك وأفكارك فلا عدمناك من خبير

لك شكري وتقديري

[jjafferr]

صافي يا لبن 

[رمهان]

السلام عليكم 

هناك الكائن tempvars  والجديد في 2007 وما فوق ! وهو مفيد جدا لمثل هذه الحالة !

ساقوم بكتابة موضوع جديد حول هذا  وقريبا باذن الله ! 

بالتوفيق