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

تفضل Data1.xlsm

كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل رفع هذه المشاركة-تفضل https://www.officena.net/ib/topic/95161-كود-لتغيير-الايام-حسب-الشهر/

تفضل مسابح(AutoR1ecovered).xlsx

كان عليك من البداية استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/26407-إرسال-ملف-الاكسل-بالايميل-من-الاكسل-sending-mail-from-excel/?tab=comments#comment-125857

بارك الله فيك وزادك الله من فضله

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

أحسنت استاذ مجدى بارك الله فيك

تفضل _بيان الحالة - نسخة1.xlsm

هذا لا يحتاج الى كود فقط عليك بتنسيق الخلايا الى نص

دائيما ما نستخدم ( Me ) لسهولة الوصول لعنصر التحكم حيث ان استخدام عنصر التحكم كتابة قد يتحمل الخطأ اما استداعائه من خلال Me فإن نسبة الخطأ تنعدم ** ملاحظة : عناصر التحكم هي ( مربع النص - القائمة المسندلة - ...... الخ) اتمنى اكون وصلت المعلومة باشكل المطلوب

تفضل هذا المثال اخي الكريم البحث.mdb

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

تم العمل بمعادلة Index & Match فلا يمكن العمل بمعادلة Vlookup حفظ الفاتورة بدون فراغات.xlsm

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code الموجود على الرابط التالي: https://sourceforge.net/projects/zint/ ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال يعمل على 2003 🙂 ----------------------------------------------------------------------------- إضافة في يوم الجمعة 14 / 6 / 2019 : باركود بطاقة دخول الطائرة (Boarding card) وهي من نوع PDF417 اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد سلامه ، فقد استعملت الصورة التي استعملها في مثاله 🙂 ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' If Len(Me.str_Text & "") = 0 Then Exit Sub Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String Dim Command_Line As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) 'QR code Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_code.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 -d " & Me.ID 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide 'PDF 417 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "PDF_417.png" & Chr(34) Command_Line = App_Name & " -o " & Output_File & " --rotate=0 --eci=24 --binary --barcode=55 --mode=3 -d " & Output_Text 'Debug.Print Command_Line Shell_n_Wait Command_Line, vbHide End Sub ----------------------------------------------------------------------------- إضافة في يوم الجمعة 22 / 6 / 2019 : تم عمل VCard QR ليخزن معلومات الشخص مباشرة في الموبايل 🙂 . وبإستخدام برامج الموبايل والتي تقرأ QR Code ، يمكنك حفظ معلومات VCard QR مباشرة في عناوين الموبايل 🙂 البرنامج zint الموجود في المرفق ، فيه امكانية عمل عدة انواع من QR والباركودات ، ولكن كل نوع من هذه الانواع له صيغة خاصة في عمله ، فمثلا كود VCArd QR هو: Function Add_Items() Dim VCard_Text As String 'clear field VCard_Text = "" VCard_Text = "BEGIN:VCARD" & vbCrLf VCard_Text = VCard_Text & "VERSION:3.0" & vbCrLf VCard_Text = VCard_Text & "N:" & Me.[Family Name] & ";" & Me.[Given Name] & ";" & Me.[Additional Name] & ";" & Me.[Name Prefix] & ";" & vbCrLf VCard_Text = VCard_Text & "FN:" & Me![Name] & vbCrLf VCard_Text = VCard_Text & "ORG:" & Me.[Organization 1] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 1 - Type] & ",VOICE:" & Me.[Phone 1 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 2 - Type] & ",VOICE:" & Me.[Phone 2 - Value] & vbCrLf VCard_Text = VCard_Text & "TEL;TYPE=" & Me.[Phone 3 - Type] & ",VOICE:" & Me.[Phone 3 - Value] & vbCrLf VCard_Text = VCard_Text & "ADR;:" & ";;" & Me.[Address 1] & ";;;;" & vbCrLf VCard_Text = VCard_Text & "BDAY:" & Me.[Birthday] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 1 - Type] & ":" & Me.[E-mail 1 - Value] & vbCrLf VCard_Text = VCard_Text & "EMAIL;TYPE=" & Me.[E-mail 2 - Type] & ":" & Me.[E-mail 2 - Value] & vbCrLf VCard_Text = VCard_Text & "NOTE:" & Me.Notes & vbCrLf VCard_Text = VCard_Text & "URL:" & Me.[Website 1] & vbCrLf VCard_Text = VCard_Text & "END:VCARD" Add_Items = VCard_Text End Function والذي يختلف عن PDF417 والذي يختلف عن غيره. المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود 🙂 ----------------------------------------------------------------------------- إضافة في يوم السبت 2 / 11 / 2019 : هنا مثال لعمل بطاقة عمل ID.zip ، بأصغر حجم QR code (رجاء ابقاء حجمه ، فقد توصلت الى هذا الحجم والكود بعد محاولات ساعات طويلة) : . وهذا هو QR code . اما تفاصيل عمل البطاقات ، فهذا الرابط فيه تفاصيل كاملة: . جعفر ملاحظة: 1. المرفق في هذه المشاركة هو البرنامج الاخير ، وفيه جميع التعديلات التي في بقية المشاركات. 2. الـ api التي تنتظر إنتهاء الامر ، ثم تنتقل للسطر التالي في الكود اسمها ShellWait ، هذه لا تتعامل مع Unicode / utf-8 / ومنها الحروف العربية بطريقة صحيحة : http://access.mvps.org/access/api/api0004.htm بينما هذه تمام : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas zint QR 3.zip ID.zip Shell_n_Wait_2021-12-13.txt.zip

