نجوم المشاركات

انا منتسب للموقع منذ سنوات عديد ومبرمج متقاعد هي ثالث عضوية لي " معرفاتي السابقة تركتها بمحض ارادتي " ويشهد الله انني لم المس اي تحيز بشكل مقصود وانما اجتهادات البعض منها قد يكون غير موفق وعند محاولة تبريرها بحجة بعض القوانين فانه قد ينظر اليها كنوع من التحيز وانا على يقين انها ليست كذلك. في جميع الاحوال يبقى الموقع منار لنشر العلم والمعرفة وملتقي لاساتذة كبار استفدنا من علمهم وخبراتهم فلهم جميعا كل التقدير والاحترام. واتوقف هنا والى لقاء في موضوع اخر تحياتي

وجهة نظر معقولة ✔️

صباح الخير اخي جعفر هي فقرة واحد والواو واو الاستئناف ☝️ بدون اسباب موضوعية او مخالفة صريحة وان يقوم المشرف بابلاغ صاحب المشاركة المخالفة باسباب اغلاقها او تحريرها اما بالنسبة للموضوعات القديمة فيفترض ان يكون هناك مدة زمنية محددة يتم بعدها الاغلاق ولا يترك الامر للاجتهاد فيغلق موضوع متميز بحجة تطبيق النظام وتترك مواضيع اقدم منه ! في جميع الاحول مشاركي الاولى لم تكن تهدف الى تقديم مقترحات بقدر ماكانت تمثل وجهة نظر صيغت باسلوب الايهام تحياتي

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

وعليكم السلام ورحمه الله وبركاته عودا حميدا اخى ومعلمى العزيز @jjafferr 🌹 عن نفسى احمد الله ع هذا الموقع والتعرف عليكم اخوتى واساتذتى اجمعين واسال الله ان يجعله مناره للعلم دائما وابدا وان يجازى بشمهندس محمد طاهر وجميع القائمين عليه كل خير طبعا فى قسمنا هذا الحمد لله الامور طيبه باستثناء الحدث الذى ارسلت اليكم رساله به . و بعكس الاقسام الاخرى وخصوصا قسم الاكسيل فان كثره التحرير فيه تشتتنى عن متابعه المواضيع واغلاق المواضيع مبكرا بعد الاجابه ليس من المفيد اطلاقا فربما يطلع اى اخ ع السؤال فيضع اجابه اخرى او لعل السائل يضع افضل اجابه متسرعا وبعد الاطلاع والتمعن فالحل والعوده للسؤال لاستكمال الاجابه فيجده مغلقا فاما ان يقوم باعاده السؤال او يقوم بالخروج من الموقع والبحث فى مكان اخر بالتوفيق

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Sub MH_copy() Dim i As Long lastro = Feuil1.Cells(Rows.Count, 3).End(xlUp).Row + 1 Application.ScreenUpdating = False With Cells(1).CurrentRegion For i = 1 To .Rows.Count Step 15 .Rows(i).Resize(15).Copy Range("c" & Rows.Count).End(xlUp)(2).PasteSpecial Transpose:=True Next End With Application.ScreenUpdating = True End Sub E Invoicing2_mh.xlsm

لتكبير/تصغير حجم الكائنات داخل النموذج، عند تغيير حجم النموذج : . الموضوع فيه اشارة الى موضوع آخر ، واقرأ جميع المشاركات ، فالمشاركة الاخير مهمة : . . جعفر

وعليكم السلام 🙂 اذا انا كتبت اسمك هكذا: العراقيالمدللمنالعراق فهل هو اسمك !! الجواب لا ، لأني ما عملت مسافة بين الاسم والآخر ، وهذا حال امر الحذف الذي عملته، الاكسس لا يعرف الامر ، لأنك ما عملت مسافة بين الاسماء 🙂 DoCmd.RunSQL "delete*form al الرئيسي.تاريخ استحقاق العلاوة الثانية,الرئيسي.تاريخ استحقاق العلاوة الاولى WHERE (((الرئيسي.تاريخ استحقاق العلاوة الاولى) Is Null)) OR (((الرئيسي.تاريخ استحقاق العلاوة الثانية) Is Null));" . الطريقة الصحيحة: 1. يجب ترك مسافة بين الاسماء "delete * form 2. يجب ان تضع الاسماء التي بها مسافة بين قوسين [] ]الرئيسي].[تاريخ استحقاق العلاوة الثانية],[الرئيسي].[تاريخ استحقاق العلاوة الاولى] WHERE (((]الرئيسي].[تاريخ استحقاق العلاوة الاولى]) Is Null)) OR (((]الرئيسي].[تاريخ استحقاق العلاوة الثانية]) Is Null));" جعفر

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

