jjafferr

وعليكم السلام 🙂 docmd.RunCommand acCmdAppMaximize 'لتكبير شاشة الاكسس docmd.maximize 'لتكبير شاشة النموذج او التقرير . هذا الكود يجعل حجم النوذج يملئ الشاشة ، ولكن لا علاقة له بحجم الكائنات داخل النموذج، فحجم الكائنات يبقى كما هو 🙂 جعفر

المعادلة صحيحة ، ولكن المشكلة هي اننا لا نستعمل الاكسس في تنفيذ امر فتح البرنامج ، فعليه ، لا توجد مكتبة في الملف التنفيذي لتقوم بتعريف المتغير acCmdAppMaximize ، ومن مساعد الاكسس نرى ان قيمته = 10 : . اذن عندنا الخيار في استعمال الرقم 10 مباشرة ، او الاعلان عن المتغير acCmdAppMaximize بأن قيمته 10 : Dim appAccess Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Users\Tharwt\OneDrive\Desktop\Database_Backup.accdb", True, "123" appAccess.UserControl = True 'نستعمل السطرين التاليين const acCmdAppMaximize = 10 appAccess.RunCommand acCmdAppMaximize 'لتكبير شاشة الاكسس 'او استعمال السطر التالي 'appAccess.RunCommand 10 appAccess.docmd.maximize 'لتكبير شاشة النموذج او التقرير جعفر

وعليكم السلام 🙂 نعم ، قد تكون الدوال Round ، RoundUp ، RoundDown بديلة : . ولكن ، لو تخبرنا بالضبط عن المطلوب ، فقد نستطيع عمل التعديل المطلوب بدوال اخرى 🙂 ويمكنك استخدام دوال الاكسل من الاكسس مباشرة ، ولكن لا يُحبذ عمل ذلك ، لأن البرنامج سيكون ابطأ في العمل ، واليك طريقة العمل: . او استعمال الكود التالي، وبدون اختيار مكتبة الاكسل (كما في المثال اعلاه) : Dim objExcel as Object Set objExcel = CreateObject("Excel.Application") msgbox objExcel.WorksheetFunction.Floor (me.Filed_Name_in_Form, 0.1) set objExcel=nothing جعفر

وعليكم السلام 🙂 1. الصورة جدا صغيرة ، وبالكاد اقدر اميز الكتابة فيها ، يا ريت ترفق نسخة اكبر ، 2. ارفق لنا الكود الكامل اللي عندك. جعفر

وعليكم السلام اخي بلال 🙂 المنتدى مليان بالامثلة ، ومنها : . . جعفر

وعليكم السلام 🙂 حسب مساعد الاكسس Help ، فيمكنك استعمال اي من الاوامر ، مثل تلك التي تبدأ بـ DoCmd ، وجميع اوامر RunCommand ، مثلا: لفتح نموذج معين appAccess.DoCmd.OpenForm "Form1" وفي حالتك، جرب الامرين التاليين مع بعض appAccess.runcommand (acCmdAppMaximize) 'لتكبير شاشة الاكسس appAccess.docmd.maximize 'لتكبير شاشة النموذج او التقرير . في مساعد الاكسس ، ابحث عن كلمة application ، وسترى جميع الاوامر : . جعفر

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

وعليكم السلام 🙂 هذا كود اخي حسام بعد التعديل: Dim appAccess Set appAccess = CreateObject("Access.Application") appAccess.OpenCurrentDatabase "C:\Users\User10\Database1.accdb", , "كلمة سر قاعدة البيانات" appAccess.UserControl = True جعفر

السلام عليكم 🙂 اختي الفاضلة روان 🙂 وكما قال اخي المهندس قاسم ، فالتعامل بالايميل يخالف قوانين المنتدى ، والسبب ، نريد لبقية الاعضاء الاستفادة مما تستفيدين منه 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 للاستفادة القصوى من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة رجاء اعطاءنا مثال على طلبك ، حتى نعرف بالضبط متى يبدأ السطر ومتى ينتهي ، وبأي حرف/رمز يبدأ بايها ينتهي 🙂 جعفر

السلام عليكم 🙂 انا اعتبر المنتدى بيتي الثاني ، وفيه التقي مع اخواني الاعضاء (والذين معظمهم حتى لا اعرف اسمائهم الحقيقية)، وانادي كل منكم بأخي فلان ، ونتشارك بالمعلومة والنكات 🙂 فريق الموقع لهم صلاحيات في تنظيم عمل الموقع ، وهنا احب ان آخذ برأيكم في هذه الصلاحيات ، بحيث نريد لبقية الاعضاء ان يكون المنتدى بالفعل بيتهم الآخر ولا يكون عندهم ما يضايقهم اثناء مشاركتهم في مواضيعه. ونريد ان نتوسع في التفكير ، فالقصد ليس فقط الابقاء على الاخوة الموجودين في المنتدى ، وانما جذب اخواننا من خارج المنتدى كذلك 🙂 الاستاذ @محمد طاهر عرفه له يد مشهودة في تطوير هذا الصرح الكبير ، وارى من واجبنا ان نمد له اليد والمشورة للإرتقاء اكثر 🙂 جعفر ------------------------------ ملخص الاقتراحات من واقع مشاركات الاعضاء : 1- عدم اغلاق المواضيع ، 2- عدم تحرير المشاركات.

السلام عليكم 🙂 تأكد من اعدادات الوندوز : . ثم . جعفر

هل هذا صحيح !! جعفر

وكذلك كود اخوي موسى بطريقتي : If Len(Me.nox & "") = 0 Then Exit Sub جعفر

شكرا جزيلا اخوي ابو احمد 🙂 شرح وافي وواضح 🙂 جعفر

الحمدلله اني افهم شوي في الاكسس 🙂 ارسل له هذه الصورة من البرنامج ، لما اردت فتح وحدة نمطية ، والرسالة بكل وضوح تقول: لا يمكن استيراد، تصدير، عمل، تغيير، او اعدادة تسمية اي نموذج، تقرير او وحدة نمطية في البرنامج الذي بصيغة ACCDE, MDE او ADE . ولما تفك الضغط لملفك المرفق ، ستلاحظ ان البرنامج بصيغة ACCDE . جعفر

السلام عليكم 🙂 لماذا عملت التقرير بالكود ؟ احد المبرمجين كان يعمل بلغات البرمجة الاخرى ، والتي كان يجب عليه عمل اي شيء بالكود ، فكان يعمل نماذج الاكسس بالكود ، بينما الاكسس يعمل لك الكائنات بأسبط ما يكون ، فرجاء اترك الكود واعمل التقرير بطريقة الاكسس ، ونحن نساعدك 🙂 انت وضعت التقارير الفرعية في القسم الغلط ، يجب ان تكون في قسم "Detail" كما في الصورة : . والنتيجة: . في المرفق ، افتح التقرير rpt مباشرة 🙂 جعفر 1524.SubReports.accdb.zip

انا مو راضي عن طريقة البحث في المنتدى ، فالبحث ما يعطيني اللي اريده بسهوله !! 1. فعندي هذه المدونه اللي كتبت فيها بعض المواضيع ، بس مو كامله : . 2. واستعين ببحث جوجل من خارج المنتدى ، هكذا: jjafferr "لا تبدأ اسم الكائن برقم" site:www.officena.net . 3. ذهبت الى منتدى "Invision Community" والذي منتدانا نسخة منه ، ولكن ما حصلت على طريقة غير الموجود عندنا ، 4. في الفترة الاخيرة فكرت في فكرة ، بس ما عندي وقت لتنفيذها وما ادري ممكن عملها او لا ، وهي ان اعمل محرك بحث في الاكسس كالتالي: أ. استعين بأحد برامج web crawlers ، واجعله يزور جميع صفحات منتدى الاكسس ، ب. استخلص من كل صفحة الكلمات الغير متكررة ، واحفظها في الاكسس في حقل ، وفي حقل آخر يكون رابط المشاركة ، ج. واذا ممكن استخلاص الكود (في المشاركات) وحفظه في حقل آخر ، د. عمل نموذج بحث في الكلمات و الكود ، ومن ثم الرجوع الى المنتدى برابط الموضوع ، هـ. حسب كمية البيانات ، فقد نربط اكثر من برنامج (كل جدول في برنامج) ، ونحصل على النتيجة 🙂 ها ، الظاهر اني رحت بعيد 🙂 جعفر

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

اذا اردت تعديل كود في برنامج ، فالبرنامج يجب ان يكون مفتوح المصدر ، وبدون كلمة سر على الكود

اخي sayed darwish 🙂 برنامجك بصيغة accde ، فهو مقفل ولا يمكن الدخول في الكود وتعديله. جعفر

وعليكم السلام اخوي موسى 🙂 بس انتبه ، لا توجد علاقة بين التقرير الرئيسي والفرعي ، وانما التقرير الفرعي يأخذ بياناته بعد تتم تصفيتها في الاستعلام ، بالحقل IdCbo 🙂 ما شاء الله ، احنا متعودين منك الابتكارات الحلوة 🙂 وكيف تريد ان اعرف الملف الذي اشتغل عليه من بين الملفات !! هي ملفات بتسلسل ، قد اكون استخدمتها للرد ، ويكون للملف تعديل ثاني وثالث ، وقد استخدم الملف للتجربة بدون ان اضع رد في المنتدى 🙂 وفي الفترة الاخيرة صرت احاول اعمل تغيير في إسم الملف ، حتى اذكر الفائدة منه ، ولكن مو دائما 🙂 وكلما بلغ عندي حوالي 100 ملف ، اعزلهم في مجلد خاص بهم ، واواصل التسلسل 🙂 . جعفر

وعليكم السلام اخي محمد 🙂 ارسلت لك رسالة على الخاص 🙂 جعفر

1. وتقدر تستغنى عن كل الاكواد ، بعمل استعلام union ، تجمع فيه الاستعلام الاصل و الاستعلام اللي فيه سجل فارغ ، ويكون هذا الاستعلام هو مصدر بيانات التقرير الفرعي ، ولكن ، دائما سيظهر لك سجل فارغ في الاسفل 😁 2. فكرة ثانية ، وهي عمل "صورة" لمسميات التقرير الفرعي ، فاذا مافيه بيانات ، خلي الصورة تطلع 😁 جعفر

وعليكم السلام 🙂 عليك بتعديل اعدادات الوندوز للجهاز الجديد : . جعفر