أبوبسمله

جزاك الله خيرا معلمنا العزيز @jjafferr جعله الله فى ميزان حسناتك 💐 قد استعملت النسخه رقم 3 ع برنامج كنت اعمل عليه كان ثقيل جد وقد خف بعدها سوف اجرب النسخه الجديده واوفيكم بالنتيجه وان شاء الله تكون نتيجه ممتازه لانها من يد معلمنا العزيز انا اتبع هذا النمط بعد الاطمئنان لكل خطوه فى اى شىء اعمل عليه حتى ان حدثت مشكله احذفه واخد نسخه اخرى للعمل عليها جزاك الله خيرا وبارك الله لنا فيك وجميع اخوانى واساتذتى

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

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

حقل bar فى جدول farez سيتم تحديثه باى قيم لم ارى له حقول فالنموذج ؟ منين جت 13 ؟ بصراحه مش فاهم حاجه معلش فهمى ع قدى فهل تشرح بشىء من التفصيل والصور للتوضيح اكتر باستفاضه حتى نتمكن سواء انا او احد اخواننا واساتذتنا بتقديم المساعده بالتوفيق

المشكله الاولى لزر فتح شاشه اختيار الصور كان فى ترتيب المراجع الخطأ الثانى كان فى انك لم تسمى النمذج الفرعى بنفس الاسم table3 Set rst = Me.Table3.Form.RecordsetClone هل ستقوم بانشاء جدول لكل نوع قم بعمل جدول تكويد انواع الملفات وجدول واحد يتم ادراج كل السجلات فيها لكل نوع وفى الاستعلامات افرز وظبط ما تريده هناك هذا من رايى وان شاء الله اخوانا واساتذتنا يدون بارائهم بالتوفيق نظام الصادر والوارد السري معدّل(1).accdb

جزاك الله خيرا اخى @المهاجر ابو معاذ 💐 وان شاء الله اتفحصه غدا بعد العوده من العمل

جزاك الله خيرا اخى واستاذى @biskra 💐

وعليكم السلام ورحمه الله وبركاته عند تجربه المرفق للعمل عليه وجدت ان الحقل nfous لا يوجد له مصدر بيانات بالتوفيق

وعليكم السلام ورحمه الله وبركاته اخى الفاضل ما هى التعديلات التى قمت بها ؟ وما هى الخطوات التى قمت بالعمل بها لينتج لك الخطأ وضح لاخوانك واساتذتنا بالتفصيل وليس بالاختصار حتى يتثنى لاخوانك واساتذتنا المساعده بشكل افضل واسرع بالتوفيق

وعليكم السلام ورحمه الله وبركاته اخى الفاضل ارفق مثالا حتى يتثنى لاخوانك واساتذتنا تقديم المساعده لك بشكل افضل واسرع بالتوفيق

جزاك الله خيرا اخى واستاذى محمد ولكن هل تسمح لى بان اطلب ارفاق البرنامج مفتوح المصدر لنتعلم منه طالما قلت وجزاك الله خيرا تقبل حياتى ومرورى اخوك الصغير احمد

وعليكم السلام اتفضل هل هذا ما تريد ؟ Expr2: Val([n1])*100 function.accdb

