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

السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا 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

عند تعديل المسميات عدل ايضا المسميات في الكود ؟؟ Me.txtCurrentRecord = Me.ID Me.ID.BackColor = Me.txtCurrentRecord.BackColor Me.Name_i.BackColor = Me.txtCurrentRecord.BackColor Me.Tel.BackColor = Me.txtCurrentRecord.BackColor ليس للامتداد علاقة في ذلك ....

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي المصنف2.xlsx

السلام عليكم تم عمل المطلوب بمعادلة صفيف... بن علية حاجي Book.rar

بعد إذنك اخي @عبد اللطيف سلوم تفضل هل هذا طلبك ؟؟؟؟ Colored Row.mdb

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

فورم تسجيل مصاريف الطلاب فى الشيت المختار وفى نصف الشيت الفيديو الصور الملف حمل الملف من هنا

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

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

تسلم يا استاذى

لنسخ القيم فقط هذا الكود Option Explicit Sub Copy_range_Values() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_max%: My_max = Application.Max(Sheets("الربط").Range("f:f")) With Sheets("العمليات").Range("f5") .Resize(500, 54).ClearContents .Resize(My_max + 1, 54).Value = _ Sheets("الربط").Range("f5").Resize(My_max + 1, 54).Value End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف من جديد Omra_values.xlsm

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

لا تنتظر أن يقوم احد من الاساتذة بإنشاء ملف يحتوي عما تريد ارفع الملف للمعاينة والتفكير في الحل

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

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

ما شاء الله عمل اكثر من رائع جزاكم الله خير الجزاء وكل عام وحضرتكم بخير بحلول شهر رمضان الكريم المبارك اعاده الله عليكم وعلى الامه الاسلامية بالخير واليمن والبركات

أشكرك أخي @kanory على سرعة رد طبعا ملفك شغال طبيعي .. لا غبار علية .. في أوفس 2016 لكن هناك مشكلة لم أعرف ما سببها عند ما قمت باضافة الاكود مع تعديل المسميات وكذالك نقلت تكست txtCurrentRecord الى ملفي .. لكن تظهر كل السجلات بنفس لون txtCurrentRecord أمتداد ملفك mdb أصدار 2003 بينما أمتداد ملفي accdb أصدار 2007 هل أختلاف الأمتداد هو السبب ؟؟ أذا كان هذا السبب فما حل المشكلة؟؟

هذه المعادلة في الخلية D16 واسحب نزولاً =SUMPRODUCT(--($C$4:$C$13=$C16),$D$4:$D$13)

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

هلا وغلا

والله يا اخ qathi اؤكد كلامك خصوصا في قاعدة البيانات المقسمة

يسلموااااااااااااااا يا رب

أستاذنا @عبد اللطيف سلوم بارك الله فيك .. مثال جميل هل لديك أستاذنا طريقة تلوين سجل في النموذج الفرعي عند التركيز .. بحثت كثيرا وصلت لنتيجة تلوين الحقل بالرغم اني عامل شرط تلوين جميع الحقول ملاحظة: النموذج الفرعي مستمر

ربما ينفع هذا الكود Option Explicit Sub Copy_range() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_max%: My_max = Application.Max(Sheets("الربط").Range("f:f")) + 5 Sheets("العمليات").Range("f5").Resize(500, 54).ClearContents Sheets("الربط").Range("f5").Resize(My_max, 54).Copy _ Sheets("العمليات").Range("f5") With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Omra.xlsm

نسخة من 0000-1.xlsm