ازهر عبد العزيز

ولا اروع لكن المشكلة عندي اصبح الكود يتوقف هنا rs.FindFirst "[B] = '" & stry & "'"

الاستاذ الحلبي وماذا بشان Dim stry As String هل اجعلها DIM As Integer

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

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

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

وعليكم السلام عليكم ورحمة الله وبركاته تفضل لعلة المطلوب المشاريع.accdb

السلام عليكم في النموذج Ftime احتاج 1-عند ادخال السيريل ولم يكن للموظف سجل في الموظفيين اظهار رسالة تنبية والتراجع 2-عند ادخال السيريل للموظف ولم يكن موجود حاليا في المؤسسة يظيف بشكل تلقائي 1 الى الحقل num_in ثم ينتقل الى سجل جديد 3-عند خروج الموظف ودخولة مرة ثانية وعند اختيارة بواسطةالسيريل في سجل جديد يزداد رقم دخولة في الحقل num_in في سجل دخولة السابق ثم ينتقل الى سجل جديد ملاحظة يتم ادخال السيريل بواسطة قارئ الباركود TIME.accdb

السلام عليكم احتاج تحويل هذا الكود من نصي الى رقمي اي لو كان الحقل B رقمي وليس نصي If DCount("*", "ld", "idlh=" & Me.idlh & "and B='" & Me.B & "'") > 0 Then Dim stry As String stry = Me.B Me.Undo Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[B] = '" & stry & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End If الى رقمي

انا قطرة في بحر علمكم اساتذتي المبدعيين

وسام يعلق على صدري شكرا جزيلا دكتور

اخي الامر بسيط وضعت كود في حقل الدليل في حدث عند التركيز بالتوفيق

وعليكم السلام توضيحnn.rar

وعليكم السلام ورحمة الله وبركاتة dalil.accdb

واخيرا اختر اللغة العربية لاي بلد عربي ملاحظة هذة الخطوات للوندوز 8 لن تتختلف عندك كثيرا سواء ونووز 7 او 10 ولاتسى الضغط على ok وان شاء الله تحل المشكلة عندك بالتوفيق

من رخصة استاذي ومعلمي الفلاحجي وايضا بالامكان من ادوات تصميم النموذج واختار مربع الاختيار

وعليكم السلام برنامج-التقرير-اليومي (1).rar

بالتوفيق

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

بالتوفيق يا اخي

وعليكم السلام ورحمة الله وبركاتة test.accdb

وعليكم السلام ورحمة الله وبركاتة تفضل اخي الكريم طبعا للامانة الاكواد للاساتذة المبدعين @jjafferr , @ابو تراب with_pass_for_tables.rar

موضوع شيق والشكر الى الاستاذ أبو إبراهيم الغامدي للتوضيح الرائع

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

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