saffar

اخ @Foksh المرفق مره ثانية بالمسميات داخل الجدول اخ @عمر ضاحى خليت الكود في استعلام لم يعمل معي TT.accdb

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

السلام عليكم عندي استمارة لتقييم المعلمين واحتياجاتهم التدريبية واحتاج للمساعدة في استكمالها اختيار القسم ثم المعلم وبعد ادخال البيانات طباعتها لكل معلم او لكل قسم ان امكن وتقرير اخر حسب المؤشر لحميع المعلمين Eval 2023-1.xlsx

بحثت قبل المشاركة ووجدت مشاركة الاستاذ جعفر شامخة بين النتائج لكن طاري مختلف حاولت اعمل مثل الإطار الشفاف ما عرفت ش

السلام عليكم حاول اضع صور داخل الدئرة لكن تظهر بشكل مربع هل في طريقة ان تظهر الصور في الدائرة card.accdb

اشكرك اخي @lionheart لكن في اختلاف في الشيت الي في المثال انا لست محترف في الكودات هل يمكن التعديل على نفس المثال

كيف يتم ربط الاستمارة لجميع المدرسين

السلام عليكم عندي استمارة تقييم معلمين كيف ربطها بقاعدة بيانات الاسماء يتم اختيار القسم واسم المعلم وعند ملئ الاستمارة يتم تخزين التقييم eval.xlsx

نفس المشكلة يعطي تعارض في جميع الصفوف على نفس الملف ونفس المعادلة الاخيرة

tt.xlsx مرفق الملف

اشكرك جزيل الشكر اخي @دروب مبرمج البرنامج يعمل بالشكل المطلوب سلمت يداك بس شلون الغي #Error

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

شكرا استاذ كريم الغريب اني لما طيفت المعادلة على البيانات لم تضبط

السلام عليكم كيف اكتب كلمة (تعارض) امام الصف اذا كان في تفس التاريخ ونفس الوقت conflict.xls

اسعد الله صباحك @ابوخليل شكرا على افكارك الجميلة 🌹 احببت ان اوضح ان الكود ليس لي انما لاحد الاخوة في المنتدى وهو مثال لما اريد تطبيق الفكره والتعديل عليه فكرتي التعامل في الشاشة كلها باستخدام الازار يكون الاستعلام على طالب واحد وليس الصف باكملة اذ كل طالب يسلم الكتاب او جميع الكتب على حده في اوقات مختلفة هذه المحاولات للبرامج الصغيرة لخدمة لابنائنا الطلبة في انتظار الاخوة للمساعدة في بناء الفكرة

احسنت ابوخليل لا تبخل علينا في مثال اذا امكن 🌹

السلام عليكم اخواني الاعزاء عندي فكرة عمل نموذج استلام وتسليم الكتب المدرسية للطلاب لكن عن طريق شاشة تبحث عن رقم الطالب وتعرض الكتب الخاصة به على شكل ازرار وعند النقر على الكتاب يتم تسجيل تاريخ التسليم والعكس عن الاستلام لكني لا اعرف كيف تطبق هذه الفكره مرفق محاولة قاعدة بيانات اذا احد عنده فكره تكون انطلاقة للموضوع sample.accdb

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

الاخ @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 مره واحد بدل ملف ملف