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

شكراُ أستاذى @أبو إبراهيم الغامدي شكراً أستاذى @jjafferr جَعَله الله في موازين حسناتكم

أستاذى @أبو إبراهيم الغامدي وصدقني لم انظر إلى الاستعلام ولا البيانات التي فيه ولم أتوقع أنك تطلب حلا لإصدار 2007 ومابعده فعلا كنت أعمل على اصدار 2003 ثم الى 2016 و لم احذف 2003  تضمين الصورة كمصدر بيانات في 2007 ومابعدة غير مكتمل الخواص (غير ممكّن بالكامل) وإنما وضع لدعم النماذج المستمرة فقط.. ولا يمكن استخدامه إلا من داخل النموذج فقط.. يأتى السبب أنه لم يحدث معى مشاكل أعتقد بسبب اننى لم احذف 2003 والله أعلم ..., فأنت أعلم منى أن الكود الأخر أفضل حتى لا يحدث مشاكل فأستأذن حضرتك هل يمكن عمله فى كود واحد مثل المشاركة السابقة و يتبقى فقط عرض الصورة فى حدث فى الحال .  تحديد مسارة الصورة عن طريق الاستعلام باطريقة التي استخدمتها يصعّب عليك الأمر.. وكان من الأولى وضع مشار الصور في الجدول. هل ممكن حلاها بأن نضع نفس الامر فى القيمة الافتراضية للصورة فى جدول لقد دخلت الى عالم الاكسس بسبب صديق لى معى فى العمل يعمل جميع عمله عليه و لانى بفهم فى الكمبيوتر ...,أنا أيضا بدأت العمل عليه لأنه يساعدنى فى انهاء عملى بسلاسه فلا أعلم عنه الكثير و لكنى تعلمت هنا الكثير فجزاكم الله خيراً Private Sub Form_Current() On Error GoTo errresult Dim ErrImage As String Dim CurImage As String Dim ImageName As String ImageName = Dir(ImgPath & Me.Worker & ".*") ErrImage = ImgPath & "No.jpg" CurImage = ImgPath & ImageName Me.imgWorker.Picture = CurImage errresult: If Err.Number = 2220 Then Me.imgWorker.Picture = ErrImage Resume Next End If End Sub Private Sub Form_Load() ImgPath = "D:\Photo\123\" End Sub Private Sub Worker_BeforeUpdate(Cancel As Integer) Dim CurImage As String Dim NewImage As String Dim ImgExtention As String CurImage = Me.imgWorker.Picture ImgExtention = Mid(CurImage, InStr(CurImage, ".")) Debug.Print ImgExtention NewImage = ImgPath & Me.Worker & ImgExtention If Dir(CurImage) = "No.jpg" Then Me.imgWorker.Picture = CurImage ElseIf Dir(NewImage) <> "" Then If MsgBox(Dir(NewImage) & vbNewLine _ & "يوجد صورة سابقة بنفس الاسم.." _ & vbNewLine & "هل تريد تعديل الاسم فقط..", _ 1572868, "تنبيه") = vbYes Then Me.imgWorker.Picture = CurImage Else Me.Undo End If Else Name CurImage As NewImage Me.imgWorker.Picture = NewImage End If End Sub

الكود بيستخدم فى النموذج وممكن تستخدمه فى الاستعلام Me.id = المفتاح الاساسى عندك (المعرف) رقم العقد = اسم الخلية الجديده هيتم وضع الكود فيها سواء استعلام او نموذج

مش عاوز انقل الصورة دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية أستاذى @أبو إبراهيم الغامدي ممكن مساعدة

كده الكود الصوره بتكرر باسم جديد مش ده المطلوب دلوقتى انا بغير اسم الموظف فـ اسم صورة الموظف على الجهاز بتتغير ..., العملية دى بتم مربوطه بكود (فى الحال ) لو شلنا الكود (فى الحال ) اسم الموظف او اسم الصورة مش هايتغيروا المطلوب الكود فى الحال يتشال خالص و يتم دمجه مع الكود الأول فى خلية اسم الموظف أو ادخاله فى وحدة نمطية

