محمد التميمي

وعليكم السلام تفضل صور متحركة.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

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

السلام عليكم اخواني واساتذتي الكرام كيف الاحوال عندي في الجدول خانة باسم رقم الموبايل وبياناتها في الجدول رقم كيف لي ان احدد عدد الارقام في هذه الخانة بـ ( 11 ) رقم فقط واذا زاد او قل تظهر رسالة تحذيرية بعدم القبول ولا ينتقل الى السجل التالي مع فائق الشكر والاحترام 45.mdb

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

السلام عليكم اخواني كيف الاحوال ارجوا ان تكونوا في خير وعافية اخواني الكرام محتاج عمل كد يقوم بجلب اسم قطعة الغيار من الجدول ويعرضها في النموذح في مربع النص w1 بمجرد كتابة رقم القطعة بمربع النص N1 واكن لكم من الشاكرين piece.rar

برنامج يستحق التقدير بارك الله بك

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

السلام عليكم اخواني طلبي هو كا ما اختاره من القوائم يدرج في جدول بيانات الافراد