أبو عبدالله الحلوانى

آسف يبدو أنى لم أوضحى سؤالى جيدا 

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

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

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

قمت بتقسيم القاعدة الى واجهة(نماذج - واستعلامات ..)  وجداول(قاعدة للجداول فقط). ووضعت كلمة سر لقاعدة الجداول 

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

رغم استخدامى لدالة "send Keys"  لمنع المطالبة بكلمة السر  ولاكن لا فائدة فهل من حل وجزاكم الله خيرا

سأكتفى بذكر الكود حاليا لحين تجهيز مثال بسيط  لكبر حجم القاعدة الكود هو:

SendKeys "MF1984@IMOE"
SendKeys "{enter}"
DoCmd.TransferDatabase acLink, "MicroSoft Access", dataname, acTable, "all_data", "all_data"

الكود عمل معى بشكل جيد لفترة وجيزة ثم  أخذت تظهر رسالة المطالبة بالرقم السرى وجزاكم الله خيرا
 

في ١٥‏/١٢‏/٢٠١٥ at 19:08, محمد عصامـے said:

استاذنا الحبيب أبو عبد الله الحلوانى 
اهلا وسهلا وحضرتك انسان جميل فعلا ولك زوق راق ويدل على رفيع اخلاقك ردودك الطيبة 
لك كل الشكر والتقدير لما تقدمه من يد العون لطلبة العلم بوجه عام فى هذا الصرح الشامخ وبوجه خاص انا على راس طلبة العلم فوالله لن انسى مساعدتك لى فى حل احد المشكلات العويصة التى كانت تنغص على حياتى ذات يوم

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

الحمد لله بالتوفيق ان شاء الله 

جزاك الله خيرا أستاذ يوسف كفانا الله بك شر القتال

38 دقائق مضت, علي المصري said:

هذا الكود عند العمل على اكسيس 64 بت لا يعمل

هل من تعديل

ربما كنت بحاجة لاضافة تلك الكلمة عند التصريح العام بالمديل  PtrSafe  بعد Declare   لكى يعمل الكود مع نظام 64 بت ليصبح سطر التصريح بهذا الشكل

38 دقائق مضت, علي المصري said:

Private Declare PtrSafe Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long)

هذا ما فهمته من أحد موضوعات أستاذنا jaffer  جزاه الله خيرا  واحيل حضرتك لرؤية الموضوع الأصلى سأبحث عن رابط الموضوع وأرفقه ان شاء الله

هذا الرابط وجدته والحمد لله

http://www.officena.net/ib/topic/59661-الأكسس-32-بت،-64-بت/?do=findComment&comment=398477

وعليكم السلام ورحمة الله وبركاته تفضل يأخى لعل هذا ما تريد

أدخل التاريخ الذى ترغب بهذه الطريقة 5/2015  أو  2/2016  ,عند فتح الاستعلام 

تواريخ.rar

15 دقائق مضت, husseinarby said:

  في ٢٤‏/٩‏/٢٠١٤ at 19:49, aysar_0078 said:

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

" بعد طرح هذا الموضوع بالمنتدى :  "

فقد اختلط الحابل بالنابل ونسيت أنى قد شاركت بالموضوع سائلا طبعا ولم أبتدئ الموضوع . فحينها كنت أنا الذى أسأل ولم أسمع لصاحب الموضوع حسا ...

وعموما هذا خطأ مطبعى - زلت لسان -  أعتذر عنه وشكرا على التنبيه وعلى رأى المثل: ( السن له حكمه).

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

جميل أن يرى المرء أحد موضوعاته التى افتتح بها وجوده فى هذا المنتدى الكريم يثار مرة أخرى وينفض عنه الغبار ليرى النور من جديد.

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

وبعد هذه المقدمة الطويلة اسمحوا لى بأن أدلى بدلوى على استحياء أو  أقص خبر ما توصلت اليه من معلومة ضئيلة على قدرى طبعا

بعد طرح هذا الموضوع بالمنتدى : وقد حاولت آن ذاك جاهدا تنفيذ الكود الموجود بمشاركة أستاذ على المصرى جزاه الله خيرا. ولكن حينها كانت تواجهمى تلك الرسالة المزعجة التى تخبرنى بخطأ باسم المكتبة "user32" ولم أكن أعلم ماسبب هذا الخطأ لأنى لم أزل ببداية الطريق أتعلم الحبو ..

إلا أنى توصلت بفضل الله تعالى أن الكود يحتاج لوجود مكتبة ما بمسار المكتبات الخاص بنظام التشغيل طبعا مسار المكتبات بالنسبة لنظامى القديم winXp  هو: "C:\Windows\System32"  ولا أدرى شيىء عن باقى اصدارات Win  الأخرى ... أما عن المكبة ماهى بالضبط فقد احترت فى اختيار أحد هذه المكتبات الثلاث بالمرفق وقد توصلت بالنهاية لاضافة ثلاثتها بالمسار "C:\Windows\System32" 

مع الأخذ بالاعتبار تنفيذ التعليمات السابقة بشرح أستاذ على : وهى باختصار تغير خواص النماذج والتقارير الرئيسية الى منبثق = نعم . وكذلك شكلى ومشروط = نعم .

