نجوم المشاركات

حبائي أهنئكم بالعيد، وأتمنى لكم أيامًا ملؤها السعادة والعافية والرضا. إلى من لا يكتمل عيدنا إلا بوجودهم، ولا يمتلئ بيتنا بهجةً إلا بحضورهم، أطيب المباركات أنقلها لكم، فها هو العيد قد حل علينا بالسرور، وكل عام وقلوبكم عامرة بالخير أهنئكم بأرق التهاني القلبية، بقدوم عيد الأضحى المبارك، أسأل الله أن يجعله عيد خير عليكِ. العيد فرحة للمسلمين، عيد أضحى مبارك يا غالية وكل عام وأنت بصحة وعافية.

بعد اذن الاستاد مهند محسن انسخ الاكواد وضعها داخل الفورم Private Sub TextBox1_Change() TOTALALL End Sub Private Sub TextBox2_Change() TOTALALL End Sub Private Sub TextBox3_Change() TOTALALL End Sub Private Sub TextBox4_Change() TOTALALL End Sub Private Sub TextBox5_Change() TOTALALL End Sub Sub TOTALALL() TextBox6 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4) + Val(TextBox5) End Sub

اليكم الشرح في الصورة المرفقة image (0).bmp

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

مشاركة مع الاستاذ قاسم ممكن اختصار الكود الى Me.Filter = "[id]=" & Me.c_2.Column(0) Me.FilterOn = True او كتابته هكذا DoCmd.ApplyFilter , "[id]=" & Me.cbo1.Column(0) او بدون الحاجة الى اكواد من خلال وضع معيار في خانة المعرفة في الاستعلام مصدر بيانات النموذج Like "" & [Forms]![نموذج1]![c_2] & "" يمكن استخدام النجمة لعرض كافة السجلات قبل التصفية ويمكن ايضا البحث بدون فلترة وهنا سيتم نقل المؤشر للسجل المطلوب DoCmd.SearchForRecord acDataForm, "نموذج1", acFirst, "[id]=" & Me.c_2.Column(0) انا غيرت اسم حقل المعرف الى id لكونه اسهل عند كتابة الاكواد تحياتي

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

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

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

تفضل Database21.accdb

كل عام وانت بالف خير اخي في الله ابو الحسن دعواكم الجميلة جعلتني اعيد التفكير بالتعديل لاني كنت غير مقتنع من كثرة الاستعلام والنماذج ..دائما ماتلخبطني like "*" ونادرا ما استخدمها استعنت ولله الحمد باستعلام ونموذج واحد ..فقط غيرت المعيار القديم الى المعيار Like Nz([forms]![Form1]![Accounts];"*") TestLOck(1).rar

كل عام وأنتم بخير بمناسبة غيد الأضحي المبارك أعاده الله عليكم بالخير و اليمن والبركات

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله تعالى إخوتي في الله؛ بتَيسير المولى حل وعلا؛؛ هذا رابط تكبيرات عشر ذي الحِجّة؛ بدون الحاجة الاتّصال بالشًبكة: https://ia800909.us.archive.org/35/items/takberat_______al3eed-------mp3/takbiratEidAl-adha.mp3 وتقبل الله طاعاتكم، وكُلّ غزمٍ وجميع إخوتي في عفو وعافية.

كل عام وانتم بخير ادعو الله ان يتقبل منا ومنكم سائر الأعمال

وعليكم السلام اخي ابو الحسن .. حينما نعتمد في الفلترة على الاستعلام فأن كان احد الحقول في الاستعلام معياره فارغ فلن يظهر شيئا وفي حالتك تحتاج الى احتمالات .. اما مصدر التمويل والحساب فارغين فيقوم بأظهار الجميع ..واما مصدر التمويل فارغ فيظهر الحساب .. او الحساب فارغ فيظهر مصدر التمويل جرب المرفق ووافني بالنتيجة TestLOck(1).rar

نعم ..... اولا : القاعدة اذا كانت منقسمة ...... يتم ربط الجداول من جديد بالقاعدة الجديدة . ثانيا : اذا كانت القاعدة غير منقسمة ... وغير مغلقة اي لم يتم تحويلها الى MDE لديك طريقتان : الطريقة الاولى : 1- عمل نسخة احتياطية قبل كل شيئ 2- حذف النماذج القديمة ثم تصدير النماذج الجديدة اليها. الطريقة الثانية : 1- عمل نسخة احتياطية قبل كل شيئ 2- استيراد الجداول القديمة الى القاعدة الجديدة. طبعا هذا في حالة واحدة وهي عدم وجود حقول أو تعديلات على الجداول القديمة

السلام عليكم رجاء ارفاق جزء من الكود للمراجعه وبالنسبه لموضوع الملف المفتوح يجب اضافه امر لاغلاق الاكسيل بعد انتهاء العمل مرفق جزء من كود يوضح التعامل مع الاكسيل عسى ان يكون مفيدا Private Sub ExportToExcel_Click() On Error Resume Next 'GoTo errhand Dim appXL As New Excel.Application Dim wbk As Excel.Workbook Set wbk = appXL.Workbooks.Add(Template:=App.Path & "\Templates\MyTemplate") DatPayments.Recordset.MoveFirst SSPanel1.Visible = True ProgressBar1.Value = 0 With wbk.Sheets(1) .Cells(3, 3).FormulaR1C1 = ": " & Me.VP_SelectProject.Text ' .DatPayments.Recordset!ProjectCode.Value .Cells(4, 3).FormulaR1C1 = ": " & Me.VPprojectName.Caption .Cells(6, 3).FormulaR1C1 = ": " & Me.VvenName .Cells(7, 3).FormulaR1C1 = Me.lblConValue.Caption With .Range("A" & 9 + 1 & ":m" & 9 + i - 1) .Borders(xlEdgeLeft).LineStyle = xlDouble .Borders(xlEdgeTop).LineStyle = xlDouble .Borders(xlEdgeBottom).LineStyle = xlDouble .Borders(xlEdgeRight).LineStyle = xlDouble .Borders(xlInsideVertical).Weight = xlThin .Borders(xlInsideVertical).LineStyle = xlContinuous .Borders(xlInsideHorizontal).Weight = xlThin .Borders(xlInsideHorizontal).LineStyle = xlContinuous End With End With wbk.Name = "aaa" 'Close objects and component and free memory. wbk.Save wbk.Close appXL.Quit Set appXL = Nothing Exit Sub End Sub

شكرا جزيلا اخي عمار

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

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