اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

البرنامج

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

قام بنشر

نزلت المرفق

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

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

 

قام بنشر (معدل)

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

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

Screenshot.jpg

Screenshot001.jpg

Screenshot002.jpg

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

تفضل :

تم إضافة هذا الكود في حدث عند التحميل للنموذج 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 كي يتم التمييز عند استخدام الكود السابق للفلترة

 

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

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

  • Like 1
  • Thanks 1
قام بنشر
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- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور

Screenshot001.jpg

Screenshot002.jpg

Screensلhot.jpg

قام بنشر
23 ساعات مضت, AlwaZeeR said:

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

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

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

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

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

 

 

Capture.PNG

Captureq.PNG

  • Like 1
قام بنشر

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

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- معاينة التقرير تظهر اكثر من سجل وانا اريدها للسجل الحالي فقط كما في الصور

قام بنشر

 

تفضل:

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

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

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

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

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

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

::

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

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

  • Like 1
  • Thanks 1
قام بنشر

rar

 

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

 

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

 

 

 

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information