jjafferr

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

ربما لم احسن وصف/شرح طريقة عمل الامر Line. في النماذج/التقارير ، وشرحك هو اقرب الى ما كنت اقصده ، الحقل هو مجرد مكان يعرف الكود اين يرسم الباركود في حدوده نعم ، يمكنه الرسم في كائن الصورة ، ولهذا السبب ارفقت البرنامج الآخر A2KPictureBoxVer35 والذي به مثال هكذا: . ولما نقرت على الزر Save to File ، فحفظ الصورة اعلاه. وهذا اللي قلته

الان فهمت ، وهناك سوء فهم : الطريقة التي عملتها انت "قابل للنقل : لا" تنطبق على عدم تحريك النموذج عند مسكه/افلاته من الشريط اعلى البرواز ، ولكني انا اخفيت البرواز ، فالاعدادات لاتزال ساريه المفعول. وطريقة تحريك النموذج الذي وضعته انا ، يتعامل مع مربع الملصق. لذا اذا حذفت الكود الذي وضعته انا ، والمتعلق بالملصق ، سترى ان النموذج غير قابل للنقل.

بعض الاوقات هذا لا يكفي ، ويجب تعديل المكتبة في اماكن اخرى. على العموم ، قاعدة البيانات هذه كانت معمولة على الاكسس 2000 ، فمن المتوقع ان لا تشتغل على الاصدارات الجديدة ، وخصوصا نواة 64 بت

لا ، انا ما عملت اي تعديل اذن احذف الكود الذي يحرك النموذج ، وسيبقى المسمى كما هو والذي يمكنك تحديد اتجاهه. وقد قمت بشرح السبب حسب قرأتي عند البحث عن حل

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

وانا كذلك ما كانت عندي مشكلة. وللاجابة على السؤال وحسب ما قرأت : النماذج/التقارير المنبثقة ، ولأنه بإمكانك اخراجها من اطار برنامج الاكسس ، فيتعامل معها الوندوز ، وتأخذ الاتجاه حسب اتجاه اعدادات الوندوز ، يميناّ او يساراّ ، بينما النماذج ولأنها داخل اطار الاكسس ، فيتم التعامل معها بإعدادات الاكسس ، فتتوسط عرض النموذج. عملت هذه الحيلة: 1. جعلت النموذج بدون برواز . 2. اضفت كائن مسمى واسميته lbl_Move_Form ، ويمكنك تغيير اتجاهه حسب رغبتك . 3. استخدمت الكود التالي لتحريك النموذج ، بعد النقر على هذا الكائن Dim moveFrm As Boolean Dim xDrag As Long Dim yDrag As Long ' Private Sub lbl_Move_Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) moveFrm = True xDrag = X yDrag = Y End Sub Private Sub lbl_Move_Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long If moveFrm = True Then xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy End If End Sub Private Sub lbl_Move_Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim xx As Long Dim yy As Long xx = Me.WindowLeft + X - xDrag yy = Me.WindowTop + Y - yDrag Me.Move xx, yy moveFrm = False End Sub . والنتيجة 1646.Form_Caption_Direction.mdb

حيا الله اخوي ابوخليل 🙂 الحاجة كالتالي: نريد عمل هوية موظف ، فالصورة الخلفية ستكون لشكل الهوية ، وسنحتاج الى احد انواع الباركود سواء Code128 او QR وهو المفضل. انظر المثال للتوضيح: . سؤال: لماذا لا نضع صورة الهوية في خلفية قسم التفصيل ، بحيث يمكن عمل الباركود فوقها (كما في الامثلة اعلاه). الجواب: بعض الاوقات نحتاج الى تحريك صورة الخلفية (بعيدا عن اطراف قسم التفصيل) ، بحيث ممكن نكتب شيء فوقها او على طرفها ، لذلك لابد من طباعة الباركود على كائن الصورة الخلفية

السلام عليكم الموقع https://zingl.github.io يعرض طريقة لعمل الباركود Code128, QR, Aztec, DataMatrix بالكود ويدون الاستعانة ببرامج خارجية. في الموقع مرفق اكسس (وقد عملت تعديل بسيط عليه لعمل الصور التالية ، والمرفق موجود في اسفل المشاركة) ، وهنا اعرض مثالين على العرض: . . طبعا Code128 غير مناسب للكلمات الطويلة. الكود يقوم بعرض الباركود داخل حقل نص Textbox ، وهو يستعمل Line لعمل الباركود : . المشكلة ان الاكسس يقوم بتنفيذ الامر Line على خلفية التقرير/النموذج ، وبعدها يقوم بعرض بقية الكائنات ، بمعنى ، اذا وضعنا كائن/حقل صورة خلف حقل نص الباركود ، فاننا لا نستطيع رؤية الباركود ، لأنه اصبح خلف الصورة. في الصورة التالية ، التقرير الاول هو ما تم عرضه سابقا ، بينما في التقرير الثاني وضعت صورة زرقاء خلف كائنات/حقول الباركود: . ونتيجة التقرير الثاني: . مع وجود الصورة في الخلف ، المطلوب اظهار الباركود على الصورة ، وبأي طريقة. من تجربتي ، لإظهار الباركود ، يجب وضعه في كائن/حقل صورة ، امام الصورة الخلفية. ارفق لكم من نفس الموقع ، مرفق اكسل كذلك. ومن موقع www.lebans.com ارفق قاعدة البيانات A2KPictureBoxVer35.accdb ، والتي بها نموذج و مكتبات قد تساعد الذكاء الاصطناعي بالعمل (نعم ، قد يحتاج الى مساعدتك في توجيهه). QR_barcode.accdb A2KPictureBoxVer35.accdb barcode.xlsm

