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

جرب المرفق مربعين تحرير وسرد.accdb

او استخدم IF في حدث عند التحديث لمربع النص ..... If Me.m1.Column(1) = "رقم فاتورة الشراء" Then Me.m2.RowSource = "SELECT master.masterinvoice FROM master;" ElseIf Me.m1.Column(1) = "اسم المورد" Then Me.m2.RowSource = "SELECT master.countname FROM master;" ElseIf Me.m1.Column(1) = "اسم الصنف" Then Me.m2.RowSource = "SELECT master.categoryname FROM master;" ElseIf Me.m1.Column(1) = "كود الصنف" Then Me.m2.RowSource = "SELECT master.catcod FROM master;" End If

وعليكم السلام 🙂 هذه طريقتي لكود اخي السيد حسام 🙂 Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", vbYesNo, "Confirm Save") <> vbYes Then me.Undo Cancel=true End If End Sub . ولكن وش لك في البحر واهواله و رزق الله على السيف 🙂 الاكسس يعمل لك هذا التغيير مباشرة من الزر الذي حوله دائرة حمراء : . جعفر

عليكم السلام والرحمة تفضل هذه المحاولة Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do You Want To Save Data", 4, "Confirm Save") <> 6 Then DoCmd.RunCommand acCmdUndo DoCmd.CancelEvent End If End Sub

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

شكرا استاذ @ahmedsaadzeed وهذا الملف لمن اراد الاطلاع عليه والباسورد لليوزرين 123 بالتوفيق SCAN.rar

تفضل أخي مع زيادة التقارير employees2.rar

https://www.gulf-up.com/odd5hccnoyl3

Generate PDF Dahy VBA Skills fun موضوعنا النهاردة موضوع شيق مدخل للدرس الثالث للفورم التفاعلي وفي نفس الوقت ها نتعرف فيه علي أدوات ها توفر الوقت والمجهود لشريحة كبيرة تستخدم قالب معين مثل الموارد البشرية لما ترسل طلبات التوظيف المالية لمطابقات كشوف الحساب للموردين واحنا داخلين علي موسم الجرد الختامي والبنوك او الشركات او المواقع التي ترسل رسائل دورية وما الي ذلك انا اخترت المثال علي شئون الموظفين وطلبات التوظيف وهانتعرف علي كيفية التعديل علي النموذج Word عن طريق الفورم عناصر الدرس ملف Templet word القالب المستخدم اداة Microsoft Outlook 16.0 Object Library أداة Microsoft Word 16.0 Object Library ونتعلم مع بعض VBA Dynamic Code وكيفية عمل ملف PDF وارساله بالايميل الشرح نقوم بإضافة الأدوات في الفيجوال كما يلي من Tools نختار References Microsoft Outlook 16.0 Object Library اضافة أداة Microsoft Word 16.0 Object Library تحديد مسار القالب كما يلي شفت + كليك يمين علي ملف الوورد ثم نختار Copy as Path حسب موقع الملف علي جهازك انا عندي في برتيشن F "\F:\GeneratePDF\Template_Contract.docx" تحديد مسار حفظ ملفات PDF الذي يحفظها البرنامج F:\Generate and Preview طبعا يلي مش عارف يغير في الكود يقوم بحفظ الملف المرفق علي برتيشين الFبعد فك الضغط مباشرة . ملف الورد يلي نستخدمه كقالب ولاحظ المسميات يلي انت ظللتها بالاصفر نفس مسميات الليبل ف الفورم وضعتها بين علامتي ##لانها بيانات متغيرة سيتم اضافاتها من الفورم لاحظ معي عند استدعاء الملف بالورد شاهد النتيجة البرنامج اضاف البيانات المظلله بشكل تلقائي الوظيفة الثانية للبرنامج اني ببعت الملف بالايميل من البرنامج لتوفير الوقت والوظيفة في حالة التقارير الدورية او النشرات او حسب استخدام الفرد الذي يحتاج ارسال عدد كبير في نفس الوقت مع ملاحظة انه بشكل تلقائي بياخد الايميل من الفورم ويضيف اسم الموضوع والمرفقات كما بالكود بشكل تلقائي طبعا الشرح موجز لاهم العناصر انا برفق مع الشرح مثال عملي منه للشرح ومنه نستفيد منه او من الافكار يلي فيه وبكون منتظر حد يسال عن اي شئ داخل الملف بصدر رحب لكن للاسف كعادتنا نحفظ في الارشيف علي اية حال الملف بالمرفقات واي استفسار لا تترد كلنا بنتعلم مع بعض شارك وتفاعل انت تسال وذلك يسال واخر يجيب وكلنا هانستفيد الدرس القادم ان شاء الله هاشرح الاكواد ونتعرف علي كود الحغظ والتعديل والبحث الديناميكي لضمان عمل الملف اتبع الشرح السابق في اضافة الادوات ومسار الملف وبالتوفيق للجميع ولا تنسونا من دعائكم بظهر الغيب بصلاح الحال GeneratePDF.rar

