أبوبسمله

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

اممممممممممممممم ساشرب فنجان قهوه واحاول مره اخرى ان شاء الله والله المستعان ولعل معلمنا العزيز @jjafferr يشاركنا

واياكم اخى واستاذى محمد فى انتظارك

بالف هنا اخى ومعلمنا العزيز

وعليكم السلام اخى واستاذى محمد عصام @ابا جودى انظر للاستعلام QAboJody هل هذا ما تريد ؟ Qs For Weight.mdb

جزاك الله خيرا اخى صالح جعله الله فى ميزان حسناتكم

اخى ومعلمى العزيز @jjafferr هل يمكن الاعتماد على الكود التالى ؟ Private Sub Form_Error(DataErr As Integer, Response As Integer) Dim x As Integer x = DataErr If x > 0 Then ' Response = acDataErrContinue 'ÞÏ áÇ ÊÍÊÇÌ Çáì åÐÇ ÇáÓØÑ Me.Undo End If End Sub

صحيح جزاك الله خيرا معلمنا العزيز جعفر

طبعا كنت اقصد بدون الخطأ 😀 ولكن حت مع قصدى هذا فلم يتم تنفيذ الكود ولم يتم التنفيذ ايضا بعد اصطياد رقم الخطأ اممممممممممم

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

وعليكم السلام اهلا ومرحبا باخى ومعلمى العزيز @jjafferr جزاك الله خيرا سعدت بمشاركتك معنا بارك الله لنا فيك وبارك لك فى كل ما تحب

فى فالنموذج حدث عند الخطأ ضعه فيه وجربه ووافنا بالنتيجه

وماهو الصح اخى حسين الحالى ده اللى ظاهر امامك ام ماذا ؟ وضح لنا حتى نقدر على مساعدتك باذن الله من قبل اخوانك واساتذتنا

على النموذج فى زر حذف وافنا بالنتيجه هل هذا ما تريد ام هناك توضيح؟ ادخال بيانات البطاقه المدنية(1).accdb

وعليكم السلام اخى @حسين العربى جرب الكود التالى ووافنى بالنتيجه DoCmd.RunCommand acCmdDeleteRecord

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

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

السلام عليكم اخى حسين اقتبس لك جزء من شرح اخى وحبيبى ياسر ابو البراء فى منتدى الاكسيل جزاه الله خيرا لتوضيح فائده المتعيرات وان شاء الله يفيدك نبدأ الحلقة : هنرغي النهاردة عن المتغيرات .. لاحظت في كل الشروحات اللي شفتها إن درس المتغيرات بيكون دمه تقيل ورخم ؛ لأن كله بيكون غالبا نظري أكتر منه عملي وبيكون في درس واحد مرة واحدة . إحنا لأننا اتبعنا أسلوب مختلف تماما هنتكلم عنه واحدة واحدة متغير متغير ، وبالأمثلة والتطبيق ، ومش مهم الكم بقدر الكيف (ومحدش يفهم الكيف دي غلط) نفهم الأول يعني ايه متغير .. يعني مش ثابت (صح يا حسام .. حد عنده إجابة تانية كله ساكت يعني مفيش غير حسام اللي عارف ..)! عشان نقدر نخزن الأرقام والنصوص دي لازم نستعين بالمتغير .. ييجي المتغير ويقولنا تحت أمرك يا فندم أنا في الخدمة ، وطبعا الذاكرة بردو متأخرتش عننا في تقديم المساعدة. بس المتغير له شروط عشان نقدر نستفيد منه ..أولاً عايز حاجة تسنده عشان بيتكسف يقف لوحده فبنستدعي كلمة اسمها 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 إلى لقاء مع حلقة جديدة من حلقات افتح الباب وزغردي يا رباب (دا إذا عدا اليوم بسلام ومكانش فيه استدعاء) دمتم في عون الله وحفظه

السلام عليكم مشاركه مع اخوانى واساتذتى @اشرف و @jjafferr بما ان المرفق معمول على اصدار 2003 والتعديل الذى قام به اخى اشرف جيد ولكن لم يظهر على اصدار 2003 فقمت باستخدام هذا الكود عند الفتح او كما تحب وممكن تستخدمه مع dfirst ان قمت بالتعديل كما اشار لك معلمنا العزيز جعفر وارجح اقتراح اخى واستاذى ومعلمنا العزيز @jjafferr فلقد استفدت من طريقته كثيرا جزاه الله خيرا Me.photo1.Picture = DLookup("Path", "data") تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

بعتذر لم ار الشرح بالاعلى لاخوانى واساتذتى الافاضل جزاهم الله خيرا وكل شىء مشروح بالاعلى اخى الفاضل شرح وافى يمكنك فتح موضوع جديد بعد ذلك ووضع الرابط الذى تريد الاشاره اليه فى موضوعك تم تعديل الكود التالى Private Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub الى Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub وهى تساوى Public Sub Command0_Click() MsgBox " تم اضهار رسالة من فورم الرئيسي " End Sub بالتوفيق اخى Run Button Command-K.rar

وعليكم السلام اتفضل على قد حالى تعديل بسيط فالكود 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

ولا يهمك اخى بالتوفيق ان شاء الله

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

وعليكم السلام استخدم val عدلت لك اول عامود عامود الرواتب هل q4 لاتدخل ضمن الجمع ام سقطت منك سهوا لم اضفها اذا كانت سقطتت منك سهوا اضفها وانتبه للحقول جيدا حتى لا يخرج اجمالى خاطئ =Val([q1])+Val([q2])+Val([q3])+Val([q5])+Val([q6])+Val([q7])+Val([q8] راجع ووافنا بالنتيجه بالتوفيق ان شاء الله ZT(1).accdb

السلام عليكم مشاركه لاخى واستاذى محمد البرناوى @Barna بعد اذنه جزاه الله خيرا محاوله منى على قد حالى و على ما فهمت من الاخ السائل يوسف عدلت على مثال اخى محمد فالسطر التالى بدل To Me.s1 وضعت العدد الاجمالى للطلاب DCount("id", "[tbl_all]") ضع فى حق العدد سواء 22 او غيره وسيتم التنفيذ باذن الله جزاه الله خيرا اخى محمد For x = 1 To DCount("id", "[tbl_all]") Private Sub ÃãÑ0_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("tbl_all") rs.MoveFirst On Error GoTo 1 For x = 1 To DCount("id", "[tbl_all]") For i = 1 To Me.s1 Debug.Print i, x rs.Edit rs!tarkeem = x rs.Update rs.MoveNext skipeme: Next i Next x Me.Requery Me.Refresh Set rs = Nothing Set db = Nothing DoCmd.OpenTable "tbl_all", acViewPreview 1: End Sub ترقيم مجموعه (1)(1).accdb