Eng.Qassim

وعليكم السلام .. تفضل نتيجة البحث في الكومبو اما مطلبك الثاني بأن تجمع رقمين في حقل واحد فهذا لا يجوز في الاكسس..انما يصح في الاكسل 14.accdb

راح يفتح عندك التقرير بعون الله انا افترضت ان الارقام نصوص.. اما اذا كان نوع الحقل رقم فلاتضع علامتي التنصيص If (Me.accode = "0008") And (Me.in12 = "2") And (Me.NV <> Me.nv2) Then DoCmd.OpenReport "h22", acViewReport End If

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

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

السلام عليكم.. كم عدد الاخصائيين؟وهل يكفي الاخصائيين لعدد الجلسات لكل الطلبة؟

اعتقد اني عملتها لك في المشاركة السابقة ..بس انت مارضيت على كل..شوف المرفق عملت لك نموذج للبحث منفصل systemJJ.accdb

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

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

🤣🤣 شكرا استاذ عمر على المعلومات ..

انا خادم باذن الله

وعليكم السلام اخي @ابو البشر هل هذا ينفعك ؟ مع تغيير اسماء النماذج Dim strForm As String Dim frm As Form Dim fc As Control Dim SS As String If Me.ComboName = "A" Then strForm = "FormA" ElseIF Me.ComboName = "B" Then strForm = "FormB" Else strForm = "FormC" End If Set frm = strForm For Each fc In frm.Controls If fc.ControlType = 104 Then Me.list_2.AddItem (fc.Caption) End If Next fc Set frm = Nothing Me.Requery

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

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

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

وعليكم السلام .. ابحث في المنتدى عن برنامج الصادر والوارد... فهناك الكثير مما يسرك ويلبي طلبك

هناك الكثير من المشاركات التي تشبه موضوعك لا اعلم ..ربما يفيدك هذا الموضوع والافضل ان ترفق قاعدة مبسطة لسؤالك

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

اضف هذا الكود عند الضغط على اضافة سجل DoCmd.GoToRecord , "", acNewRec Me.srch_card.Value = ""

تفضل اخي بتصحيح استاذ @jjafferr systemJJ.accdb

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

السلام عليكم. بصراحة لم تظهر المشكلة عندي..لكن طالما انك تظهر اسم صاحب الهوية المسجلة مسبقا فلاتحتاج ان تظهر بياناته ي النموذج وانما الانتقال لادخال رقم هوية اخرى استبدل جملة الكود السابقة بالتالي Undo 'DoCmd.FindRecord X Me.card.Value = "" Me.card.SetFocus Else: Exit Sub: End If DoCmd.RefreshRecord

اعتقد هذه المشاركة بتفيدك

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

العفو منك استاذي @الفلاحجى بسبب الانفلونزا لم انتبه انه يريد العمر بس حلوة الواحد يدخل حضانة وعمره 39 سنة 😂

بصراحة لا اقترب من الماكرو في الصورة ليست طريقة مثلى لكن قد تنفعك