أبوبسمله

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

مشاركه لاخى @عبدالقدوس48 جزاه الله خيرا
لعل هذا ما تريد
 
مثال.accdb

بسم الله
اتفضل اخى @ازهر عبد العزيز ان شاء الله يكون تمام
Elements.accdb

اتفضل اخى @ازهر عبد العزيز
ان شاء الله يكون ما تريد
بالتوفيق ان شاء الله
xy1.accdb

وعليكم السلام اخى @حسين العربى
حاجه كده ع قدى ان شاء الله تظبط معك
شوف الجدول هناك سجلان بتوقيات مختلفه اللى هيظهر فالاستعلام السجل الاول المنتهد المده
جرب ووافنى بالنتيجه
بالتوفيق ان شاء الله
ادخال بيانات البطاقه المدنية.rar

السلام عليكم
اتفضل اخى @husseinharby
مشاركه لاخى العزيز @Khalid Jnb جزاه الله خيرا
وجزاه الله خيرا من علمنى هذا الكود وشفاه الله وعافاه شفاء لا يغادر سقما
بالتوفيق اخى حسين
New Microsoft Access Database.rar

وعليكم السلام اخى @husseinharby
هل هذا ما تريد ؟
 
New Microsoft Access Database.rar

وعليكم السلام اخى @ازهر عبد العزيز
اتفضل ان شاء الله يكون ما تريد
بالتوفيق ان شاء الله
Root15.accdb

ولا يهمك اخى
جرب الان ووافنى بالنتيجه
date1.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا
اتفضل اخى استخدم الكود التالى
Me![img].Picture = Nz(DLookup("figura", "BASIC_DATE", "name='" & [name] & "'"), "") بالتوفيق ان شاء الله
New_Microsoft_Office_Access_Application.mdb

وعليكم السلام
هل هذا ما تريد ؟
 
__assa5.rar

وعليكم السلام اخى ازهر
فى حدث عند الخروج num 2
اكتب الكود التالى
Me.num3 = Me.نص17 بالتوفيق ان شاء الله اخى ازهر
 
test.accdb

