كيفية عرض الجداول المجمعه في تقرير للسجل الحالي

[بشير الخالدي]

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

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

البرنامج

http://www.mediafire.com/file/c6a1xb3qctom1pf/مركز+صحيالاخيره.rar

[بشير الخالدي]

شباب ممكن الحل لاني عملت استعلام ما نفع

[AlwaZeeR]

نزلت المرفق

وصراحة ما عرفت وين اروح ووين بدك التعديل

يا ريت تحدد بالضبط مطلوبك وأين في نماذجك وتقاريرك

 

[بشير الخالدي]

اولا عند الفتح اريد ينتقل الى سجل جديد

ثانيا عند الضغط على معاينيه اريده يفتح السجل الحالي الي ادخلت البيانات فيه الان

تم تعديل أغسطس 6, 2018 بواسطه بشير الخالدي
اضافة صور

[AlwaZeeR]

تفضل :

تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد

If Not IsNull(Me.ID) Then
   DoCmd.GoToRecord , , acNewRec
  End If

الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2

 Dim stDocName As String
     
     DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

stDocName = "قائمة رقم 1"
DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID]

تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم

تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة

 

هذا البرنامج: مرفوع على الميديا فير

رابط برنامج مركز الصحة

[بشير الخالدي]

23 ساعات مضت, AlwaZeeR said:

تفضل :

تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد

If Not IsNull(Me.ID) Then
   DoCmd.GoToRecord , , acNewRec
  End If

الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2

 Dim stDocName As String
     
     DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

stDocName = "قائمة رقم 1"
DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID]

تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم

تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة

 

هذا البرنامج: مرفوع على الميديا فير

رابط برنامج مركز الصحة

جزاك الله خير لكن  1-هناك مشكله عنذ الضغط على قائمة التقارير في الكود المستخدم 

2- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور

[AlwaZeeR]

23 ساعات مضت, AlwaZeeR said:

تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة

يظهر الخطأ في حال كان السجل فارغ ولا يحتوي على مفتاح ID

انت طلبت ان يفتح النموذج على سجل جديد 

كيف ستعاين سجل جديد فارغ؟؟؟

ارجع خطوة للوراء على سجل موجود وقم بالمعاينة وسوف ترى انه يعاين السجل الموجود على الشاشة فقط

 

 

[بشير الخالدي]

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

http://www.mediafire.com/file/n965pskxssnccz2/مركز+00صحيالاخيره.rar

في ٦‏/٨‏/٢٠١٨ at 19:35, AlwaZeeR said:

تفضل :

تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد

If Not IsNull(Me.ID) Then
   DoCmd.GoToRecord , , acNewRec
  End If

الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2

 Dim stDocName As String
     
     DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

stDocName = "قائمة رقم 1"
DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID]

تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم

تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة

 

هذا البرنامج: مرفوع على الميديا فير

رابط برنامج مركز الصحة

جزاك الله خير لكن  1-هناك مشكله عنذ الضغط على قائمة التقارير في الكود المستخدم 

2- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور

[بشير الخالدي]

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

http://www.mediafire.com/file/n965pskxssnccz2/مركز+00صحيالاخيره.rar

في ٦‏/٨‏/٢٠١٨ at 19:35, AlwaZeeR said:

تفضل :

تم إضافة هذا الكود في حدث عند التحميل للنموذج ID للفتح على سجل جديد

If Not IsNull(Me.ID) Then
   DoCmd.GoToRecord , , acNewRec
  End If

الكود التالي: على ازرار المعاينة للتقارير: مع تغيير اسم التقرير رقم 1 او 2

 Dim stDocName As String
     
     DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

stDocName = "قائمة رقم 1"
DoCmd.OpenReport stDocName, acViewPreview, , "MAinID=" & [ID]

تم إزالة كل فلاتر ID الموجودة في استعلامات التقارير لانها لا تلزم

تم تسمية حقل ID في الاستعلامات الخاصة بالتقارير الى MainID كي يتم التمييز عند استخدام الكود السابق للفلترة

 

هذا البرنامج: مرفوع على الميديا فير

رابط برنامج مركز الصحة

جزاك الله خير لكن  1-هناك مشكله عنذ الضغط على قائمة التقارير في الكود المستخدم 

2- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور

[AlwaZeeR]

 

تفضل:

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

تم إضافة اكواد للمعاينة والطباعة والفتح حسب الحاجة مع إزالة كل الماكرو المستخدم، لانني لا اعرف كيف يستخدم الماكرو

هكذا يعمل الان:

1- عند فتح البرنامج : يفتح على الشاشة الرئيسية في وضع جديد

2- يجب اختيار سجل موجود قبل الضغط على قائمة التحاليل 1 او 2

3- الطباعة والمعاينة تتم للسجل الظاهر على الشاشة

::

جرب ووافني بالنتيجة

برنامج التحاليل 2020

[بشير الخالدي]

rar

 

في ٦‏/٨‏/٢٠١٨ at 19:35, AlwaZeeR said:

 

شكرا هو هذا المطلوب ربي يجزيك الجنه ياطيب

 

 

 

جزاك الله خير لكن  1-هناك مشكله عنذ الضغط على قائمة التقارير في الكود المستخدم 

2- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور