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

تم اضافة الكود فى الوحدة النمطية 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

هل هناك فكرة اخرى حيث أنه يتوقف ما بين 400 او 500 صورة ويعمل عند الضغط على الخلية التى توقف فيها

بالفعل level: Cons0819([issue date];[consum];4) لما بجمع cost + تسويات واقساط = رقم صحيح level + تسويات و اقساط = رقم صحيح و لكن عند جمعهما معا تحدث المشكلة

المطلوب سداده2016: [Cost]+[level]+[تسويات و اقساط] كهرباء 2019.rar

أستاذى @أبو إبراهيم الغامدي ممكن طلب صغير عند جمع المبلغ مع الرسوم والدمغات يكون الناتج 33415.33 وهو خاطىء حيث 334 هو المبلغ و الرسوم 15.33 عند جمعهما يصبح 349.33

للرفع

قد يفيدك هذا الموضوع

راجع هذا الموضوع

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

للرفع

ياريت ترفع مثال

لو مربطين مع بعض هايشتغل على الاتنين