وعليكم السلام هو موضوع يحتاج الى تعديل متواصل . تم مناقشة طرق البحث في المنتدى هنا : . وياريت تشاركنا ما توصلت اليه

اول نموذج = اول نموذج يتم فتحه في قاعدة البيانات ، او اول نموذج يتم فتحه و تحتاج الى ايقاف عجلة الماوس ، أخر نموذج = آخر نموذج يتم به اغلاق البرنامج.

تفضل يا سيدي ، يمكنك عمل هذا : . وحسب صلاحيات المستخدم ، اذا لم تستطع نسخه الى مجلد System32 ، فيمكن نسخه الى المجلد الخاص بالتطبيق يمكنك كذلك نسخه الى المجلد System32 داخل مجلد Windows

شو نوع النموذج عندك ؟ هل عندك نموذج مستمر او نموذج مفرد ؟

وعليكم السلام في اعدادات النموذج ، بدل استعمال جميع السجلات (All Records) ، استعمل السجل الحالي (Current Record)

هذا افضل 🙂 ولكن لما اريد ابيع البرنامج للآخرين ؟

طيب هل فيه مانع من عمل ملف مشفر داخل الفلاش العادي ، ثم نعمل برنامج في الاكسس يفرأ Serial Number الفلاش + الملف المشفر ، وبذلك يكون عندنا فلاش/دنكل خاص بالبرنامج؟

العمل فنياً ، ابداع وممتاز 🙂 ولكن كيف يمكن الاستفادة منه ، ومن المستفيد ؟

1. رجاء اخذ صورة من رسالة الخطأ ، حتى نرى ما يراه الاكسس ، 2. في الكود اعلاه ، كتبت شرطة زائدة "\" ، فبدل: "\Youssef\" يجب ان يكون "Youssef\" ، فرجاء تجربة الكود التالي: Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub

هممم 1. انا لم اتاكد من وجود مجلد باسم Youssef في المجلد المحلي ، فهل هو موجود ؟ بالتعديل التالي ، قمت بالتاكد من وجود لبمجلد Youssef ، وان لم يكن موجودا ، فيقوم الكود بعمله : Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" if dir(File_Path,vbdirectory)="" then mkdir File_Path endif File_Path=File_Path & "\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub 2. دائما لما تحصل على رسالة خطأ ، رجاء ارفاقها حتى نعرف سبب الخطأ ، ونستطيع مساعدتك ، 3. ومع اني اعرف ان رد الاستاذ خليفة هو الافضل للاستعمال ، ولكن رجاء اعمل التجربة اعلاه واعطنا النتيجة لوسمحت.

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

تفضل يا سيدي: عملت نسخة من الاستعلام Qry_Lab_Request واسميته Qry_Lab_Request_for_Export حتى تكون البيانات مخصصة للحقل PCode . وهذا كود كل زر تصدير : Private Sub cmd_Export_to_Excel_Click() '- تصدير الى اكسل Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode 'File_Path = CurrentProject.Path & "\" & Me.PCode DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Qry_Lab_Request_for_EXPORT", File_Path, True End Sub Private Sub cmd_Export_to_pdf_Click() '- تصدير الى PDF Dim File_Path As String File_Path = CurrentProject.Path & "\Youssef\" & Me.PCode & ".pdf" 'File_Path = CurrentProject.Path & "\" & Me.PCode & ".pdf" DoCmd.OutputTo acOutputQuery, "Qry_Lab_Request_for_EXPORT", acFormatPDF, File_Path, False, , , acExportQualityPrint End Sub . 1. ولكن الافضل بالنسبة الى التصدير الى الاكسل : ان تقوم بتنظيم اسماء الحقول بالعربية (حاليا هي بالانجليزية ، فجميع اسماء الاعمدة في الاكسل ستكون بالانجليزي) ، وتعيد ترتيب الحقول حسب ما تريده في الاكسل ، وتحذف الحقول الغير مطلوبة. 2. والافضل بالنسبة الى التصدير الى pdf : نفس النقاط اعلاه ، عمل تقرير بالعرض. 1644.TO EXCEL_PDF.accdb.zip

ولكن هذا ليس من تعديلي انا ، هذا الـ api للنواة 64بت

نعم ، ولكنه يعتمد api النواة :

السلام عليكم المعذرة لم اقرأ التفاصيل وجربت البرنامج على حاسبتي: اكسس 32بت حصلت على هذا الخطأ: . فاستغربت انه دخل في كود 64بت !! . فقمت بتعديل جميع VBA7 في البرنامج الى VBA7 And Win64 ، فاشتغل البرنامج : #If VBA7 And Win64 Then . وعند اغلاق البرنامج ، قفل الاكسس ما كان يختفي : . فعملت التغيير على جميع ، وانحلت هذه القضية كذلك: بدلا عن DoCmd.close الى Application.close . في بعض الاحيان كان الثعبان يعمل وميض ، ولكنه في معظم الوقت كان يشتغل تمام. ومرفق النسخة بعد هذه التعديلات. Plants VS Snake.zip

الطريقة الاخرى هي ، اضافة PtrSafe في السطر الثالث فقط ، وبدون تغيير الدالة DialogColor ، هكذا : '#If VBA7 Then ' Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As Long, rgb As LongPtr) '#Else Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As Long, rgb As Long) '#End If Function DialogColor(rgb As Long) As Long Call ChooseColor(Application.hWndAccessApp, rgb) DialogColor = rgb End Function 1643.1.FileDialog.accdb