اهلا ومرحبا بك اخى ومعلمى وشيخنا العزيز ابوخليل لم ارغب بالنزول ولكن رغبت بالنهضه به وتنبيهه للوضع الحالى بانه لن يتم تسجيل اى فروع اخرى فى نفس التاريخ وحلها بالترقيم التلقائى مفتاح اساسى او كما اشار اخى واستاذى العزيز خالد بعمل مفتاح اساسى مكون من حقلين اما حقل التاريخ ولاخر ترقيم او حقل التاريخ والفرع وانت قمت بالتعديل المناسب وبما اننى طالب علم فى مدرستكم وع قد حالى واتعلم منكم ومن اخوانى واساتذتى جزاكم الله عنا خيرا فارفق تعديل اخر بما اننا قد قمنا بالنزول وفى حدث قبل التحديث لحقل التاريخ اختر التاريخ وعند الخروج اذا كان موجود ستخرج لك الرساله وان لم يكن سينتقل للكمبو Private Sub date_BeforeUpdate(Cancel As Integer) Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("SELECT [تسجيل دفعات الصرف].* FROM [تسجيل دفعات الصرف];") rst.FindFirst "[تاريخ الدفعة]=#" & Format([تاريخ الدفعة], "mm/dd/yyyy") & "# " If rst.NoMatch Then Exit Sub Me.nam.SetFocus Else Do While Not rst.NoMatch MsgBox "هذا التاريخ مسجل من قبل" rst.FindNext "[تاريخ الدفعة]=#" & Format([تاريخ الدفعة], "mm/dd/yyyy") & "# " Loop rst.FindNext "[تاريخ الدفعة]=#" & Format([تاريخ الدفعة], "mm/dd/yyyy") & "# " End If Me.Undo End Sub بالتوفيق مساعدة_3 - Copy.accdb

انت مردتش على سؤالى ان شاء الله يساعد احد اخواننا واساتذتنا باذن الله بالتوفيق

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

بعتذر منك لعدم فهم طلبك بالتوفيق

ههههههه لم ارها الا لما الان بعد ردك كنت اقصد اذا جعلت التاريخ مفتاح اساسى فلن تستطيع ادخال نفس التاريخ لفروع اخرى جزاك الله خيرا اخى واستاذى العزيز وفيك بارك الله لاء انا قمت بجلب التاريخ المطابق للتاريخ والفرع بالنموذج وركز للمكتوب بالاحمر انت تريد عدم تكرار التاريخ لمن ؟

بعتذر عالنسيان اتفضل جرل ووافنا بالنتيجه Private Sub znam_AfterUpdate() x = Nz(DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[اسم الفرع]='" & Me.znam & "' and [تاريخ الدفعة]=#" & Format([zdate], "mm/dd/yyyy") & "# "), 0) If x = Me.zdate Then Me.zdate.Undo Me.Undo MsgBox "التاريخ مكرر" Else zdate.SetFocus End If End Sub اذا جعلت التاريخ مكرر فلن تستطيع ادخال نفس التاريخ لفروع اخرى بالتوفيق مساعدة.rar

احسنت وسهلت جزاك الله خيرا اخى واستاذى العزيز خالد 💐

وعليكم السلام اتفضل اخى ان شاء الله يكون ما تريد ونصيحه منى لى قبلك ابتعد عن الاسماء المحجوزه وابتعد عن تسميه الحقول والجداول والنماذج والتقارير والاستعلامات باللغه العربيه اجعل التسميات بالعربيه فى التسميه التوضيحيه فى حدث بعد التحديث لحقل الفرع وملحوظه اخرى قمت بالغاء المفتاح الاساسى من عالتاريخ واضفت حقل id ترقيم تلقائى Private Sub znam_AfterUpdate() x = Nz(DLookup("[تاريخ الدفعة]", "[تسجيل دفعات الصرف]", "[اسم الفرع]='" & [اسم الفرع] & "'"), 0) If x = Me.zdate Then Me.zdate.Undo Me.Undo MsgBox "التاريخ مكرر" Else zdate.SetFocus End If End Sub بالتوفيق مساعدة.rar

جزاكم الله خيرا اساتذتى بارك الله لنا فيكم 💐 متابع لاتعلم واستزيد مما علمكم الله من فضله وعلمه بارك الله لنا فيكم

السلام عليكم اتفضلى هل هذا ما تريديه ؟ انا قمت بادخال المعيار فالاستعلام الداخلى للتقرير لانى لا اعرف فى اى نموذج سوف يتم استدعاء التقرير بالتوفيق ايجار معدات للغير1.rar

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

ولا يهمك اتفضل DateDiff("m";[AGAM1];[AGAM2]) New_Ahmed_DateDiff1.accdb