فورم البحث بعددة طرق مختلفة الفيديو الصور

فورم اضافة ومسح وحذف وتعديل و بحث بعددة طرق مختلفة الفيديو الصور

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

ارجو أن تتحملني قليلا حتي نستطيع الوصول لنقطة تلاقي أولا - لنفترض أن لدينا 3 موظفين بقسم الانتاج على الدرجة ال 2 - تمام (سمعتك قلت تمام 😉) وأن مرتب كل واحد منهم 1000 ثانيا - الأول لديه 20 نقطة والثاني 10 نقاط والثالث 30 نقطة ثالثا - سنقوم بترقية الموظف الثالث الى الدرجة 3 لكونه أكثر نقاط وسيتم زيادة الراتب الي 1400 بزيادة 40% رابعا- سنقوم بترقية الموظف الأول الى الدرجة 3 لكونه أكثر نقاط بعد الثالث وسيتم زيادة الراتب الي 1400 بزيادة 40% خامسا- سنقوم بترقية الموظف الثااني الى الدرجة 3 لكونه أكثر نقاط بعد الثالث والأول وسيتم زيادة الراتب الي 1200 بزيادة 20% وأخيرا هل هذا الكلام صحيح ؟!!! (لا ترفع صوتك بقول لا 😁) وجزاكم الله خيرا

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

السلام عليكم جرب هذا كل ما عليك هو تحميل الخط المرفق لمكتبة خطوط الويندوز كما هو موضح بالصورة ووافنا بالنتائج باركود.rar

أخي @محمد صلاح1 أضع هذه الصورة من ملفي .. لعلها قد توصلك لنتيجة قمت بوضع خيار في النموذج الرئيسي لتحديد جميع اسماء النماذج بالنموذج الفرعي حسب الخيار كمثال وضعت هذا الكود في خيار تحديد كل الفتح Oall If Me.Oall = True Then DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE UsersFrmAbility_T SET UsersFrmAbility_T.O = 1 WHERE (((UsersFrmAbility_T.SN)=[Forms]![UsersAbility_F]![UL]));" DoCmd.SetWarnings True Me.Refresh SysCmd acSysCmdClearStatus Else DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE UsersFrmAbility_T SET UsersFrmAbility_T.O = 0 WHERE (((UsersFrmAbility_T.SN)=[Forms]![UsersAbility_F]![UL]));" DoCmd.SetWarnings True Me.Refresh SysCmd acSysCmdClearStatus End If

