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

السلام عليكم ورحمة الله و بركاته فى هذا النموذج يتم نقل جداول من جهاز الى جهاز على الشبكة و لكن عند تغيير الويندوذ أو لاي سبب كان يطلب يطلب الجهاز اسم المستخدم والباسورد فكيف يمكن تمريرها من خلال الاكسيس وجزاكم الله خيراً من فضلكم ليس هناك داعى لعمل اقتباس عند الرد فهذا يقوم بدوره بتشتيت المطلع والباحث عن نفس الموضوع مستقبلاً 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

افادك الله وزادك علمك

وفقكم الله برنامج جميل

جزاكم الله خيراٌ و جعله فى ميزان حسناتك

أستاذى @أبو إبراهيم الغامدي عندما اضفت Option Explicit الى النموذج الخاص بى توقف عمل أكواد كثيرة لجأت الى مسح أمر أمر الا أن توصلت الى أنه هو السبب هل يمكن دمج D:\Photo\123 دمجها مع الكود وابعادها عن ( عند التحميل ) لأن هناك الكثير من الاوامر و الامر فى الحال لا يتم تغيير اسم الصورة اذا مسحته هل يمكن دمجه ايضا بعد التحديث أنت أستاذى و أعلم منى أريد فقط أن لا يحدث مشاكل أثناء العمل الامر لا يتوقف عن الموظفين فاننى اعمل على نموذج ادخال دفع اليكترونى و اربط الصورة برقم الدفع الاليكترونى فيحدث احيانا ان اكتب رقم دفع مكان رقم دفع او تعديل على رقم الدفع أو حذفه فعند حذف الاسم نهائى حتى عن طريق الخطأ يتم حذف الاسم من الصورة و تم حلها عن طريق أن الكود يعمل اذا كانت الخليه غير فارغة و جزاك الله خيراً على سعة صدرك

أستاذى @أبو إبراهيم الغامدي لقد رجعت الى الكود الاول لأنه أفضل و قمت بعمل بعض التعديلات و لكن الأن عند تغيير الاسم باسم موجود تأتى رسالة ان الصورة موجودة و يرجع الى الاسم السابق ارجو من حضرتك تغييرها الى الرسالة التى بالكود التانى تغيير الاسم فقط حاولت كثيراً ولكنى فشلت 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 مرفق الملف الاخير بعد التعديل وجزاك الله كل خيراً Photo.rar

شكراُ أستاذى @عبد اللطيف سلوم تم عمل استعلام جديد وربطه بتاريخ الجواب و تم منع التكرار أعرف أنا دالة Dlookup تجلب البيانات فلم استخدمها استخدمت DCount test5 (1).rar

للرفع

للرفع

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

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

السلام عليكم ورحمة الله و بركاته أريد عدم النقل الاسم من البحث اذا كان مكرر فى نفس الجواب و لكن اذا كان جواب جديد يتم النقل أى ان ينقل مرة واحدة وجزاكم الله خيراً test5.mdb