يوسف أحمد

و عليكم السلام و كل عام و انت و جميع اعضاء منتدانا الغالي بخير و صحة و عافية اخي العزيز محمد غير الكود الى التالي Forms!monthes.Form!trans!main = DLookup("[mainsalary]", "salarydetails", "playerid= " & Me.playerid) Forms!monthes.Form!trans!bones = DLookup("[bones]", "salarydetails", "playerid= " & Me.playerid) Forms!monthes.Form!trans!allow = DLookup("[allowens]", "salarydetails", "playerid= " & Me.playerid) تفضل ملفك بعد التعديل بالتوفيق اللاعبين.rar

و عليكم السلام ممكن عمل ذلك بالكود التالي If IsNull(Combo_a) And IsNull(Combo_a) Then txt_confirm = 1 If Not IsNull(Combo_a) And IsNull(txt_s) Then txt_confirm = 2 If Not IsNull(txt_s) And IsNull(Combo_a) Then txt_confirm = 3 If Not IsNull(Combo_a) And Not IsNull(txt_s) Then txt_confirm = 4 بالتوفيق

و عليكم السلام اخي العزيز في حدث عند التنسيق لمنطقة تفصيل التقرير ضع الكود التالي Dim db As DAO.Database Dim rs As DAO.Recordset Dim strTxt As String Set db = CurrentDb Set rs = db.OpenRecordset("tbl1") rs.MoveFirst Do Until rs.EOF strTxt = strTxt & rs!eName & "،" rs.MoveNext Loop Me.txt1 = Left([strTxt], Len([strTxt]) - 1) rs.Close db.Close Set rs = Nothing Set db = Nothing حيث ان : tbl1 هو اسم الجدول eName هو اسم الحقل txt1 هو اسم مربع النص بالتقرير بالتوفيق

الله يعافيك عزيزي تفضل ربما يكون هو مطلوبك بالتوفيق abcde.rar

و عليكم السلام و رحمة الله و بركاته اخي العزيز بالنسبة للفرق في الايام فعادة يتم اضافة يوم الى ناتج الدالة اما بالنسبة للتاريخ فتقوم باستخدام التاريخ الهجري باتباع التالي : 1: ملف 2: خيارات 3: اعدادات العميل .. و من التبويب تحرير تجد خيار استخدام التقويم الهجري .... قم بتفعيله بالتوفيق

و عليكم السلام اخي العزيز تفضل الكود DoCmd.SetWarnings False On Error Resume Next DoCmd.RunSQL "INSERT INTO t1 ( aa, bb, cc )SELECT Emp.aa, Emp.bb, Emp.cc FROM Emp WHERE (((Emp.bb)=[forms]![form]![Text9]));" DoCmd.SetWarnings True t1.Requery ارجو ان يكون هو المطلوب بالتوفيق

في الرابط تجد برنامج اسمه soccer للاستاذ مهند عبادي ارجو ان تستفيد منه بالتوفيق

و عليكم السلام هذه فكرة بسيطة عملتها قبل فترة قد تفيدك بالتوفيق دوري كرة قدم .rar

استبدل اسم الجدول بإسم الاستعلام في الكود . او ضع مثال حقيقي لما تريد .

السلام عليكم بعد اذن اخواني الكرام عندي حل و لكن يعتمد على تسمية الازرار حسب تسلسل حقل id ارجو ان يفي بالغرض On Error Resume Next Dim cnt As Object For Each cnt In Me.Controls If cnt.ControlType = acCommandButton Then cnt.Caption = DLookup("iname", "tb1", "id = " & cnt.Name) End If Next بالتوفيق للجميع تصفية بيانات سجل.rar

الف مبروك الترقية استاذ شيفان .. نسأل الله يبارك فيك و ينفع بعلمك

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

السلام عليكم اخواني الاعزاء هذا مثال قمت بعمله يفي بالغرض ان شاء الله بالتوفيق للجميع Input Box.rar

السلام عليكم ممكن عمل ذلك في سطر واحد يوضع بحدث بعد التحديث لمربعي النصوص الخاصة بالدرجة و المرحلة ( الافضل ان يكون في اجراء او وحدة نمطية و يستدعى بالحدثين ) و الكود هو Me.N = ((Me.Dragah * 1000) + (Me.Mrahel * 100)) - 100 ارجو ان اكون فهمت المطلوب بالتوفيق للجميع

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

و عليكم السلام اخي العزيز اجعل الاستعلام مصدراً للنموذج الرئيسي بالتوفيق

السلام عليكم اشارك الاساتذة الاعزاء جزاهم الله خيراً بوضع حل آخر يؤدي نفس الغرض Format([edate];"dddd") حيث edate هو اسم حقل التاريخ المراد استخراج اسم اليوم له بالتوفيق للجميع

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

و عليكم السلام اخي العزيز sweety ضع الكود التالي بحدث عند النقر لزر الامر Me.Text8 = DMax("job_x", "table2", "int(job_x)= " & [Forms]![Viewx]![Job_ID]) تفضل ملفك بعد التعديل بالتوفيق Count.rar

السلام عليكم يعد اذنك اخي العزيز Rebaz اخي العزيز zhamid المشكلة الحقيقة ليست في الاستعلام و لكن تبدو في تصميم قاعدة البيانات لديك ... انت تضيف جدول لكل تاريخ و هذا يسبب لك المشكلة و الحل هو ان يكون جدول واحد تضيف له حقل تاريخ و تضع بيانات الجداول كلها في هذا الجدول . بالتوفيق للجميع يوجد مشكلة لدي عند وضع الرد لا اعرف ما سببها و لكن عند الضغط على اضافة رد يظهر اول رد لي بالمشاركة اخي zhamid لم تجاوب على سؤالي بخصوص تشابه جميع الجداول في تصميم الحقول هذا اولاً ثانياً من الافضل ان توضح وظيفة البرنامج الذي تعمل عليه حتى تتضح لنا الصورة و نستطيع مساعدتك ... مبدئياً واضح لي ان الجداول كلها بنية واحدة و الفرق فقط في المسمى و الذي يبدو ان كل جدول خاص بتاريخ محدد ... ارجو ان توضح الامور اكثر

الجداول كلها تتكون من حقول متشابهه و كل جدول منها خاص بتاريخ محدد؟ اذا كان هذا صحيح اذا تحتاج الى جدول واحد تنقل اليه بيانات الجداول كلها و تضيف اليه حقل جديد للتاريخ و تدون فيه التواريخ..

تفضل هذا التعبير IIf([b]=0;0;[a]/[b]) حيث b هو الرقم المقسوم عليه a هو الرقم الاخر المراد قسمته على الصفر و هذا مثال على ذلك بالتوفيق للجميع divide by zero.rar

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

السلام عليكم يعد اذنك اخي العزيز Rebaz اخي العزيز zhamid المشكلة الحقيقة ليست في الاستعلام و لكن تبدو في تصميم قاعدة البيانات لديك ... انت تضيف جدول لكل تاريخ و هذا يسبب لك المشكلة و الحل هو ان يكون جدول واحد تضيف له حقل تاريخ و تضع بيانات الجداول كلها في هذا الجدول . بالتوفيق للجميع

اعتذر عن التأخير الكود سيكون كالتالي DoCmd.OpenReport "rpt1", acViewPreview, , Me.Filter حيث أن rpt1 هو اسم التقرير مرفق مثال لتتضح لك الفكرة بالتوفيق للجميع filterName.rar