essam rabea

الأخ warvin raviny ما المقصود بتشغيل باركود .. فإن كان المقصود هو إستعمال ذراع قارئ الباركود لإدخال الأرقام فى مربع النص فإن قارئ الباركود يقوم بالإدخال والنقل للمربع التالى تلقائيا أما إن كان الإدخال يدوى فأعتقد أنه لابد من ضغط إنتر ففى المثال الذى أرفقته أنت حتى عدد الأرقام المكونة للباركود غير ثابتة. هذا والله أعلى وأعلم.

الأخ الفاضل iibat ما نوع الأكسيس الذى تعمل عليه 32x ام 64x ?

أخى عبداللهM أعتقد أنه يتم نسخ الآداه أولا الى C:\Windows\SysWOW64 إذا كان ويندوز 64 بت أو الى c:\Windows\System32 إذا كان ويندوز 32 بت يتم فتح CMD كمدير (Run As Administrator) إنسخ الأمر التالى والصقه فى محرر الأوامر CMD regsvr32 C:\Windows\SysWOW64\DBPix20.ocx أو regsvr32 C:\Windows\System32\DBPix20.ocx إضغط إنتر أرجو أن يفيد

اللهم رب الناس .. أذهب البأس .. إشفِ أنت الشافى ..لا شفاء إلا شفاؤك .. شفاءٌ لا يغادر سقماً

اخى mhmadfarooq كلمة السر ايه او اعد الارفاق بدون كلمة سر عموما فى حدث on load للنموذج الرئيسى ضع تابع22.visible=false وفى حدث عند الضغط على زر البحث ضع فى آخر الكود تابع22.visible=true لعله يفيد

من فضلك أشر بتمت الاجابة

أخى princmode جرب هذا عسى يفيد New Microsoft Access Database (2).accdb فقط قم بتغديل المسارات فى مربعات النص بين الأقواس

الأخ hassan omara لفتح This Pc استخدم Shell "C:\Windows\explorer.exe shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus ولفتح Network Connection Shell "C:\Windows\explorer.exe shell:::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus ارجو ان يفى بالغرض

الأخ الفاضل ahm2019 إلق نظرة على المرفق لعله المطلوب بالتوفيق Database2.zip

نظراً لأن موضوع السؤال كان عن تحويل إستعلام الى إكسيل وقد تمت الإجابه عليه .. فيرجى إدراج موضوع جديد بسؤالك الآخر وإن شاء الله تجد الإجابة.

وظيفة Echo هى إيقاف تحديث الشاشة أثناء تشغيل الماكرو

Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

ابوعبدالله_1972 جرب هذا الكود عسى أن يفى بالمطلوب Dim queryName As String Dim fileName As String queryName = "sales" fileName = Application.CurrentProject.Path & "\" & queryName & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

الأخ الفاضل ابوصلاح مع أنى مش فاهم قوى بس هذه محاولة أخرى على ما تقدم به أخى .. ابو عارف .. اجر وظيفي.rar

أخى ابوعبدالله_1972 ما هو الكود الذى تستخدمه للتحويل الى إكسيل وماذا تحول هل تحول تقرير أم إستعلام وماهو إصدار نسخة الأوفيس لديك .. 2003 - 2007 - 2010 - 2016 - 2019 ؟

1000 مبروك أخى الفاضل محمد سلامة

أخى الفاضل حربي العنزي هل هذا هو المطلوب؟ Prog121.rar

أخى الفاضل nogom يجب أن يكون هناك مجلد بإسم "الكميات بالمخزن" فى مسار قاعدة بياناتك لكى يخزن الملف به Dim reportName As String Dim fileName As String reportName = "إسم التقرير" fileName = Application.CurrentProject.Path & "\" & "الكميات بالمخزن" & "\" & reportName & ".pdf" DoCmd.OpenReport reportName, acViewPreview, , , acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo

الأخ الكريم alameer_3320 جرب ما يلى عسى أن يكون المطلوب

هل هذا ما تريد؟

أخى الفاضل qathi نظرا لأن نوع الحقل RepairType نصى فيجب وضع الارقام الخاصة به بين علامتى تنصيص Expr1: IIf([RepairType]="1";"صيانة";IIf([RepairType]="2";"برمجة";IIf([RepairType]="3";"صيانة وبرمجة";""))) بالتوفيق عفوا أخى kha9009lid لم أدرك انك قمت بالاجابه

عدل اسم الملف فى الكود وملف الاكسيل ليكون : Sheet.xlsx

أين إجابة أسئلة أخى جعقر !!! 😮

الأخ الفاضل عبدالرحمن هاشم شكرا جزيلا للتوضيح .. بارك الله فيك