للرفع

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يتم تغيير اسم صورة الموظف على الجهاز اذا تم تغييره فى النموذج هناك كود ( فى الحال ) وهو الذى يقوم بالتغيير المطلوب دمج الكود الموجود ( فى الحال ) مع كود ( قبل التحديث ) أو جعله وحدة نمطية وجزاكم الله خيراً Photo 2.rar

للرفع

بصراحة مررت عليه وكان متشابه مع السؤال

هذه طريقة لأستاذى جعفر داخل النموذج

صدقت أستاذى اللهم زيدك علما تنفع به نفسك وتنفع غيرك فى الخير

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يتم نقل جداول من جهاز الى جهاز على الشبكة و لكن عند تغيير الويندوذ أو لاي سبب كان يطلب يطلب الجهاز اسم المستخدم والباسورد فكيف يمكن تمريرها من خلال الاكسيس وجزاكم الله خيراً من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً Ip.rar

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

أستاذى العزيز @ابا جودى أولا جزاك الله كل خير هناك حالاتان 1 - اذا كان الملف غير متشير تأتى الرسالة التالية 2 - اذا كان الجهاز غير مفتوح يبطىء البرنامج مدة قصيرة و تأتى الرسالة التالية فالمطلوب اذا كان الملف غير موجود على الشبكة (غير متشير) او غير قادر على الوصول اليه تأتى رسالة ( التحديث غير متاح الأن )

السلام عليكم ورحمة الله و بركاته فى هذا البرنامج يتم التأكد من أن IP يعمل أم لا ولكن ما أريد تطبيقه هو التأكد من أن ملف قاعدة البيانات موجود على الشبكة و الهدف هو اذا كان الملف موجود يتم نقل بعض الجدول منه الى القاعدة اخرى حيث مكان الملف على الشبكة هوه "\\192.168.1.2\Pro\IP.mdb" وكود نقل الجداول DoCmd.DeleteObject acTable, "WorkerSub" DoCmd.TransferDatabase acImport, "Microsoft Access", _ "\\192.168.1.2\Pro\IP.mdb", acTable, "WorkerSub", "WorkerSub", False DoCmd.DeleteObject acTable, "Workstation" DoCmd.TransferDatabase acImport, "Microsoft Access", _ "\\192.168.1.2\Pro\IP.mdb", acTable, "Workstation", "Workstation", False و لا يتم النقل الا اذا كان الملف موجود و تظهر رسالة ( التحديث غير متاح الأن ) وجزاكم الله خيراُ Ip.rar

تفضل و لم اجربه SearchForText.zip

الحل Workertest.rar

بصراحة لا و لكن وجدت الحل سأرفعه بعد قليل جارى التجربة

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

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

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

تم التجربة و هو يعمل شكراً أستاذى

تم اضافة الكود فى الوحدة النمطية Function Make_Desktop_Shortcut() DB_Name = Application.CurrentProject.Name DB_Path = Application.CurrentProject.Path icon_Name = "Myicon.ico" icon_Path = Application.CurrentProject.Path icon_Name_Path = icon_Path & "\File Library\Fav Ico\" & icon_Name With CreateObject("WScript.Shell") With .CreateShortcut(.SpecialFolders("Desktop") & "\Utilities Hide Ico Minimze To SysTray.lnk") .TargetPath = DB_Path & "\" & DB_Name .WindowStyle = 1 .Hotkey = "" .IconLocation = icon_Name_Path .Description = "ابا جودى" .WorkingDirectory = DB_Path & "\" .Save End With End With End Function و تم اضافتها فى المايكرو autoexec Make_Desktop_Shortcut()

غريبة يعمل عندى

أستاذى @ابا جودى بعد اذنك لقد اضفت كود اضافة ايقونة على سطح المكتب لتشغيل البرنامج منها Utilities Hide Ico Minimze To SysTray.rar