محمد التميمي

استاذي الكريم لم تنجح الفكرة مازال يكرر

السلام عليكم طيب الله اوقاتكم اخواني الكرام لدي نموذج باسم ALLSalarys اقوم بتحديث التاريخ شهرياً من خلاله بعد توزيع الرواتب الى جدول Salary وبعدها تتغير ارقام الجدل حسب الشهر التالي وبعد تحديث التاريخ اقوم بنسخ سجلات جدول Salary الى جدول احتياطي باسم Speer من زر ( حفظ النسخة الشهرية ) وهذا الجدول يحتفظ بجميع الاشهر الى نهاية السنة المطلوب : عند نسخ الجدول من زر ( حفظ النسخة الشهرية ) اذا كان جدول الشهر منسوخ يرفض النسخ مرة ثانية والمعيار هو التاريخ ويعطي رسالة بان هذا الجدول تم نسخه هل تريد استبدال نعم او لا ويتم نسخ الجدول لمرة واحدة فقط . لان الكود الحالي الذي توصلت اليه يقوم بسخ جدول الشهر حتى لو تكرر لمرات عديدة اسف للاطالة عليكم مع شكري وتقديري لكم 33.accdb

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

السلام عليكم عند تحديث التاريخ لكافة السجلات دفعة واحدة في جدول Salary من خلال نموذج Form بواسطة استعلام التحديث UPDATE المتكون من جملة SQL يحصل ما يلي تظهر هذه الرسالة عند اغلاق النموذج يقوم الاستعلام بالتحديث بتاريخ اليوم وهذا مالا اريده المطلوب التحديث بتاريخ انا اختاره من النموذج ومن عنده فكرة افضل للتحديث فجزاه الله الف خير بمساعدتنا مع فائق الشكر والاحترام 243.mdb

تسلم يداك يابطل شكراً جزيلاً

السلام عليكم ممكن كود لادراج صوت التحذير من ويندوز عند فتح النموذج بحثت كثيراً ولم اجد الا لكد لملفات صوتية مرفقة وانا اريد صوة التحذير من نظام الويندوز مع الشكر والتقدير 77.accdb

وعليكم السلام ضع الكد في حدث عند الخروج If IsNull([اسم مربع النص]) Then MsgBox ("لاتترك الحقل فارغ ادخل بيانات") DoCmd.CancelEvent End If

وعليكم السلام تفضل صور متحركة.rar

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

السلام عليكم طاب مسائكم في الملف المرفق عندما اقوم بادخال سجلات جديدة في نموذج Personnel لاتظهر هذه السجلات جميعها في نموذج Salarys الخاص بالرواتب من المحتمل وجود خطأ في العلاقة او الاستعلام قال الرسول محمد (ص) (( نصف العلم لا اعلم )) جزاكم الله الف خير 88.accdb

بار الله بك

شكراً اخي واستاذي الفلاحجي الله يطول بعمرك بالخير والبركة

السلام عليكم اخواني الاعزاء هل يوجد خطأ في الكد المرفق الذي يقوم بطباعة مواليد محددة في التقرير من و الى يرجى التصحيح جعله الله في ميزان حسناتكم DoCmd.OpenReport "Table", , , "Newborns Between #" & Format$(Form_DateBetween.Text2, "yyyy") & "# And #" & Format$(Form_DateBetween.Text3, "yyyy") & "#" 454.accdb

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

من

بارك الله بك اخي الفاضل استاذ الفلاحجي فهمت السؤال خطأ لاني كنت على عجلة من امري مهماً بالخروج واعتذر للاخ ameer.iraq.93

وعليكم السلام اخي في المرة القادمة ارفق مثال بسيط ليتسنى للاخوة مساعدتك وليتم التعديل على المثال المرفق ويقولون لك ( تفضل ) ضع هذا الكود في (عند عدم الوجود في القائمة) من القائمة المنسدلة 'downloaded from A-Soft Channel on youtube On Error GoTo myError: Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("اسم الجدول الفرعي", dbOpenDynaset) If vbYes = MsgBox("هذا الفرع الذي اظفته جديد ليس من ضمن القائمة . هل تريد اظافته الى القائمة " _ & NewData & " ", _ vbYesNoCancel + vbDefaultButton2, _ "New اسم مصدر عنصر التحكم في الجدول الاساسي") Then rst.AddNew rst!اسم العمود في الجدول الفرعي = NewData rst.Update Response = acDataErrAdded Else Response = acDataErrContinue Me.اسم القائمة المنسدلة = Null End If leave: If Not rst Is Nothing Then rst.Close: Set rst = Nothing End If Exit Sub myError: MsgBox "Error " & Err.Number & ": " & Error$ Resume leave

تسلم يا أمير ياطيب بارك الله بك

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

السلام عليكم بعد اذن اساتذتنا الكرام الاخ mo81177 يمكنك الاستفادة من المثال المرفق لاني طبقته على احد برامجي وهذا رابط لشرح الدرس كامل من قبل الاستاذ عبد العاطي حمدان الموضوع بسيط يقف على استعلام وكد بسيط في زر الحذف بالتوفيق 48-bill.rar

بارك الله بك اخي الكريم هذا هو المطلوب شكرأ جزيلاً

حياك الله اخي واستاذي محمد ابو عبد الله شكراً على المرور عند اختيار اسم من نموذج المعرفون لا ينتقل الى سجل اخر وتظهر الرسالة في الصورة ادناه ولا يحفظ والسبب هو ان محل العمل الذي ظهر لنا مع الاسم في نموذج المعرفون لا ينزل في جدول Definers ويبقى حقل WrokPlace فارغاً وهذا سبب ظهور الرسالة وعدم الحفظ مع العلم انا كنت عامل نفس طريقتك وكان تحدث نفس المشكلة اسف على تاخري في الاجابة لان الكهرباء انقطعت 2003.rar

السلام عليكم صباحكم خير وعافية في نموذج المعرفون اريد عند اختيار اسم معين من القائمة المنسدلة للاسماء Definer ان يجلب معه عنوان مكان العمل Workplace المثبت في جدول Personnel مع الشكر 2003.mdb

شكراً أخي ابو ياسين فهمت اين اخطأ بارك الله بجهودك

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