محمد احمد لطفى

السلام عليكم ورحمة الله و بركاته فى هذا النموذج عندما سمحت بتكرار البيانات حدثت بعض المشاكل 1 - فى النموذج رقم و احد كرر البيانات عندم اختار محمد يأتى محمد مرتين بنفس الكود 1 مع انه لا يوجد الا محمد واحد برقم الكود 1 2 - فى النموذج رقم 2 عندما ابحث باسم ياتى الاسماء المتكررة أريد عندما أبحث باسم يأتى الاسم محمد مثلا كود1 و عندما ابحث بالاسم الاخر يأتى محمد كود 6 وجزاكم الله خيراً error.rar

فكرة رائعة (حفظ الصور بالـ ID الخاص بالموظف ) لان بالفعل بعض الرموز تعمل مشاكل جزاكم الله خيراً

المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path) حتى لا أعمل خلايا أخرى و مكان الصور فى ملف بجوار البرنامج

مواضيع جميلة وحلوة بس ايه علاقتها بفتح الصور على الرسام 😅

السلام عليكم و رحمة الله و بركاته أعمل بكود لفتح الصور على الرسام (Shell "mspaint.exe ""d:\photo\worker\" & [Worker] & ".jpg""", vbMaximizedFocus) المطلوب تغيير (d:\photo) الى مسار البرنامج باستخدام (CurrentProject.Path) وجزاكم الله خيرأ Photo.rar

شكراً يأستاذى / محمد ابو عبدالله

السلام عليكم و رحمة الله و بركاته فى هذا البرنامج مسار الصور الافتراضى هو (d:\Photo\Worker) أريد أن يتغير الى CurrentProject.Path أى يكون المسار (d:\Photo) و فى نفس الوقت أريد اضافة (\Worker\) فى الاستعلام على أن يكون التعديل على (PicFile: FileName("d:\Photo\Worker\";[Worker])) بحيث يتم عمل البرنامج فى أى مكان وجزاكم الله خيرأ Photo.rar

شكراً أستاذى

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

للرفغ

أستاذى @خالد سيسكو أولا أستخدم ويندوذ 10 ثانيا المفترض أن الخلية الاولى حرف æ و حرف أخر تحدث معه المشكلة å ممكن حضرتك تجرب الحرفين مع وضع صورة حرف æ فى بارتشن C المفترض أن يظهر فى خانة الصورة C:\æ.jpg و ليس C:\؟.jpg

السلام عليكم ورحمة الله و بركاته فى هذا المثال بعض الحروف عند استخدامها لا تظهر بشكل صحيح حيث المفترض أن يتم التأكد من الصورة من الكمبيوتر و لكن بعض الحروف تعطى علامة إستفهام فى الاستعلام يجب وضع الصوره فى بارتشن C وجزاكم الله خيرا a.rar

شكراً أستاذى @jjafferr

السلام عليكم ورحمة الله وبركاته عند الاستيراد من اكسيل تحدث المشكلة التالية و لكن فى الملف الاصلى يتم استيراد الملف و لا استطيع نقله الى برنامجى وجزاكم الله خيراُ استيراد.rar الملف الاصلى.rar

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

أستاذى @ابا جودى تم التجربة على اوفيس 2003 جائت رسالة ان هناك كائن غير موجود سأقوم غدا بالتجربة على اوفيس 2016 مع احضار رسالة الخطأ

سأقوم بالتجربة غدا إن شاء الله

علم على الثلاث خلايا بالماوس اذهب الى التنسيق الشرطى فى القوائم الاعلى سترى ماحدث

تفضل color.mdb

تفضل Forms!main!sub!filed.Setfocus

جزاك الله خيرا أستاذى

أستأذنك أستاذى @أبو عبدالله الحلوانى ممكن ممكن تنفذها لأنى معرفش أعمل دول 2- مع ازالة البرمترات 3- والغ تعليق الأكواد المعلقة داخل المودل. و لا يعنى ارجعها ذى الكود فى المشاركة الاولى مع تغيير ـ function الي sub

جزاك الله خيرا أستاذى سأقوم بتجربتها غدا على الشبكة و هل يمكن أن تكون البيانات فى الوحدة النمطية أيضا Call OpenServerConnection("\\corp-server\HostingFolder", _ "mydomain\myuser", _ "freddie123") و يتم منادتها فى النموذج مثل هذا الكود فقط Call OpenServerConnection()

أستاذى @أبو عبدالله الحلوانى الكود يعمل بالفعل و تم تجربته أنا و أستاذى @ابا جودى أريد وضعه فى وحده نمطية و يتم استدعائها فى النموذج بدلا من وضع الكود على الزرار

السلام عليكم ورحمة الله و بركاته فى هذا النموذج أريد ادخال الكود التالى وهو عبارة عن فتح جهاز اخر على الشبكة بواسطة اسم المستخدم وكلمة السر فى وحدة نمطية ليعمل من الزرار الذى فى النموذج عن طريق كود صغيير Dim NetworkObject As Object Dim FSO As Object Dim Directory As Object Dim Filename As Object Dim ServerShare As String Dim UserName As String Dim Password As String ServerShare = "\\corp-server\HostingFolder" UserName = "mydomain\myuser" Password = "freddie123" Set NetworkObject = CreateObject("WScript.Network") Set FSO = CreateObject("Scripting.FileSystemObject") NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password Set Directory = FSO.GetFolder(ServerShare) For Each Filename In Directory.Files Debug.Print Filename.Name Next Set Filename = Nothing Set Directory = Nothing Set FSO = Nothing NetworkObject.RemoveNetworkDrive ServerShare, True, False Set NetworkObject = Nothing وجزاكم الله خيرا من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً Ip.accdb