فتح عدة نقارير بواسطة combobox

[jjafferr]

  في 29‏/11‏/2020 at 20:39, كريمو2 said:

لقد اضفت النموذج الرئيسي Swichboard ومن خلاله حاولت فتح نموذج التقارير المعدل فلم يفتح اي يوجهني الى مشكلة بالكود

Expand  

صعب ان اساعدك بدون ان اعرف رقم الخطأ وتفاصيله !!

ولكنه سيكون واحد من اثنين :

1. إما النموذج الرئيسي swichboard غير مفتوح ،
2. وإما ان قيمة الحقل txtYear في النموذج الرئيسي لا تقبل التحديث (الآن وقد ارفقت لنا هذا النموذج ، ارى 1. انك لم تنسخ txtYear  الى نموذجك ، وانما الحقل عندك اسمه نص109 ، و 2. ان قيمة الحقل نص109 عندك هي

=Year(Date())

 

اقتراحي لك:

1. التأكد من ان النموذج الرئيسي swichboard دائما مفتوح ، واذا لم تكن متأكد من ذلك ، فيجب ان تتأكد انه مفتوح برمجيا ،

1. انت تحذف جميع مصدر بيانات الحقل txtYear  في النموذج swichboard  ، بحيث يأخذ بياناته من النماذج التي ترسل التاريخ.

 

جعفر

[jjafferr]

  في 30‏/11‏/2020 at 08:02, كريمو2 said:

فكيف لي اذا اردت ان اضع مثلا : 2019 او 2018 او ...........او 2011

Expand  

يجب ان تضيف الحدث التالي في كل نموذج  :

وان تضيف حدث جديد في كل نموذج
Private Sub txtYear_AfterUpdate()

    Forms!Swichboard!txtYear = txtYear
End Sub

.

جعفر

[طاهر اوفيسنا]

  في 30‏/11‏/2020 at 08:58, jjafferr said:

Forms!Swichboard!txtYear = txtYear

Expand  

استاذ جعفر حياك الله

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

لاحظ 

1297.2020.rarFetching info...

والان بقيت المشكلة كما وضحت في الرد اليوم الذي رفعته اليوم صباحا

 

 

 

 

[jjafferr]

هذا تكملة وتوضيح للطريقة التي اقترحتها انا 🙂

 

جعفر

[jjafferr]

  في 29‏/11‏/2020 at 20:36, ابا جودى said:

1. عن نفسى مش بحب افتح نموذج مخفى 

2. لماذا لا يتم .... TempVars 

TempVars.Add "x", CrntYear

3. لماذا لا يتم انشاء موديول ونرف متغير عام قيه وليكن

Global CrntYear As Integer

Expand  

 

1. وانا كذلك ، لا احبذ استخدامها ، ولكن "وللأسف" لما المبرمج يستخدم نماذج منبثقة ، فيقوم بإغلاق نموذج وفتح نموذج آخر ، فالكلام هنا ان لا تغلق النموذج الرئيسي ، وانما تجعله مخفي ،

2. لأن TempVars غير موجودة في الاكسس قبل 2007 (يعني اذا اكسس 2003 منصب على كمبيوترك ، فانه لا يعرف ما هو TempVars) ، وصيغة المرفق mdb ، مما يوحي ان الاكسس المنصب نسخة قبل 2007 🙂

3. نعم ممكن عمل موديول ، واعطاء القيمة للمتغير هناك ، ثم مناداة المتغير في كل كائنات الاكسس ، ولكن لا يمكن مناداة المتغير مباشرة في الاستعلام ، وانما يجب مناداته عن طريق موديول آخر 🙂

 

جعفر

[ابو جودي]

  في 30‏/11‏/2020 at 11:11, jjafferr said:

لأن TempVars غير موجودة في الاكسس قبل 2007

Expand  

جزاكم الله خيرا استاذى الجليل ومعلمى القدير على تلك المعلومة لم اكن اعلمها

[ابو جودي]

 

  في 30‏/11‏/2020 at 08:02, كريمو2 said:

شكرا لك استاذ اباجودي

العملية تمت بشكل جيد ولكن 

الا تلاحظ هي مبرمجة على سنة تاريخ الجهاز اي 2020

فكيف لي اذا اردت ان اضع مثلا : 2019 او 2018 او ...........او 2011 

لاحظت عند فتح التقرير على سنة 2019 تظهر نتائج سنة 2020 

حاولت تغيير Year(Date) ب txtYear فلم يفلح معي 

Private Sub Form_Load()
    txtYear = Year(Date)
    CrntYear = txtYear
    TempVars.Add "x", CrntYear
End Sub

 

Expand  

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

انا كنت متخيل انها تخص العام الحالى ولا تريد للمستخدم تبديلها 

ليه كل اللف والدوران ده 

[ابو جودي]

2020.mdbFetching info...

[طاهر اوفيسنا]

  في 30‏/11‏/2020 at 11:29, ابا جودى said:

انا كنت متخيل انها تخص العام الحالى ولا تريد للمستخدم تبديلها 

Expand  

لا بالعكس المستخدم يريد استبدالها كلما اقتضت الضرورة

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

  في 30‏/11‏/2020 at 11:39, ابا جودى said:

2020.mdb 2.5 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

=[Forms]![FrmRapport]![txtYear]

 

تم تعديل نوفمبر 30, 2020 بواسطه كريمو2

[طاهر اوفيسنا]

التعديل يكون على الملف 

1297.2020.rarFetching info...

تم تعديل نوفمبر 30, 2020 بواسطه كريمو2

[ابو جودي]

  في 30‏/11‏/2020 at 12:32, كريمو2 said:

التعديل يكون على الملف 

 

Expand  

اتفضل 

 

1297.2020_2.rarFetching info...

[طاهر اوفيسنا]

شكرا استاذ اباجودي على تعبك معانا 

ربنا يحفظك 

الان ارجع الى المثل الصيني الذي يقول "لا تعطيني سمكة وعلمني كيف اصطاد السمكة" 

فأين تم التعديل استاذ

تم تعديل نوفمبر 30, 2020 بواسطه كريمو2

[ابو جودي]

  في 30‏/11‏/2020 at 13:02, كريمو2 said:

"لا تعطيني سمكة وعلمني كيف اصطاد السمكة" 

فأين تم التعديل

Expand  

النموذج FrmRapport

الحقل تم وضع كود فى بعد التحديث

CrntYear = txtYear

ومربع السرد Nome_Report عند التفيير تم اضاقة السطر

CrntYear = txtYear

وكذلك تم التعديل على هذا السطر 

DoCmd.OpenReport stDocName, acViewPreview ', , "Year(date()) = " & CrntYear & ""

لان كانه مشكلة بإلغاء ذلك الجزء منه

', , "Year(date()) = " & CrntYear & ""

 

[ابو جودي]

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

وكما تفضل استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

  في 30‏/11‏/2020 at 11:11, jjafferr said:

لأن TempVars غير موجودة في الاكسس قبل 2007 (يعني اذا اكسس 2003 منصب على كمبيوترك ، فانه لا يعرف ما هو TempVars)

Expand  

لن تعمل تلك الطريقة مع الاوفيس 2003

70665418_2020(1).mdbFetching info...

[طاهر اوفيسنا]

  في 30‏/11‏/2020 at 13:35, ابا جودى said:

لن تعمل تلك الطريقة مع الاوفيس 2003

Expand  

ولكن طريقة الاستاذ جعفر اعرفها ولكن مشكلتها لا يتم فتح التقرير من جهتين

اي مثلا التقرير rptCridi يفتح عادي من الفورم FrmRapport لان المعيار 

=[Forms]![FrmRapport]![txtYear]

ولايفتح من الفورم  FrmCridiReport لان المعيار مختلف

فكيف لي بطريقة اخرى غير طريقة TempVars  تفتح من كلى الفورمين FrmRapport و FrmCridiReport

ملاحظة : نفس الشيء لبقية الفورمات

[ابو جودي]

  في 30‏/11‏/2020 at 13:52, كريمو2 said:

ولكن طريقة الاستاذ جعفر اعرفها ولكن مشكلتها لا يتم فتح التقرير من جهتين

اي مثلا التقرير rptCridi يفتح عادي من الفورم FrmRapport لان المعيار 

=[Forms]![FrmRapport]![txtYear]

ولايفتح من الفورم  FrmCridiReport لان المعيار مختلف

فكيف لي بطريقة اخرى غير طريقة TempVars  تفتح من كلى الفورمين FrmRapport و FrmCridiReport

ملاحظة : نفس الشيء لبقية الفورمات

Expand  

 

ركز جيدا فى تلك الكلمات لانها كلمات من ذهب

 

  في 30‏/11‏/2020 at 11:11, jjafferr said:

2. لأن TempVars غير موجودة في الاكسس قبل 2007 (يعني اذا اكسس 2003 منصب على كمبيوترك ، فانه لا يعرف ما هو TempVars) ، وصيغة المرفق mdb ، مما يوحي ان الاكسس المنصب نسخة قبل 2007 🙂

3. نعم ممكن عمل موديول ، واعطاء القيمة للمتغير هناك ، ثم مناداة المتغير في كل كائنات الاكسس ، ولكن لا يمكن مناداة المتغير مباشرة في الاستعلام ، وانما يجب مناداته عن طريق موديول آخر 🙂

 

جعفر

Expand  

 

والحل الان بعيد عن طريقة TempVars  ويفتح من كلى الفورمين  

كل الشكــــــــر لاستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr 

1297.2020.mdbFetching info...

تم تعديل نوفمبر 30, 2020 بواسطه ابا جودى

[طاهر اوفيسنا]

وهو كذلك

بارك الله فيكم اساتذتي الكرام 

اباجودي - جعفر

جعلها الله في ميزان حسناتكما

صحيح طريقة سهلة وبعيدة عن TempVars  

لكم مني فائق الاحترام والتقدير

[ابو جودي]

الان فهمت الطرق الثلاثة لتمرير المعيار الا الاستعلام

1- تمرير القيمة من كائن موجود فى نموذج محدد .... يعيبها لابد ان يكون النموذج مفتوحا

[Forms]![FrmName]![ObjectNameOnForm]

2- TempVars  

TempVars.Add "x", Value as you need

ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار 

[TempVars]![x]

3- فى موديول نعرف متغير عام 

Global AddVar As Variant

ونكتب اكواد الروتين التى تستدعيه بهذا الشكل 

Public Function GetVar()
    GetVar = AddVar
End Function

نمرر القيمة الى المتغير العام من اى مكان ومن اى حدث حسب الحاجة

AddVar= Value as you need

ويتم التمرير الى الاستعلام من خلال وضع هذا الكود فى المعيار 

GetVar()

 

 

[jjafferr]

تفضل ، هذا المرفق :

• يتأكد ان النموذج swichboard مفتوح (لاحظ انني استخدمت الاسم الموجود في برنامجك) ، ويرسل له التاريخ ،
• ما دام النموذج swichboard  مفتوح ، فيمكنك ان تفتح التقرير من اي نموذج شئت ، او حتى فتحه مباشرة بالنقر المزدوج عليه ،
• لما تغير التاريخ في اي نموذج ، فتلقائيا يتم تغيير التاريخ في النموذج swichboard .

 

الحقل txtYear موجود 72 مرة في برنامجك :

.

 

جعفر

 

1297.1.2020.mdb.zipFetching info...

[ابو جودي]

  في 30‏/11‏/2020 at 16:15, jjafferr said:

تفضل ، هذا المرفق :

• يتأكد ان النموذج swichboard مفتوح (لاحظ انني استخدمت الاسم الموجود في برنامجك) ، ويرسل له التاريخ ،
• ما دام النموذج swichboard  مفتوح ، فيمكنك ان تفتح التقرير من اي نموذج شئت ، او حتى فتحه مباشرة بالنقر المزدوج عليه ،
• لما تغير التاريخ في اي نموذج ، فتلقائيا يتم تغيير التاريخ في النموذج swichboard .

 

الحقل txtYear موجود 72 مرة في برنامجك :

.

 

جعفر

 

1297.1.2020.mdb.zip 316.42 kB · 0 downloads

Expand  

هو ايه النموذج ده استاذى الجليل ومعلمى القدير و والدى الحبيب total deep search 

[jjafferr]

اما اداة البحث /الاستبدال ، فيوجد لها شرح هنا

 

جعفر

[طاهر اوفيسنا]

استاذي الكريم جعفر انا اعمل على اكسس 2010

المرفق لم يفتح بصفة عادية كما اشرت

المشكل

 

أما تغيير مسميات كائنا اكسس دفعة واحدة فلم افهم شيء مما ارسلت

[jjafferr]

  في 30‏/11‏/2020 at 17:05, كريمو2 said:

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

Expand  

ما اعرف من وين جاءت هذه الاضافة على الكود !!

تم تصحيح الوضع في المرفق هنا 🙂

 

جعفر

1297.1.2020.mdb.zipFetching info...

  في 30‏/11‏/2020 at 17:05, كريمو2 said:

أما تغيير مسميات كائنا اكسس دفعة واحدة فلم افهم شيء مما ارسلت

Expand  

رجاء قراءة موضوع الرابط ، والروابط الموجودة هناك ، واذا عندك سؤال محدد ، فلا مانع 🙂

 

جعفر

[طاهر اوفيسنا]

تمت العملية استاذي العزيز

  في 30‏/11‏/2020 at 17:21, jjafferr said:

  في 30‏/11‏/2020 at 17:05, كريمو2 said:

 تغيير مسميات كائنا اكسس دفعة واحدة  

Expand  

رجاء قراءة موضوع الرابط ، والروابط الموجودة هناك ، واذا عندك سؤال محدد ، فلا مانع 🙂

Expand  

لقد حملت الاداة ونصبتها ولم تظهر لي اثناء فتح ملف الاكسس

فكيف السبيل لذلك ؟

V-Tools 1.83 for Access 2010-2016.accdbFetching info...

 

[jjafferr]

بعد التثبيت ، ومن اي قاعدة بيانات :

.

وطريقة شرحها

موضوع متجدد : أدوات مساعدة للتصميم مع الشرح - قسم الأكسيس Access - أوفيسنا (officena.net)

 

جعفر