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

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

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

شرح مستعجل للطريقة اذا الطريقة مش واضحة اعمل فيديو اخر

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

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

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

يعطيك العافية شكلك زعلت من ردي اخ عبداللطيف هدفك من الموضوع ارشاد المبتدئين وتعقيبي كان تنبيهي لك لايصال فكرة العمل إليهم ::بالتوفيق::

::بالتوفيق::

انظر الان TEST3.rar

أخي الكريم اعطني صورة للمواد المصروفة للموظف من الجدول لا اريدها من الاستعلام

ممكن تعطيني صورة للكميات المصروفة من الجدول وتقارنها بالاستعلام

انظر ان كان هدا هو المطلوب ::بالتوفيق:: TEST2.rar

اشكرك صديقي @عبد اللطيف سلوم

بارك الله فيك وجزاك الله كل خير

وجيه شرف الدين الحمد لله وجزاكم الله خيرا

السلام عليكم تمت اضافة النسخة كمرفق اضافة للمشاركة الاولي فى الموضوع

اشكرك يا بركة كلك ذووق

ممكن هذا الحل باستعمال شيت مساعد (الملف مرفق) الماكرو Option Explicit Sub Pprint_Sames_columns() Dim xRg Dim arr Dim i%, r%, m%: m = 1 r = Sheets("salim").Range("a1").CurrentRegion.Rows.Count Sheets("Print_sheet").Cells.Clear xRg = Application.InputBox(" أكتب أرقام الأعمدة مع فاصلة بين كل رقم والذي يليه", "المطلوب أرقام الأعمدة", Type:=2) arr = Split(xRg, ",") For i = LBound(arr) To UBound(arr) If IsNumeric(arr(i)) Then Sheets("salim").Cells(1, Int(CInt(arr(i)))).Resize(r).Copy _ Sheets("Print_sheet").Cells(1, m) m = m + 1 End If Next Sheets("Print_sheet").PrintPreview End Sub Print Same Colmns.xlsm

ملحوظة كود الحذف منقول ولكن للامانة لا اتذكر اسم صاحب الكود هذا للتوضيح

الله عليك استاذ سليم ملف روعة ولكن استاذن سيادتكم بتكملة جزئية اذا كان هذا الرقم مكرر ام لا وجزاكم الله خير الجزاء ما اجمل ان يتواصل العطاء نسخة من 0000-1.xlsm

جرب هذا الملف Zero_files.xlsm

اتفضل اخي حسب طلب test_up.rar

اتفضل افتح تقريرك في وصع التصميم واكتب هذا الكود عند فتح التقرير Private Sub Report_Open(Cancel As Integer) DoCmd.Minimize DoCmd.OpenReport Me.Name, acViewPreview End Sub ولان لا ارفقت اي القاعدة اتفضل اليك مرفق لكي تلقي نظرتا اليه اظهار التقرير عند اخفاء شاشة اكسس وبدون تكبير التقرير.rar

السلام عليكم أخي الكريم أهلا بك ومرحبا بين إخوانك تفضل الحل بالمعادلات وليس الأكواد إن شاء الله تجده يسيرا سهلا Book2_2.rar