بالتوفيق أستاذى الكريم

تجدها في القائمة : 🙂

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

المعادلة صحيحة ، ولكن المشكلة هي اننا لا نستعمل الاكسس في تنفيذ امر فتح البرنامج ، فعليه ، لا توجد مكتبة في الملف التنفيذي لتقوم بتعريف المتغير 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 جعفر

ما لا يُدرَكُ جُله .. لا يُترك كُله 😊 بارك الله فيك مهندسنا ووالدنا العزيز خالد 🙂 مثالك هو أحد السيناريوهات الكثيرة التي قد تحصل .. وعندك حق في هذا .. ولكن أنا كان جل تفكيري في الموضوعات التي بإقرار صاحب الموضوع على حصوله على الإجابة الأفضل وقد يشير إليها ( ولكنه لا يضغط على الزر ) .. !! وكذلك المواضيع التي تُحل ويمضي عليها فترة من الزمن ( ليست بالقليلة ) ولا يضغط صاحبها على الزر أيضا !! وهذه هي المواضيع التي أشرت على أنها قد تمثل 70% من مواضيع المنتدى .. ( هذا العدد كبير في نظري ) .. سؤالي كان : أنتركها هكذا كما هي ؟؟ أم نعين صاحبها على هذا الزر المسكين فنضغطه نيابة عنه ؟ 😅

بارك الله بك وجعله في ميزان حسناتك ، اجمل من رائع كل الاحترام والتقدير لك

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

تتمة : والقائمة الموجودة في هذا الموضوع ( دروس وشروح وتطبيقات وأفكار _ مواضيع مهمة مثبتة) أيضا تحتاج لتحديث مستمر .. وترتيب وتصنيف وتنسيق 🙂

وعليكم السلام ورحمة الله وبركاته أستاذنا العزيز @jjafferr 🙂 وعودا حميدا .. من أجل التطوير والتحسين لدي عدة مقترحات .. : 1- أن يتم تبيين من هم المشرفون على المنتدى ( لكل قسم على حده )، وذلك للتعريف بهم والتعرف عليهم ولتسهيل عملية التواصل معهم ، أو لأي غرض آخر. 2- إعطاء المشرفين صلاحية تبيين أفضل إجابة ( في حال غفل أو تجاهل صاحب الطلب تعيينها ) ، ناقشت هذا الأمر سابقا ،و الواقع يقول أن تقريبا في حدود 70% من المواضيع متروكة بدون تعيين الإجابة الأفضل على الرغم من من أنها محلولة .. وتعلمون إيجابيات وسلبيات هذا الأمر ( لا داعي لذكرها الآن ). 3- ( تثبيت المواضيع المتميزة ) : تمر فترات يتم فيها طرح مواضيع متميزة جدا ومتعوب عليها وفيها اجتهاد وسبق ولكنها تندفن بين ثنايا المواضيع الاعتيادية ثم تنجرف مع تيار المواضيع ولا يلتفت إليها إلا من يمعن النظر والتركيز ، لذلك نتمنى أن يتم النظر لهذا الأمر بجدية وذلك تشجيعا وتكريما لهؤلاء المجتهدين والذين آثروا طرح أفكارهم الاستثنائية في هذا الصرح المبارك .. ( وهذا السبب الذي جعلني أعرض مواضيعي المميزة في خانة التوقيع ، على الرغم أني أعرف أنها مزعجة بصريا .. والقائمة تطول ) 4- نتمنى أن يكون هناك تفاعل من قبل المشرفين الأكارم مع مواضيع الأعضاء على فترات متقاربة .. بحيث نشعر بوجودهم معنا ، فأحيانا يغيب المشرفين فترات طويلة ( قد تمتد لأشهر ) ولا نسمع لهم خبرا .. والغائب عذره معه طبعا .. ولكن أحيانا يغيب الجميع مرة واحدة 😅. 5 - ( مكتبة الموقع ) : هي عبارة عن كنز حقيقي للمنتدى ولكنها غير مرتبة كما تستحق وغير منظمة نوعا ما .. وغير مستغلة لإبراز أهم مخرجات المنتدى .. بحيث يصل الباحثون بسهولة إلى الفوائد والفرائد من إنتاجات الأعضاء .. فعدد المواضيع بها قليلة ( مقابل الإنتاجات الكثيرة الموجودة فعلا في المنتدى ) .. وكذلك البعض يخطئ ويفتح مواضيع استفسارات بها وتترك كما هي . 6- الحقيقة يساورني القلق حيال المساحة المحدودة لدي لإرفاق الملفات ، فأنا بطبيعتي إنسان بصري أحب أن أدعم مواضيعي بالصور التوضيحية وكذلك في حال المشاركة بالرد على استفسارات الإخوة ، فالصورة الواحدة تغنيك عن ألف كلمة كما يقولون 😄 ولكن كل مرة أعيد حساباتي قبل الرد بصورة ( خصوصا لما أشوف العداد يزيد ) 😅 .. أعرف أن البدائل موجودة ولكن مع مرور الوقت والزمن أغلب المواقع تحذف هذه الصور .. وستبقى المواضيع مشوهة ولا توصل الفكرة !! 7- أحينا أقوم بفتح موضوع جديد أعرض فيه فكرة معينة، ثم مع المناقشة مع الإخوة الخبراء يتم الخروج بتحديثات جديدة وأفكار تصحيحية للموضوع الأصلي فأحتاج للرجوع إلى تعديل أصل الموضوع ( النص أو المرفقات ) ولكن تكون فترة السماح بالتعديل قد انتهت فيظهر الموضوع للزائرين والمتابعين بأخطائه وعيوبه وهذا أمر غير محمود ، والواقع يقول أن القلة القليلة من الناس من يتابع النقاشات والتي تمتد أحيانا لعدة صفحات لمعرفة الخلاصة .. فالناس يريدون ( زبدة الموضوع ) والتي عادة ما تكون في أول مشاركة. 🙂 هذا ما يحضرني الآن .. مع تمنياتي لكم بالتوفيق ،، وشكري وتقديري لجميع جهودكم المبذولة .. 😊🌹

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