تفضل هل هذا ما تريده ؟؟ Exam.accdb

عليكم السلام لكن حقل نقاط فارغ

هذا الملف يشتغل مع 32 و 64 جرب و سوف ترى ذلك

وعليكم السلام طبعا هناك اختلاف بين اكواد الأكسيس والإكسيل واكواد الأكسيس بالتأكيد لا تصلح للإكسيل

شكرا لك أستاذ ابو ياسين المشولي وشكرا لك أستاذ د.كاف يار بارك الله فيكم وزادكم من علمه كل يوم أتعلم شىء جديد على vba والاكسس واعذروني لكثرة أسئلتي وشكرا لكم

تم تبديل المرفق بآخر المعدل في مشاركة السابقة

السلام عليكم حاول تخلي كل كل جدول فيه نفس البيانات مثلاً المبيعات عامود بيع =قيمة فاتورة البيع عامود سداد = المبلغ المسدد ( صفر افتراضي ) عامود الصافي = عامود البيع - عامود السداد وفي الغالب هيكون بالسالب سندات القبض عامود بيع برده = صفر افتراضي عامود سداد = المبلغ المحصل من الفاتورة عامود الصافي = عامود البيع - عامود السداد الخطوة التانية اعمل استعلام لكل جدول اعمل استعلام توحيد هتلاقي الصافي يساوي الفرق بين المباغ والمسدد الخطوة التالتة خلي مصدر التقرير استعلام التوحيد في خانة الرصيد او الصافي في الخصائص تبويب data > running sum خليها over all

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

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

جرب شغلbenyasien كمسئول benyasien.rar

اعليكم السلام الصق هذالكود في حدث بعد تحديث لـ txt7 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE جدول1 SET جدول1.[تاريخ الحضور]=txt7" DoCmd.SetWarnings True Me.Requery

يقول النبي ﷺ (( من لا يشكر الناس لا يشكر الله )) و كلمة شكرا قليلة في حقكم فقد كسبت قلوبا طيبة في هذا المنتدى العظيم ففي كل يوم نتعلم و ننقل ما تعلمناه ابتغاء الاجر من ربٍ كريم كذلك ... لم تنمحني إدارة هذا المنتدى العظيم شرف الانضمام لإسرة الخبراء ألا بمساعدة الجميع و بمحبته و قلوبهم النقية و ثقتهم شكرا لكم فردا فراد ففي مثل هذه اللحظات يعجز القلب و اللسان عن التعبير و اسأل الله لي و لكم التوفيق و النجاح ,,, ,

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

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

جرب هذا الملف (ليس فقط الشهر بل السنة ايضاً) MY_DATE.xlsx

تفضل جرب هذا اخي الكريم السبب ان اصدار الاوفيس لديك قديم لكن جرب المرفق و اعطيني النتائج مثال للتعامل مع الصور.mdb

يمكنك تجربة هذه الروابط داخل المنتدى https://www.officena.net/ib/topic/85028-كود-لتجميع-حقل-وقت-اضافي-في-برنامج-حضور-وانصراف/?tab=comments#comment-539318 https://www.officena.net/ib/topic/85549-برنامج-حضور-وانصراف-وhr/?tab=comments#comment-542470

بارك الله فيك استاذ عصام وزادك الله من فضله

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

يمكنك استخدام هذه المعادلة في الخلية B1 ويمكنك سحب المعادلة للإسفل =IF(A1="","",A1) New Microsoft Excel Worksheet.xlsx

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

احسنت أستاذ سليم معادلة ممتازة جعله الله في ميزان حسناتك

أحسنت أستاذ مجدى موضوعات مميزة دائما

وعليكم السلام احسنت استاذى الكريم عمل رائع جعله الله في ميزان حسناتك وزادك الله من فضله

اهلا بك اخى الكريم تفضل يمكنك مشاهدة الصورة

تفضل InOutData0000000.xlsx

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

تفضل اخى الكريم InOutData.xls

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