saffar

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

الاخ @Ezril رمضان كريم علينا وعليكم بما انك تحتاج تأكيد ما اذا اني نسخت الملف من مشاركة الاستاذ @أبو إبراهيم الغامدي ونسبتها لغيره من مواقع اجنبية اليك اخي العزيز رابط الموقع ( اذا القوانين تسمح بادراج عناوين خارجية) access-programmers.co.uk/forums/threads/generic-office-document-viewer.297837 وتاريخ الموضوع 2018 بينما الموضوع في هذا المنتدى 2022 ويمكنك مقارنه الكود ايضا في الاثنين تحياتي وتقبل الله منا ومنكم صالح الاعمال

السلام عليكم عند ملف من احد المنتديات الاجنبية يستعرض الملفات بعد اختيار المسار وشغال تمام احببت ان اعدل عليه بحيث يستعرض جميع الملفات في مجلد او مسار في قائمة - بحيث بمجرد النقر او التنقل بالماوس على اسم الملف يستعرضه بدلا من كل مره اختار المسار واختار الملف Viewer.accdb

عزيزي ارفقت الملف سابقا وسارفق الملف بصيغة xlsx st.xlsx

I tried to modify the code to show these two numbers in above fields it didn’t work

الحقلين في company and job title

شكل البطاقة بالحقول حطيت الارقام في خانة company and job title لان اذا اضيفت في خانة ارقام الهواتف لا تظهر في برنامج Outlook للموبايل ( تحايل ) ----------- ** حصلت هذا الكود شغال لاضافة جميع جهات الاتصال او البطاقات الى برنامج outlook Sub OpenSaveVCard() Dim objWSHShell As IWshRuntimeLibrary.IWshShell Dim objOL As Outlook.Application Dim colInsp As Outlook.Inspectors Dim strVCName As String Dim fso As Scripting.FileSystemObject Dim fsDir As Scripting.Folder Dim fsFile As Scripting.File Dim vCounter As Integer Set fso = New Scripting.FileSystemObject Set fsDir = fso.GetFolder("C:\vcards") For Each fsFile In fsDir.Files 'original code 'strVCName = "C:\vcards\" & fsFile.Name 'Zeda's fix for spaces in filenames strVCName = """C:\vcards\" & fsFile.Name & """" Set objOL = CreateObject("Outlook.Application") Set colInsp = objOL.Inspectors If colInsp.Count = 0 Then Set objWSHShell = CreateObject("WScript.Shell") objWSHShell.Run strVCName Set colInsp = objOL.Inspectors If Err = 0 Then Do Until colInsp.Count = 1 DoEvents Loop colInsp.Item(1).CurrentItem.Save colInsp.Item(1).Close olDiscard Set colInsp = Nothing Set objOL = Nothing Set objWSHShell = Nothing End If End If Next End Sub st.rar

طيب سوف ارفق الملفات سؤال اذا تم انشاء ملفات vcard كيف يتم تصدير جميع ملفات vcard الى Outlook مره واحد بدل ملف ملف

* تحويل الملف الى csv File - Save as - CSV UTF-8 (comma delimited) * استخدمت برنامج LiberOffice نفس الخطوات وعند التخزين يعطيك خيار اختيار UTF-8 * تحويل الى جهات اتصال Vcard استخدمت برنامج systool excel converter * استخدمت بعد المفات في منتدى اوفيسنا لتحويل اكسيل الى vcard

تفضل المرفق Book.rar

السلام عليكم في الحقيقة بحثت كثيرا في المنتدى وعلى الانترنت وجريب الكثير من الطرق ولم اصل الى حل مشكلة اللغة العربية بعد تحويل الملف من اكسل الى جهات اتصال vcard ومن بعدها استراد الى outlook هن المكشلة اللغة العربية تظهر بالرموز استخدم office 365 اعداد اللغة في الجهاز اللغة العربية مع الدولة يتم تحويل ملف اكسيل الى csv بدون مشاكل - استخدمت برنامج systools يتم تحويل جهات الاتصال vcard بدول مشاكل تضهر المشكلة عند استيراد جهات الاتصال vcard الى outlook

الحالي المطلوب

زاد الله فضلك @ابوخليل كانه لم يتغير شي عن الملف الاصلي اي ان المطلوب اختيار اكثر من حصة قبل اخيار المخالفة

في الحقيقة هي تقريبا مخالفة واحده فقط الهروب والإجراءات لهذه المخالفة

احسنت استاذي الفاضل @ابوخليل ومنكم نستفيد لا شك ان كلامك صحيح اذا اعدت النظر في الجداول احتمال ان يخلص العام الدراسي وانا بعدي ما خلصت البرنامج 😊 لان خبرتي على قدي

الله يعلم اني كنت اردت ان اعطيكم اثنينكم ولكن الموقع يسمح لشخص فقط وهذا لطفا منك اخي @Ahmed_J وحق @AbuuAhmed محفوظ عندي وعند الله اذا في مجال تتعدل عدلها لاني ما اعرف كيف

السلام عليكم في المرفق المخالفات اذا حددت حصة واحد يعمل بشكل صحيح اما اذا حددت اكثر من حصة تختفي الخيارات المخالفة المطلوب اختيار حصة او اكثر وان تظهر الحصص المختارة في النموذج الفرعي بالشكل هذا مثال الثانية-الثالثة-الرابعة Stu.mdb

شكرا استاذ احمد الله يعطيك العافية والشكر للاستاذ ابو احمد ايضا

الكود يعمل على التقرير report0 فقط بينما المطلوب ان يعمل على اي تقرير في القائمة

السلام عليكم ابو احمد البحث يعمل لكن التقرير لا يعمل - لا يعرض نتائج البحث فقط انما يعرض جميع البيانات

السلام عليكم مساعده في البحث واختيار التقرير من القائمة لا يعملان searching.accdb

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

نعم تم التعديل للعمود واشتغل الكود في السؤال طلبت ( حبذا يكون تصفية للسطر عند الكتابة في البحث ونسخة مما يقلل الخطأ) اذا ما في امكانية لا مشكلة

شكرا اخي Lionheart تظهر رسالة No Found