اخي بعد نسخ المعادلة لا تحاول إنشاء صيغة صفيف بإدخال الأقواس المتعرّجة يدويًا، فلن تحصل على نتيجة معينة، لأن اكسل سيتعامل مع المدخلات كنصوص وليس كصيغة حاول الظغط على المفاتيح Ctrl+ Shift+ Enter

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

تفضل هذا الملف ارجو ان يكون طلبك ملاحظة : يتم فتح الملف ب NotePad وتغيير المسار الى المسار المطلوب RemoteOpen.rar

وعليكم السلام ورحمة الله وبركاته 🙂 طيب شوف هذي الفكرة مثلا للتنقل بين قواعد البيانات وإعادة الربط بينها :

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

في النمودج 2 في حدث عند الفتح نضع الامر التالي If (Application.CurrentProject.AllForms("form1").IsLoaded) = False Then MsgBox "لايمكن فتح النموذج", vbCritical, "تنبية" Cancel = -1 End If مرفق مثال حاول تفتح نموذج frm3 لن يفتح معك افتح نموذج form1 ثم جرب فتح frm3 سيتم فتحه اخي احمد لسهولة الاجابة على استفساراتك مستقبلا قم بوضع مثال تسهيلات على من يرغب الاجابة تحياتي mm(1).mdb

مشاركة مع الاستاذ @kanory باستخدام كود فلترة بمعيارين وبدون معايير الاستعلام Dim strWhere As String strWhere = "" strWhere = strWhere & " [السائق] like '*" & Text1 & "*'" strWhere = strWhere & " and " & " [الشهر] like '*" & tx2 & "*'" Me.frm1.Form.Filter = strWhere Me.frm1.Form.FilterOn = True ولطباعة تقرير نتيجة الفلترة DoCmd.OpenReport "re1", acViewPreview, , Me.frm1.Form.Filter مرفق الملف mm(1).mdb

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

جرب المرفق وانظر ......... عند كتابة البحث انقل المؤثر خارج منطقة البحث .... mm.mdb

من اكتر المشاكل اختلاف الخطوط عند نقل الملف الي العميل ف لقيت عندي ملف من زمان لتغيير نوع الخط تقريبا كنت نزلته من هنا والله اعلم المهم عدلت عليه بحيث نقدر نختار نوع الخط بدون ما مندخل لوضع التصميم او نتقيد بخط واحد تغيير نوع الخط.rar

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