بسم الله الرحمن الرحيم السلام عليكم جميعا اخوانى اعضاء المنتدى تحية طيبة ،،،، استكمالا لموضعى السابق عن طريقة لاغلاق الفورم http://www.officena....showtopic=34335 اقدم لكم اليوم هذا الفورم اللطيف (صنعته لاهتمامى بشكل الفورم بكتابة بعض الاكواد مع الااستعانة ببعض اكواد من مواقع اجنبية) خصائص الفورم 1- يعطى تأثيرات عند فتح الفورم 2- يظهر الوقت الحالى الان 3- طريقة جديدة لاغلاق الفورم اتمنى ان يحوز على اعجابكم اخوكم Konafa4000 فورم.rar

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

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة كود لتحديد مدى الطباعه تم ارفاق كود الحل من الافاضل / الحسامي رحمه الله _ يحيى حسين _ أبوعبد الله _ هشام شلبى _ الخالدي و لا تنسونا من صالح الدعاء تحياتى Book222 الحسامى_01_.rar _هشام شلبىكود طباعة مدى متغير.rar تعيين نطاقة الطباعة نهاية صفه بنص بالنطاق _ابو عبدالله_02_).rar ابو عبدالله__01تحديد نطاق الطباعة بطريقتين وإلغاؤه.rar يحيى حسين _01_طباعه).rar Book222 (الحسامى_02).rar _طباعه _الخالدي.rar

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

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

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي Book3_MH.xlsx

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

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

وعليكم السلام ورحمة الله وبركاته .... استخدم مثلا Select Case Me.m1.Column(1)

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

السلام عليكم تم استعمال أكواد تقوم بما تريد جلبته من النت (وليس لي فيها أي يد عدا بعض التعديلات الخفيفة لتعمل على ملفك)... ملاحظة: الملف يعمل في ويندوز 64 بت وإذا حدث فيه خطأ عند تنفيذه في جهازك فجرب أن تغير مكان العلامة ' بين السطرين (تحذفهما من السطرين الأخيرين -32 بت- وتضعهما في اآخرين -64 بت-) في الجزئية التالية من كود Module1: 'في حالة استعمال وينودوز 64 بت Private Declare PtrSafe Function GetDC& Lib "user32.dll" (ByVal hwnd&) Private Declare PtrSafe Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) 'في حالة استعمال وينودوز 32 بت 'Private Declare Function GetDC& Lib "user32.dll" (ByVal hwnd&) 'Private Declare Function GetDeviceCaps& Lib "gdi32" (ByVal hDC&, ByVal nIndex&) وليس لي فكرة أخرى... نموذج ساعات1.xlsm

استاذي العزيز @abouelhassan اتمنى منك ان نتعاون لانجاز هذا الملف لانني انا احتاجه ايضا ارفق لك هنا ملف اكسل لشكل دفتر اليومية المعمول به في دائرتنا اريد منك ان تطلع عليه وبيان رايك تحياتي لك استاذ دفتر يومية.xlsx

جرب هذا الكود بدلا عن السابق : 'https://answers.microsoft.com/en-us/msoffice/forum/all/vba-to-minimize-the-window/dcfa65d1-50ab-490d-b140-9fe55e1d8b70 Dim objShell As Object Set objShell = CreateObject("Shell.Application") objShell.ToggleDesktop Set objShell = Nothing جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل .. ضع هذه الصيغة في حقل حساب فارق الوقت : IIf(DateDiff("n";[ofical inted];[time in])>=0;DateDiff("n";[ofical inted];[time in]);0) والباقي على الشباب 😊

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

اللهم امين ... وبالتوفيق ان شاء الله فورم بحث برقم الجلوس وبه إضافة وتعديل 2وحذف.xlsm

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

وعليكم السلام ورحمة الله تفضل Sub taxt() Range("a1:H20") = "0" End Sub