وعليكم السلام
مشاركه مع اخى خالد @Khalid Jnb جزاه الله خيرا
هل تقصد هكذا
جرب ان لم يكن ارفق مثال لما لديك واشرح ما تريد واخوانك واساتذتنا لا يقصرون
IIf([d] Between #01/04/2020# And #30/04/2020#;50;0) بالتوفيق ان شاء الله

اخى @فايز..
ع ما اعتقد لان كانت العناصر منضمه لقد جعلت الحقول غير منضمه 
جرب الان ووافنى بالنتيجه وان شاء الله احد الاخوه او اساتذتنا الافاضل يشاركنا
بالتوفيق اخى
Aa1_Library.rar

اها معلش اخى فايز
عدله من Me.ZTeacher2.Column(1)  الى Me.ZTeacher2.Column(0)
Private Sub Command14_Click() On Error GoTo Err_Command14_Click Dim stDocName As String Me.Visible = False ' stDocName = "مجموع المصروفات لكل معلم" ' DoCmd.OpenReport stDocName, acPreview DoCmd.OpenReport "مجموع المصروفات لكل معلم", acViewPreview, , "Teacher = '" & Me.ZTeacher2.Column(0) & "'" Exit_Command14_Click: Exit Sub Err_Command14_Click: MsgBox Err.Description Resume Exit_Command14_Click End Sub بالتوفيق اخى فايز

وعليكم السلام
اخى حسين
عند الفتح ضغط نعم لعرض الاستعلام ولا لعدم العرض
ثم قم بافراغ جدول details وافتح الفورم تانى
ووافنا بالنتيجه
تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
Acopy.rar

وعليكم السلام
اخى فايز ان كان يعمل معك بصوره طبيعيه فتمام
ان كان بيظهر لك مشاكل فقم بعرضها
بالتوفيق اخى فايز

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

وعليكم السلام
اتفضل ان شاء الله يكون ما طلبت
بالتوفيق ان شاء الله
Lab 2020 OK.accdb

السلام عليكم
اخى حسين
اقتبس لك جزء من شرح اخى وحبيبى ياسر ابو البراء فى منتدى الاكسيل جزاه الله خيرا
لتوضيح فائده المتعيرات وان شاء الله يفيدك
نبدأ الحلقة :
هنرغي النهاردة عن المتغيرات .. لاحظت في كل الشروحات اللي شفتها إن درس المتغيرات بيكون دمه تقيل ورخم ؛ لأن كله بيكون غالبا نظري أكتر منه عملي وبيكون في درس واحد مرة واحدة . إحنا لأننا اتبعنا أسلوب مختلف تماما هنتكلم عنه واحدة واحدة متغير متغير ، وبالأمثلة والتطبيق ، ومش مهم الكم بقدر الكيف (ومحدش يفهم الكيف دي غلط)
نفهم الأول يعني ايه متغير .. يعني مش ثابت (صح يا حسام .. حد عنده إجابة تانية كله ساكت يعني مفيش غير حسام اللي عارف ..)!
 
عشان نقدر نخزن الأرقام والنصوص دي لازم نستعين بالمتغير .. ييجي المتغير ويقولنا تحت أمرك يا فندم أنا في الخدمة ، وطبعا الذاكرة بردو متأخرتش عننا في تقديم المساعدة.
 
بس المتغير له شروط عشان نقدر نستفيد منه ..أولاً عايز حاجة تسنده عشان بيتكسف يقف لوحده فبنستدعي كلمة اسمها Dim ، ومن غير الكلمة دي يبقا المتغير وحيد ومش هيرضى يساعدك (هي دي اللي بنعلن بيها عن المتغيرات)
 
ثانياً بنديله اسم تمام .. فاكرين شروط تسميه الإجراء الفرعي تقريبا نفس شروط تسمية المتغير .. يعني مينفعش يبدأ برقم لكن ممكن الرقم ييجي بعدين في الاسم بس في أول الاسم لا .. وممنوع الحروف الخاصة زي علامة # $ % ^ & * @ عموما لو فيه حاجة غلط محرر الأكواد هيظهر لك رسالة Syntax error تعرف إن فيه حاجة غلط..
 
دا كان الشرط التاني للمتغير إن يكون له اسم ، تالت شرط اللي هو نوع المتغير ( ودا ضروري بس اختياري )
فزورة دي ..>> أيوا هو اختياري يعني ممكن ميتكتبش ومفيش مشكلة ، بس طبعا ذوي الخبرة يعرفوا إن كدا محرر الأكواد بيحدد نوعه بردو ، بس بيحدده نوع اسمه Variant ودا له ميزة وعيب .. ميزته إنك لو مش عارف نوع المتغير بيكون دا الافتراضي وبيعفيك من تعريف نوع المتغير .. وعيبه إنه بيستهلك مساحة كبيرة في الذاكرة .. يعني لما ربنا يكرمكم وتكتبوا أسطر كتيرة من الأكواد لو معرفناش نوع المتغير ، هيكون الكود بطيء جدا مقارنة بإننا نعرف الكود بنوع محدد ..!
عشان كدا قلنا إنه ضروري يعني هو اختياري ، بس ممكن إحنا نخليه إجباري ؛ عشان نتعود على الصح من البداية (مش كدا ولا ايه!)
طيب إحنا هنعرف نوعه إزاي ؟؟ إنت اللي بتحدد نوعه حسب ما تريد وهنتعرف على الأنواع بس بالراحة عليا ..أنا أحب أرغي وآخد وقتي في الرغي قبل ما أكمل
 
بكدا نكون عرفنا شكل السطر اللي هيتم الإعلان فيه عن المتغير ، هيكون ببساطة بالشكل اللي جاي حالا
هنفترض إني هخزن في الذاكرة رقم صحيح وهنسميه MyNumber
Dim MyNumber As Integer أيوا نحفظ بقا الشكل دا كويس ونشوف الشروط اللي قلنا عليها انطبقت ولا لا ! أول شرط الكلمة Dim اللي هتخلي المتغير ميخافش ، وتاني شرط اسم المتغير وهو هنا MyNumber ودا أنا اللي سميته مش محرر الأكواد عشان محدش يفكر إنه لازم يكون بالاسم ده يعني الاسم إنت حر فيه إن شا الله تسميه (مكرونة) ، وبعدين هنلاقي كلمة من حرفين As ودي متكلمناش عليها دي اللي بتفصل بين الاسم والنوع .. صحيح الاسم مرتبط بالنوع بس لسه في مرحلة الخطوبة والخطوبة هتطول فنفصل بينهم بمحرم اللي هو As وأخيرا النوع Integer ودا بيستخدم للأرقام الصحيحة (أول نوع خلصنا منه الحمد لله)...
يبقا خلاصة الكلام السطر ده بنقول لمحرر الأكواد إننا هنستخدم متغير باسم MyNumber وهيكون نوعه عدد صحيح (إحنا كدا بنوفر في الذاكرة مساحة وبنخلي الكود يكون أسرع لما نحدد النوع)
طبعا الطالب الناصح هيقولي هو فين الرقم اللي إحنا خزناه في الذاكرة دا ملوش أثر هقوله لسه الحتة دي جاية دلوقتي .. السطر دا بس كأننا بنكلم الذاكرة ونقولها : استعدي أيتها الذاكرة آتٍ إليكي متغير بهذا الاسم ومعاه بطاقة الرقم القومي بتاعته ابدأي اتعاملي معاه .. فالذاكرة تشوف اسمه لو كان اسمه صحيح تقوله اتفضل ، وتشوف نوعه وتحجز له مكان مناسب على أده .. ما هو كل نوع على أد حجمه (زي المثل اللي بيقول كل برغوت على أد دمه) ..يعني النوع Integer غلبان وصحته على أده هتحجزله مكان صغير ، أما Variant فربنا يديله الصحة هياخد مكان لا بأس به (يا ريت تكون النقطة دي بقت واضحة)
طيب بعد ما عرفنا المتغير .. نديله قيمة وعشان ندي قيمة قلنا قبل كدا لازم علامة = يساوي ، وتكون القيمة اللي عايزين نخزنها على اليمين بعد علامة يساوي مش قبليها ومينفعش نحط القيمة الأول كدا غلط .. عايزين نتعلم صح !
زي ما أخدنا في الخصائص إن كل خاصية ليها قيمة بنحددلها قيمة .. بردو المتغير بنحدد له قيمة زي كدا
MyNumber = 70 يبقا إحنا كدا حددنا قيمة المتغير بـ 70
طيب واحد يقولي يعني عشان أخزن الرقم 70 في الذاكرة هكتب سطرين ، طب ما نختصرهم في سطر واحد يا معلمي (طبعا هو مش معلمي بضم الميم لا دا بقولها بكسر الميم ، على أساس إننا قاعدين على قهوة) .. وبعدين يقولي هختصره كدا
Dim MyNumber As Integer = 70 هقوله جرب بنفسك هتلاقي محرر الأكواد أظهر لك رسالة خطأ .. اللي اشتغل على Visual Basic.Net الفكرة دي مقبولة لكن هنا في الـ VBA غير مقبولة..
 
طيب دلوقتي نطبق عملي السطرين اللي فاتوا .عايزين مثلا نحط قيمة المتغير في الخلية A1 >>
Range("A1").Value = MyNumber الخلية A1 وبعدين نقطة متبوعة بخاصية أول مرة تقابلنا دلوقتي ، ودي مهمة جدا ومعناها القيمة Value .. يعني خلي قيمة الخلية A1 تساوي المتغير اللي اسمه MyNumber ، فيقوم محرر الأكواد يروح للذاكرة يسألها عندك متغير اسمه MyNumber ، ترد تقوله أيوا قاعد مرزوع هناك أهو .. يقوم المحرر يشده من قفاه (شكلها كدا أنا اللي هيتعمل فيا كدا النهاردة .. مش جايبها لبر من بدري عمال أقول 4 واستدعاء وشد من القفا ربنا يستر ..) المحرر يشوف قيمة المتغير اللي تم تخزينها ويحطها في الخلية A1 ..
اعذروني إذا كنت بشرح اللي بيحصل بالتفصيل بس التفصيل دا مهم ..
واحد تاني مخه شغال هيقولي طيب أنا أقدر أختصر الكود بتاعك اللي هو 3 أسطر في سطر واحد وهيطلع الناتج صح
Dim MyNumber As Integer MyNumber = 70 Range("A1").Value = MyNumber هيقولي بص بقا السحر أهو الكود بتاعك في سطر واحد
Range("A1").Value = 70 هقوله برافو عليك دا صحيح بس مش هو دا المهم إننا نحط القيمة 70 في الخلية A1 وخلصت الحكاية .. الفكرة إن المتغير هنستخدمه مثلا في أكتر من سطر .. وليكن هستخدمه 10 مرات .. لو أنا سمعت كلامك يا نبيه يبقا لو حبيت أغير قيمة المتغير لـ 100 مثلا هضطر أدور على القيمة 70 في كل أسطر الكود وأغيرها 10 مرات .. لكن بالطريقة اللي قلت عليها المتغير لو حبيت أغيره هغيره مرة واحدة بس في أول الكود وخلصت الحكاية!!
دي نقطة نقطة تانية إن ممكن يتم على المتغير عمليات حسابية متداخلة ، فلو استعملنا القيمة من غير المتغير هيكون صعب التعامل مع الكود
 
طيب نجرب نحذف كلمة Dim من الكود ونخلي الكود بالشكل ده
MyNumber As Integer MyNumber = 70 Range("A1").Value = MyNumber شيلنا كلمة Dim الغريب إن محرر الأكواد مبيديش خطأ لما بتشيلها .. لكن ساعة التنفيذ يخضك برسالة ويقولك
 

 
معنى الكلام ده إن المتغير مينفعش يتم الإعلان عنه إلا بكلمة Dim ، وإلا سيتعبر الإعلان غير قانوني وسيتم إحالة الكود للمحاكمة (مش بقولكم مش جايبها لبر)
 
بكدا نكون اتعرفنا على أول نوع من المتغيرات اللي هو Integer !!
نتعرف سريعا على نوع تاني مشهور جدا اللي هو String ودا بيكون للقيم النصية
بالمثال يتضح المقال :
Dim Myname As String Myname = "Yasser" MsgBox Myname طبعا بقت الأمور أوضح دلوقتي المتغير اسمه Mname ونوعه String يعني نص .. وتم وضع القيمة النصية Yasser له ، ومننساش مع النصوص أقواس التنصيص ..
وآخر سطر مش محتاج إني أشرحه بس نلاحظ في آخر سطر فايدة تانية للإعلان عن المتغيرات .. هنا لما حطينا القيمة النصية Yasser وأسندناها للمتغير Myname ، لما نيجي بعد كدا نستخدمه خلاص هنرتاح من أقواس التنصيص .. وهنعتبر دي فايدة تانية
يلا بقا خدوا الواجب عشان أنا تعبت ...
1 - قم بالإعلان عن متغير بأي اسم يعجبك من أي نوع يعجبك وخليه يظهر في الخلية C5 ويظهر معاه رسالة مضمونها أنه قد تم وضع القيمة للمتغير اللي إنت سميته في الخلية C5
2 - قم بالإعلان عن متغيرين من النوع Integer وقم بعمل عملية جمع وناتج الجمع في الخلية E5
 
إلى لقاء مع حلقة جديدة من حلقات افتح الباب وزغردي يا رباب (دا إذا عدا اليوم بسلام ومكانش فيه استدعاء)
دمتم في عون الله وحفظه
 

وعليكم السلام
اتفضل على قد حالى  تعديل بسيط فالكود
Private Sub Nu_Vo1_Click() Forms![Ha_rkat2]![تابع69]![Nu_Vo1] = Me![Nu_Vo1] Forms![Ha_rkat2]![تابع69]![na_Br] = Me![na_Br] Forms![Ha_rkat2]![تابع69]![St_ew] = Me![St_ew] Forms![Ha_rkat2]![تابع69]![Di_sp] = Me![Di_sp] Forms![Ha_rkat2]![تابع69]![Le_ng] = Me![Le_ng] Forms![Ha_rkat2]![تابع69]![pr_Pu] = Me![pr_Pu] Form.Visible = False Forms![Ha_rkat2]![تابع69].SetFocus 'Form.Visible = True End Sub بالتوفيق اخى ان شاء الله
2_2.rar

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



ان شاء الله اكون قدرت اوضحهالك اخى
بالتوفيق ان شاء الله
 

وعليكم السلام
اتفضل اخى الفاضل
ان شاء الله يكون طلبك بناء على رقم الحساب والعمله والاهم التاريخ ليعطينى الرصيد صحيح
الرصيد التراكمى: DSum("Price";"wesam_tb1";"AccountName=" & [AccountName] & "And [PCurrency]=" & [PCurrency] & "and [dat]<=" & Format([dat];"\#mm\/dd\/yyyy\#")) والافضل باستخدام حقل رقم الحركه كما بالمرفق الثانى
QTRseed: DSum("Price";"wesam_tb1";"AccountName=" & [AccountName] & "And [PCurrency]=" & [PCurrency] & "and [dat]<=" & Format([dat];"\#mm\/dd\/yyyy\#") & "and [id]<=" & [id])
 

صوره من المرفق الثانى

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
رصيد تراكمي.accdb رصيد تراكمي1.accdb

وعليكم السلام
اتفضل اخى الفاضل ان شاء الله يكون ما تريد
تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
تجربة_4.rar

اخى @husseinharby هذا لانك لم تقم بجميع التعديلات المطلوبه
فالكود يعتمد على التاج او العلامه

افتح الجدول revision وانظر اليه ستجد به سجلات الان
قم بالتعديل على الحقول اللتى تريدها باضافه القيمه Audit كما بالصوره
تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
De55sktop.rar