jjafferr

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

اعطني السطر الذي به المشكلة حتى اعالجه. المبرمج 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

اليك كودك بعد التصحيح: بدلا عن Function DialogColor(rgb As Long) As Long Call ChooseColor(Application.hWndAccessApp, rgb) DialogColor = rgb End Function استعمل #If VBA7 Then Function DialogColor(rgb As LongPtr) As LongPtr #Else Function DialogColor(rgb As Long) As Long #End If Call ChooseColor(Application.hWndAccessApp, rgb) DialogColor = rgb End Function . والسبب: عند استعمال 64بت ، المتغير rgb (لاحظ انه المتغير رقم 2 في الدالة ChooseColor) والدالة ChooseColor يصبحون LongPtr ، وعليه ، وفي الدالة DialogColor ، فاننا ننادي الدالة ChooseColor ، والمتغير رقم 2 هو rgb ، فيجب ان يكون نفس نوع rgb الـ 64بت ، وهو LongPtr ، وعند اعطائنا قيمة rgb الى DialogColor (في المعادلة DialogColor=rgb) ، فيجب ان DialongColor تصبح LongPtr ايضا. لذلك في حالة 64 بت ، يجب استعمال Function DialogColor(rgb As LongPtr) As LongPtr 1643.FileDialog.accdb

السلام عليكم يمكنك رفع الملف كما هو ، ويمكنك رفع الملف بضغطه ببرامج winRar او winZip ، والافضل في الضغط هو صيغة 7z. ويمكنك انزال برنامجه المجاني من هنا : https://www.7-zip.org/ ويمكنك رفع الملف على اي من مواقع رفع الملفات على الانترنت ، و ارفاق الرابط في الموضوع ، ويمكنك رفع الملف في حسابك في Google Drive ومشاركة الرابط هنا.

تم ارفاق المرفق في المشاركة الاولى للاخ احمد. المرفق من موضوع آخر للاخ احمد في مكتبة الموقع

معك حق ، فالاكسس ما دون 2010 كان يعمل على النواة 32 بت فقط ، واالاكسس 2010 فما فوق يملك نسخة 32 بت واخرى 64 بت ، مما نضطر لعمل الامر ptrSafe حتى يعمل البرنامج على النواتين. فاذا كان التنصيب على حاسبتك النسخة 2010 فما فوق ، فيمكنك استعمال برنامج الرابط كما هو ، واذا كان التنصيب على حاسبتك النسخة اقل من 2010 ، فيجب عليك حذف جميع الاسطر التي بها الامر PtrSafe. بالاضافة الى عمل المرفق في الرابط اعلاه في تحسين الاداء ، اليك بعض الروابط للاسباب الاخرى: . . . . .