تفضل اخي مثال توضيحي.xlsx

السلام عليكم ورحمة الله وبركاته .. رجعت لك من جديد عمي جعفر @jjafferr ( ما نسيت السالفة ) 😅 هذي المرة راجع مع إضافات مميزة 🙂 .. أخذت ملاحظاتك للأستاذ أبو خليل بعين الاعتبار 👍😉 إليك الجديد في البرنامج : أول شيء عليك أن تقوم به (كمبرمج) هو إضافة روابط قواعد البيانات الخلفية للاتصال وتخزينها في البرنامج ( لاحظ أن جدول قواعد البيانات المخزنة هو جدول محل وليس جدول مرتبط) .. وهذا الجديد : 1 - أضفت خيار الاتصال التلقائي 🙂 : البرنامج يتصل تلقائيا بأول قاعدة جداول يجدها عند توافر 3 شروط : 1- يكون خيار (اتصال تلقائي )مفعل 2- يكون خيار (عرض المسار )مفعل 3- تكون القاعدة متوفرة. 2 - أضفت خيار عرض المسار : لعرض المسار في قائمة المسارات اللي تظهر أو عدم عرضه وتخزينه فقط لاعتبارات تخدم المبرمج فقط 🙂 3 - أضفت خيار كتابة كلمة مرور قاعدة البيانات في حال كان لها باسوورد ، في حالة لا يوجد كلمة مرور يترك الحقل فاضي والبرنامج سيتعامل معها بطريقته . ---------------------------------------------------------------------------------- الآن باعتبار أن لدينا ثلاث قواعد بيانات وكلها مخزنة في الجدول .. هكذا تقوم القاعدة بالإتصال التلقائي لما نكون في جهاز المبرمج : 🙂 ولما ننتقل إلى جهاز العميل .. يقوم البرنامج بالاتصال تلقائيا بقاعدة البيانات في جهازة .. وعندما لايجد البرنامج أي قاعدة بيانات متوفرة .. يفتح لك نافذة إنشاء اتصال جديد .. أو أنك تعدل الروابط في قسم التعديل .. ====================================================== الآن لإلغاء موضوع الاتصال التلقائي يحتاج أنك تلغي الخيار (اتصال تلقائي ) بتلك القاعدة .. ويمكنك تحطه لقاعدة معينة وتلغيه من الباقيات .. بعد كذا عند الفتح ( لما تكون ألغيت الاتصال التلقائي ) ستظهر لك هذي النافذة مباشرة ( الاتصال اليدوي بقاعدة البيانات ) : لاحظ أنه يخبرك في الأسفل بآخر قاعدة كان متصل بها .. أو القاعدة اللي متصل بها الآن 🙂 بالمناسبة الآن بعد إضافة حقل لكلمة المرور الخاصة بقاعدة البيانات .. الآن البرنامج يسألك إذا كان لها باسوورد أو لا عند عمل اتصال بقاعدة جديدة 🙂 ===================================================================== وبخصوص ماكرو ال Autoexc تم تطويره أيضا 🙂 وضيفة الماكرو أنه يشغل لنا دالة اسمها Start .. ولها 4 متغيرات هذي المرة بدل 3 🙂 1 - تعطيها اسم أول نموذج أو فورم تريده يشتغل . 2- تكتب ( true / False ) وذلك لتقفيل البرنامج بشكل كامل وإخفاء النوافذ العلوية وتعطيل القوائم الخاصة ووو ... إلخ 😁 ( باختصار تجهيز البرنامج للتسليم النهائي). 3- تكتب ( true / False ) في حالة أنك تريد تفعيل خاصية الاتصال التلقائي لقاعدة الجداول أو تعطيله . 4 - نكتب فيه اسم أحد الجداول المرتبطة وذلك لفحص إذا كان البرنامج متصل بقاعدة البيانات (الجداول) أو لا .. شي أكثر من كذا دلع !! 😄 ====================================== والآن مع اللحظة الحاسمة .. ملف التحميل 😊 طبعا الغرض الأساسي من وضع العمل هنا .. لارتباطة بالموضوع الأساسي لأستاذنا @jjafferr وأيضا يهمني رأيه ورأيكم جميعا في هذا الابتكار بغرض التعديل والتطوير والتحسين 🙂 والهدف الأكبر خدمة المبرمجين وتسهيل حياتهم 😊 المرفق : Auto Reconnect FE.zip