سعيد صواب

حياك الله ضعه تحت زر امر مثلا .. مع انه ليس جواب على سؤالك كما قلت انت . بالتوفيق

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

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

حياك الله اخي الق نظرة على هذا الموضوع http://www.officena.net/ib/topic/66570-التاريخ-الغير-موجود/ بالتوفيق

حياك الله اخوي احمد بنفس الطريقة في الجواب الثاني احفظ القاعدة في مجلد مثلا واعمل لها اختصار على سطح المكتب وقم بتغيير ايقونة القاعدة من خلال الإختصار او shourtcut g الموجود على سطح المكتب وللعلم بحثت فلم اجد طريقة لتغيير ايقونة قاعدة البيانات نفسها مباشرة. * وللعلم والفائدة المعلومة التي تكررت اثناء بحثي .. هي انك لو عملت تغيير لأيقونة القاعدة مباشرة فكأنك تقوم بتغيير الإمتداد من mdb مثلا الى ico وتصبح تابعة لذلك الإمتداد . اي انها تصبح ايقونة مثلا .. لو فيه احد عنده فكرة اخرى ممكن يفيدنا . بالتوفيق

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

حياك الله بالترتيب خيارات اكسس ... قاعدة البيانات الحالية ... رمز التطبيق ... تختار صورة تكون بإمتداد .ico وهنا رابط لأحد مواقع الأيقونات . http://www.iconarchive.com/ وهنا التعديل عن طريق الكود Dim db As Database Set db = CurrentDb ' هنا الأيقونة موجودة في مسار قاعدة البيانات ' ssab هو اسم الأيقونة db.Properties("AppIcon").Value = CurrentProject.Path & "\ssab.ico" ' هنا في حال رغبت في استخدام الايقونة للتقارير والنماذج تصبح القيمة true والعكس db.Properties("UseAppIconForFrmRpt").Value = True Application.RefreshTitleBar بعد ان يتضح المطلوب امسح الشرح . بالتوفيق

حياك الله اخي * لا يوجد شئ اسمه نموذج التقرير ... فيه نموذج وفيه تقرير وكل منهم مختلف عن الآخر . قمت بتعديلات كثيرة واهمها تسمية الحقول .. وكذلك الكائنات الجداول والتقارير والنماذج شاهد المعيار في مصدر بيانات النموذج والتقرير .. نصحية استخدم التسميات باللغة الإنجليزية ليسهل عليك التعامل معها مستقبلا بالكود . هنا صورة توضح طريقة التسمية. شاهد المرفق بالتوفيق export database.rar

ومشاركة مع الأستاذ السيد جمال هنا اعدادات الوهتميل hotamil Set emailObj = CreateObject("CDO.Message") 'بريد المرسل emailObj.From = "xxx@hotmail.com" ' العناوين المراد الإرسال لها emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com" emailObj.Subject = "عنوان الرسالة" emailObj.TextBody = "نص الرسالة " 'emailObj.AddAttachment "c:\windows\win.ini" Set emailConfig = emailObj.Configuration emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" 'Exclude the following line 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com" ' هنا تضع بريد الهوتميل وكلمة المرور emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا" emailConfig.Fields.Update emailObj.Send If Err.Number = 0 Then MsgBox "Done" بالتوفيق

جزاك الله كل خير استاذ جعفر نعم بحثت كثيرا ووجدت مايمسى بال CDO لإرسال الإيميل دون الحاجة للاوت لوك . Collaboration Data Objects وهذا هو الكود بإعدادات الهوتميل hotmail Set emailObj = CreateObject("CDO.Message") 'بريد المرسل emailObj.From = "xxx@hotmail.com" ' العناوين المراد الإرسال لها emailObj.To = "xxxx@gmail.com" & ";" & "xxxx@yahoo.com" & ";" & "xxxx@hotmail.com" emailObj.Subject = "عنوان الرسالة" emailObj.TextBody = "نص الرسالة " 'emailObj.AddAttachment "c:\windows\win.ini" Set emailConfig = emailObj.Configuration emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com" 'Exclude the following line 'emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@hotmail.com" ' هنا تضع بريد الهوتميل وكلمة المرور emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "كلمة المرور هنا" emailConfig.Fields.Update emailObj.Send If Err.Number = 0 Then MsgBox "Done" وشكرا مرة اخرى على المرور.

جزاك الله خير استاذ السيد جمال فكرة حلوه

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

حياك الله الموضوع يسير ان شاء الله والمنتدى ملئ بمثل هذا السؤال ولكن ارفق مثال للتطبيق عليه * حاول ان تحفظ المثال بتنسيق 2003 ليتمكن الجميع من مشاهدته. لإختلاف النسخ المستخدمة بين الأعضاء الكرام. بالتوفيق

حياك الله http://www.officena.net/ib/topic/68313-ربط-جدول-جديد-بقاعدة-موجودة/#comment-444315 بالتوفيق

حياك الله اخي الكريم الأفضل ارفاق مثل لنختصر الموضوع بالتوفيق

حياك الله اعمل استعلام وفي حقل تاريخ اخر معاملة اعمل المعيار التالي date()+30 بالتوفيق

حياك الله اخي الكريم ماهو الهدف النهائي من كل هذا بالتوفيق

حياك الله بالترتيب من خصائص القائمة ,,, بيانات ,,,التزام بالقائمة = نعم ======= السماح بتحرير القائمة = لا اضافة الى ذالك هنا سطر لو حاب تظهر رسالتك الخاصة بدلا عن رسالة الخطاء تبع الأكسس ضع هذا السطر في حدث " عند عندم الوجود في القائمة " MsgBox "فضلا... اختر من القائمة", vbCritical, "تنبيــــه" Response = acDataErrContinue بالتوفيق

السلام عليكم نعم استاذ عبد الفتاح به محادثات ومكالمات صوتيه ..

حياكم الله اخواني المرفق لم يفتح لدي لإختلاف الإصدار ولكن حبيت اشارككم بفكرة. انا اقترح اضافة حقل تاريخ لإضافة اخر قيمة ومن خلالة نستخدم دالة Dmax لآخر تاريخ . دالة Dlast لا تحضر نتائج صحيحة دائما وتعتمد على عوامل كثيرة . بالتوفيق

السلام عليكم شاهد الفيديوهات التالية فيها شرح مطول .. او ابحث في المنتدى عن حساب العمر . https://www.youtube.com/watch?v=iJFYtqi-9sQ https://www.youtube.com/watch?v=WebijvzQXDk بالتوفيق

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

حياك الله استاذ علي يمكنك عمل تقريرين احدهما لطالب معين والآخر لشعبة معينة ونضع الشرط في الاستعلام مصدر التقرير هذا مثلا للطالب forms!parent!student وهذا مثلا للشعبة forms!parent!Shoaba بالتوفيق

بارك الله فيك اخي الكريم وائل وجزاك الله كل خير

حياك الله اخي الكريم اضغط المثال وارفقه بالتوفيق