هذه الاضافة الضئيلة القدر قد أردت اثراء الموضوع بها .. وقد فاتنى أن الموضوع أثرى بالفعل بهاتين الطريقتين الكبيرتين قدرا كقدر أصحابهما  الفكرة الأولى - فكرة أستاذ محمد عصام , وان كان قد نسبها لموقع أجنبى الا أن الفضل فى عرضها هاهنا لله ثم له وقد أعجبتنى جدا وتقوم على فكرة اخفاء اطار برنامج الاكسس من خلال  timer  المؤقت وهى طبعا فكرة جديدة بالنسبة لى 

الفكرة الثانية - فكرة أستاذ عبدالله قدور وإن كان قد سبق بها أستاذ Azhar من بدأ الموضوع , االا أن أستاذنا عبدالله قدور قد أوفى شرح هذه الطريقة باضافة مثالا للتوضيح 

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

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

مكتبات اخفاء البرنامج.rar

تفضل يأخى هذا مثال من المنتدى كان بمكتبتى لتحرك النص قمت بجمع الكودات الثلاث بوحدة نمطية واحدة واستدعيتها فى حدث الوقت للنموذج المسمى three timers in form 

طبعا الفاصل الزمنى واحد فيما يبدو ولكن حاول تغير المتغيرات بالوحدة النمطية كالمتغير 'i' 

حركة النص 2003.rar

في ٧‏/١٢‏/٢٠١٥ at 23:27, ابوخليل said:

Option Compare Database

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

أستاذى أبو خليل وأستاذ محمد عصام وأستاذ صاحب الموضوع جزاكم الله خيرا جميعا

أستاذى أبو خليل هل سيختلف تعريف المكتبة اذا اختلف نظام التشغيل win7  أو winXp   أو أى اصدار آخر . وجزاكم الله خيرا

أستاذى محمد عصام حمدا لله على السلامة وعود أحمد " أعذرنى جائت متأخرة شيئا ما ولكنى لم أكن متابعا للمنتدى منذو فترة" ولكن نورت المنتدى ووحشتنا "امممممممممممممممممم"

تفضل يا أخى لعل هذا ما تريد

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

تمنياتى بالتوفيق واعذرنى لتأخرى فى الاجابة

db5.rar

جارى العمل على مطلبك 

أو بالاضافة الى ما ذكر أستاذنا أبو محمد اصنع كما بالصورة

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

أما عن وجود مثل هذه الخاصية بالاكسس فعلى حد علمى أنها غير موجودة ان لم يصحح لنا أحد الأساتذة هذه المعلومة

ولكن هنالك طريقة لانشاء التقرير الذى تريد بسرعة عالية من خلال ضغطتين بزر الفأرة فقط انظر الصورة 

 جزاك الله خيرا أستاذنا أبو محمد

متابعون ان شاء الله

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

هذه محاولة للمساعدة فى الموضوع هذا مثال من تصميم أحد الإخوة أعضاء المنتدى الكريم لجعل مصدر سجلات التقرير استعلاما جدوليا

أرجو محاولة التطبيق عليه للوصول لصورة التقرير التى تناسبك 

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

والآن مع المرفق

CrosstabQry.zip

أسف لتأخرى فى الرد فقد شغلت قليلا  لدى فكرة لو تناسبك أعمل لك عليها إن شاء الله 

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

فان كان هذا الحل مناسبا لك عملنا عليه بعد الاستعانة بالله وان لم يناسبك نحاول بحل آخر والله المستعان.

نسيت شيئا  على هذا التعديل سيتم وضع معاير لعرض التقرير كتحديد شهر معين أو نوعية المستعير 

سلمت يمينك ورأسك وشرفت الموضوع 

جزاك الله خيرا  وأحسن الله اليك

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

هذه زيارتى الأولى للموضوع  وأردت المساعدة بعد أذن أستاذنا أبى خليل 

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

جزاك الله خيرا

للرفع

للرفع

عود أحمد وحمدا لله على السلامة

جزاك الله خيرا على سرعة الاستجابة والاهتمام  

لا حرمنا الله منك يالغالى 

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

أما عن سناريو العمل فهوكما يلى وكما هو موضح بالصورة بأول مشاركة

هنال ليبول بكل صفحة مثل التى مكتوب عليها استهلاك مياه .. تجارى .. استثمارى ... 

وه

ذه التسميات يحتاج المستخدم تعديلها أحيا لذلك وضعت كود  عند دبل كلك  على الليبول لفتح  inputbox ليحدد المستخدم التسمية الجديدة التى يريد ثم تخير خاصية caption للليبل وفق قيمة انبتبوكس ولكثرة الليبلز بكل صفحة فكتابة الكود خلف كل ليبل أمر شاق كما تعلمون فضلا عن كم المشاكل التى يمكن أن يسببها الخطأ بأحد هذه الأكواد 

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

وأرجو أن يكون شرحى واضحا واكرر شكرى لسيادكم مرة أخرى

جزاك الله خيرا ورفع قدرك 

اسمحلى باستفسار آخر حول نفس اﻷداة 

قد استخدمت الكود التالى للاشارة لأحد التكست داخل اﻷداة ولكن أعطانى رسالة خطأ ولا أدرى الخطأ بالكود أم ..

الكود هو.

Screen.ActiveControl.Form.Caption = cc

وجزاكم الله خيرا