jjafferr

تفضل يا سيدي: عملت نسخة من الاستعلام 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. بالاضافة الى عمل المرفق في الرابط اعلاه في تحسين الاداء ، اليك بعض الروابط للاسباب الاخرى: . . . . .

وعليكم السلام اخوي احمد رجاء قرأة هذا الرابط ، واستخدم الاداة اللي فيه ، فانا لا استغني عنه وبإستمرار خلال عمل اي برنامج ، وقبل ان اعطيه الزبون

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

المعذرة ، كنت اعتقد ان الساعة ستؤدي الغرض !! اذن خليني اعمل قاعدة بيانات صغيرة ، وارفقها هنا

تفضل ، ارفقت المثال البسيط ، فرجاء تضبيطه بدالتك 🙂 TimeInterval.accdb

المعذرة ، اعتقد صار فيه اشباه في الموضوع وفي طلبي ، وما كان مفروض اخليه في موضوعك !! انا قلت تنفيذ الوقت عن طريق Time Interval لازم يكون مستمر ، لأن الحدث يقوم بعدة امور ، ومو ممكن اوقفه علشان تظبيط الكود في مكان آخر من البرنامج ، وخلال عمل ذلك النموذج ، اريد ان اعدل الكود في نموذج آخر ، بحيث اشتغل فيه كالمعتاد ولا يسبب لي مشكلة في كتابة الكود.

المعذرة ، اعتقد صار فيه اشباه في الموضوع وفي طلبي ، وما كان مفروض اخليه في موضوعك !! انا قلت تنفيذ الوقت عن طريق Time Interval لازم يكون مستمر ، لأن الحدث يقوم بعدة امور ، ومو ممكن اوقفه علشان تظبيط الكود في مكان آخر من البرنامج ، وخلال عمل ذلك النموذج ، اريد ان اعدل الكود في نموذج آخر ، بحيث اشتغل فيه كالمعتاد ولا يسبب لي مشكلة في كتابة الكود.