Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

jjafferr

أوفيسنا
  • Content Count

    5,371
  • Joined

  • Last visited

  • Days Won

    207

jjafferr last won the day on May 5

jjafferr had the most liked content!

Community Reputation

4,056 Excellent

About jjafferr

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    -

Recent Profile Visitors

  1. السلام عليكم :) شكرا على ردودكم ، وتمت اضافة مثال متكامل :) جعفر
  2. السلام عليكم 🙂 اللغة العربية هي المطلوبة هنا 🙂 المرفق المضغوط فيه مجلد وبرنامج اكسس ، والبرنامج اللي يعمل لنا QR code ، ويتم حفظ الصورة هنا Data > QR_images وعلشان كل شيء يشتغل تمام ، رجاء لا تعمل تغيير في مكان الملفات ولا المجلدات ، ولا تغيير اسمائها (طبعا تقدر تعمل اللي تريد ، بس على اساسه يجب تغيير الكود كذلك) هذا الكود : Private Sub cmd_Export_QR_Commandline_Click() ' 'https://sourceforge.net/projects/zint/ ' Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding As String App_Name = Chr(34) & Application.CurrentProject.Path & "\Data\zint.exe" & Chr(34) Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "QR_Test.png" & Chr(34) Output_Text = Chr(34) & Me.str_Text & Chr(34) Shell App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text End Sub وهي النتيجة: وخلونا نشوف من يقدر يقرأ الصورة 🙂 ----------------------------------------------------------------------------- إضافة في يوم الثلاثاء 7 / 5 / 2019 : عملت مثال آخر وبعُجاله ، بمرفق جديد يعمل على 2003 :) اختار الحقول اللي تريدها تظهر في QR code بإختيار مربع صح/خطأ : . والنتيجة: . و باركود 128 (ويمكن عمل اي نوع من انواع الباركود) . والتقرير (وبعد اذن اخي محمد ، فقد استعملت الصورة التي استعملها في مثاله :) ) . وبهذه الطريقة نرى اننا لا نحتاج ان نحفظ صورة لكل سجل (واذا اردنا ذلك ، فنعمل تعديل في الكود ليقوم بذلك). وهذا الكود مضافا اليه عمل الباركود العادي : Private Sub Make_QR_Barcode() ' 'https://sourceforge.net/projects/zint/ ' Dim App_Name As String Dim Output_File As String Dim Output_Text As String Dim Encoding 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) ShellWait App_Name & " -o " & Output_File & " --eci=24 --scale=2 -w 10 --height=100 --barcode=58 -d " & Output_Text 'Barcode 128 Output_File = Chr(34) & Application.CurrentProject.Path & "\Data\QR_images\" & "Barcode.png" & Chr(34) ShellWait App_Name & " -o " & Output_File & " -d " & Me.ID End Sub المرفق في ملفين بصيغة txt والذي فيهما جميع الاوامر التي يمكن استعمالها لعمل مختلف انواع الباركود :) انا وضعت المشاركةوسافرت ، ولازلت على سفر :) جعفر zint QR Code.zip zint QR Final.zip
  3. اخي ازهر انت ارسلت تقريرين الى الادارة بنقرك على "أبلغ فريق الموقع عن مخالفة" فهل قام احد بعمل شيء مخالف ؟
  4. وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 المنتدى مليء بالامثلة ، فما عليك الا استعمال خاصية البحث للوصل الى ما تريد ، فهذا مثال: . كما يرجى مراعاة شروط وقوانين المنتدى ، والموجودة في صفحى قسم الاكسس ، واحدها ان يكون اسم الموضوع يعطي دلالة عن الموضوع ، حتى تحصل على اجابة اسرع 🙂 جعفر
  5. نعم هذا اللي ظهر عندي ، عند قرأته بأحد برامج الموبايل ، ولكني ارت التأكد 🙂 اصبر على رزقك ، الخير جاي ان شاء الله 🙂 جعفر
  6. السلام عليكم 🙂 شكرا أخي محمد على الموضوع 🙂 وهل يأخذ الكتابة باللغة العربية ؟ جعفر
  7. السلام عليكم 🙂 رجاء عدم وضع مشاركات جديدة في مواضيع قديمة ، لأن اصحابها قد لا يكونوا متواجدين في المنتدى !! جعفر
  8. وعليكم السلام 🙂 رجاء مراجعة هذه الروابط السبب . والحل جعفر
  9. السلام عليكم 🙂 في الرابط المرفق ، انا ارفق الملفات اللي اريدها ، بصيغة Blob ، في حقل OLE ، في قاعدة البيانات (mdb او accdb) ، وكود لاستراد الملف لقاعدة البيانات ، وكود لتصدير الملف الى القرص الخارجي ، وهناك كود لجعل الملف يعمل مباشرة ، عن طريق احد النماذج (يصدر الملف الى مجلد Windows Temp ، ويقوم بجعل الملف يعمل المطلوب منه 🙂 ) . جعفر
  10. وعليكم السلام اخوي حسنين 🙂 ضعنا بين الدروس ومختلف الاكواد اعمل فينا خير ، واجمع كود الموضوعين في كود واحد ، وخلي الكود يقرأ صيغة الملف المطلوب تشغيله ، ثم يشغله بالكود المناسب ، واذا صيغة الملف غير عن wav او mp3 ، فخلي البرنامج الافتراضي يشغله 🙂 وخلي الكود في الموضوع ، وبطريقة مناداة الدوال ، وبمثال مرفق 🙂 جعفر
  11. حيالله اخوي شفان 🙂 بالاضافة الى اقتراح اخوي شفان 🙂 اذا كان عندك برمجة جديدة لا توجد في الاكسس 2007 ، مثل: Data Macro : الماكرو المضمن Navigation Forms : https://www.tutorialspoint.com/ms_access/ms_access_navigation_form.htm فلا يستطيع الاكسس 2007 فهمها ، لأنها اصلا غير موجودة فيه. جعفر
  12. شكرا جزيلا اختي الفاضله ، فنحن بالفعل محظوظين بوجود هذه الكوكبة من الخبراء بيننا 🙂 وحسب قوانين المنتدى ، رجاء وضع سؤال واحد لكل مشاركة ، فرجاء فتح موضوع جديد وكتابة السؤال فيه ، ورجاء ان تعطي جميع المعلومات وبالتفصيل ، و عنوان صفحة الانترنت ، لأن الجميع سيحاول قبل ان يرد عليك🙂 جعفر
  13. وعليكم السلام 🙂 المفروض انها تفتح ، إلا اذا لم تكن عملت تحديث للاوفيس 2007 !! فهناك بعض الميزات الموجودة في 2010 والتي تم إضافتها الى تحديثات 2007 🙂 واليك روابط حزم التحديث الموجودة للاوفيس 2007: Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 1 (SP1)) Microsoft Office 2007 System (with 2007 Microsoft Office Suite Service Pack 2 (SP2)) Microsoft Office 2007 System The 2007 Microsoft Office Suite Service Pack 3 (SP3). جعفر
×
×
  • Create New...