سيدي الفاضل 🙂 الرابط اللي اعطيتك ، فيه الطريقة اللي انا شخصيا استخدمها في برامجي ، وها انا ذا استخدمها هنا كذلك : في VBE او Notepad او الوورد او اي برنامج ، قم بتفكيك الامر iif الى سطور ، حتى يكون الامر سهل لك في فهم ما تقوم به ، وحتى الكلمات العربية ما تتداخل وسط الكود ويصبح الكود غير مفهوم : . IIf([ff] = "نجاح", 1, _ IIf([ff] = "فشل", 2, _ IIf([ff] = "Na", 3, _ IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) IIf([ff] = "نجاح", 1, IIf([ff] = "فشل", 2, IIf([ff] = "Na", 3, IIf([ff] <> "نجاح" And [ff] <> "فشل" And [ff] <> "Na", 3, "")))) . وفي النهاية ، احذف العلامة _ وضع الكود في سطر واحد (اوقف على نهاية السطر الاول ، واحذف العلامة _ ، ثم انقر على زر Del على لوحة المفاتيح حتى يأتي السطر الثاني في نهاية السطر الاول ، ويبقى لدينا سطر واحد فقط ، والذي سنأخذ نسخة منه الى الاستعلام مباشرة) . لاحظ في الاستعلام انه بالفعل قلب لنا المتغيرات والحقول ، بسبب اللغة العربية : . . رجاء احتفظ بملف النص ZZ.txt ، فكلما اردن ان تعمل تعديل على معادلة الاستعلام ، اعملها في ملف النص ، ثم انسخها الى الاستعلام 🙂 اما انا ، فبدل ان يكون عندي ملف اضافي في هذا المشروع ، فأقوم بعمل هذه الخطوات في VBE (طبعا ما اناديها برمجيا ولا استعملها) ، واللي تكون جزء من البرنامج 🙂 جعفر ZZ.zip fr.zip

وعليكم السلام 🙂 مشاركة مع اخي ابو جودي 🙂 . . وهذه هي الدالة في الوحدة النمطية : Function Get_R(txt As String) As String If txt = "نجاح" Then Get_R = 1 ElseIf txt = "فشل" Then Get_R = 2 ElseIf txt = "Na" Then Get_R = 3 Else Get_R = 3 End If End Function جعفر fr.zip

حاجة من باب المرح لتسهيل استخدامك ضيفتلك وظائف تتحكم في اليوز فورم اضافة اسم مش موجود في القائمة ترتيب الاسماء حذف اسم من القائمة لو تتكرر ادخاله من ليست الاسماء دبل كليك لاي اسم هاتحذفه من القائمة جرب ويارب تكون فيها التسير لعملك Fawzy 10.xlsm

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

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

السلام عليكم ورحمة الله تعالى وبركاته وبعد اذن استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr تسهيلا على اخونا السائل على اعتبار ان الحقل اسمه ff اولا باستخدام دالة Switch Switch(IsNull(Trim([ff])),3,[ff]="Na",3,[ff]="ناجح",1,[ff]="فاشل",2) ثانيا باستخدام دالة iif IIf(IsNull(Trim([ff])),3,IIf([ff]="Na",3,IIf([ff]="ناجح",1,IIf([ff]="فاشل",2)))) وطبعا انا افضل دالة Switch لا يصير منها لخبطة مع كثرة عدد الحروف بالكود وبخاصة مع كثرة المتغيرات واستخدام الاحرف العربية اللى تشقلب الكود رأسا على عقب وتجيب لمحرر الاكواد صداع

الشرح عن طريقة عمل الامر iif في الاستعلام ، ولكني عملتها في VBA وكنت استطيع عملها في برنامج Notepad ، فقط لأشرح طريقة عملها بخطوات سهله ، ثم تجميعها (بحذف علامة _ ) وجعل الجملة في سطر واحد ، ثم اخذها الى الاستعلام 🙂

وعليكم السلام 🙂 ايش رأيك بشرح مفيد عن الدالة iif ، وان شاء الله يساعدك في مرادك . جعفر

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

بعد إذن استاذي الجليل جعفر هل ممكن اشارك بهذا الموضوع تفضل أخي يارب يكون هذا طلبك employees.rar

السلام عليكم مصنف1.xlsx

احسنت اخ وجيه نورت المنتدى بعد غياب طويل ربنا يكرمك

ممكن استاذي اعرف ليه المرفق مش راضي ينزل عندي و الانترنت داونلود مانجر بيطلع رساله بتقول " لا يعتمد هذا الاصدار تحميل هذا الملف جرب اصدار احدث "

السلام عليكم تفضل التعديل استاذي العزيز وارجو ان يكون طلبك Root10.rar

QR CODE.xlsm

في الخلية G8 استبدل المعادلة الموجودة بهذه رجاء أن تكون النتيجة كما طلبت =URL_QRCode_SERIES("qr_code_1";CONCATENATE(B2;"-";C2;"-";D2;IF(E2<>"";"-";"");E2;IF(F2<>"";"-";"");F2; IF(F4<>"";"-";"");F4;IF(E4<>"";"-";"");E4;IF(D4<>"";"-";"");D4;IF(C4<>"";"-";"");C4;IF(B4<>"";"-";"");B4;"-";B5;"-";B6);;"qrCode") تمت التجربة على هذه المشاركة وكانت ناجحة بفضل الله.

اين المرفق

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

التلميح داخل مربع النص مع علامة مائية فى حالة كان مربع النص فارغ ويختفيان بمجرد التركيز داخل مربه النص او الكتابة ... ToolTip.mdb

الشكر موصول لك اخي محمد عبدالله وبارك الله فيك على كلماتك الطيبه

اخي الحبيب اليحياوي لك مني كل التقدير والاعجاب بشخصك الكريم بارك الله فيك وجزاك الله خيرا على ملاحظاتك