البحث في الموقع

(كيف أضع مجموع تفاصيل جدول الفاتورة الفرعية ضمن خانة في الجدول الأساسي)

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته 🙂 درسنا اليوم عبارة عن فكرة تجميلية لقاعدة البيانات وإظهار شاشة إنتظار عند الإنتقال بين النماذج.. فكرة لمعت وحبيت أوثقها قبل أن تطير بلا عودة 😅 متابعة ممتعة 🙂 حمل المثال من المرفقات .. Waiting Screen.accdb

السلام عليكم نافذة / قائمة منسدلة / مربع سرد و حوار ديناميكي / متغير / متناقص عبر السجلات في نموذج مستمر . لقد بحثت مطولاً عن طريقة لتنفيذ نافذة منسدلة تتناقص عند اختيار قيمة منها في سجل سابق . و هذا ما توصلت إليه من خلال تجربتي آمل أن يكون ذا نفع . الفكرة : جعل مصدر صف القائمة أو مربع السرد و الحوار فارغاً من نوع جدول / استعلام ثم تنفيذ كود كما هو في المرفق و الذي سيكون عبارة عن استعلام محول إلى أمر فيجوال . لقد احتجت إليها غير مرة وهي ذات تطبيقات كثيرة سيجد صاحب الحاجة فيها ضالته .. طالما أن برنامج الأكسس لا يزال في صيغته الحالية . مع بساطة الفكرة وبدائيتها إلا أنني لم أجدها خلال بحثي و لعل أحداً ما يبحث عنها . DynamicCombobox.accdb الجزء السابق

Dependent / Cascading Combo Box in continuous forms طريقة لعمل قائمة / مربع سرد و حوار تعتمد على أخرى خلال بحثى لم أجد أي طريقة تلبي الحاجة لعمل نافذة معتمدة على أخرى في نموذج مستمر لذا أضع ما توصلت إليه تجربتي بين أيدكم عله يكون ذا نفع . * ملاحظة : عند جعل مصدر الصف في مربع السرد و الحوار استعلاماً فيه عدة حقول فإن المربع سيعرض افتراضياً القيم في العمود الأول لذلك عند بناء الاستعلام اختر العمود الأول هو العمود الذي ترغب بإظهار قيمه ، أما في حال الإبقاء على ترتيب الاستعلام كما يظهر بعد استخدام المعالج فاربط حقول الاستعلام بمربع القائمة و غير عرض هذه الأعمدة بحيث يظهر العمود الذي يحوي القيم التي ترغب بعرضها .و الطريقة في الرد . DependantCombobox.accdb

السلام عليكم ورحمة الله وبركاته اساتذتنا كرام انا طالب جديد، وبدا ادرس في اكسس لكن مزلت في مرحلة تعلم اساسيات ، واجهة صعوبة في انشاء نموذج لادراج صور باستعمال ازرار ، ادخلت الكود لكن الزر لا يعمل، فهلا ارشدتموني اين الخطا.. وهذا هو المثال... وفي الاخير بارك الله فيكم على مجهوداتكم وجزاكم الله كل خير. Base de données2.accdb

السلام عليكم ورحمة الله عندي مشكلة في ملف اكسس كان يعمل بشكل جيد وبدون مشاكل لكن عندما احضرت حاسب جديد لم يعد يفتح النموذج الرئيسي -عند فتح قاعدة البيانات- الذي منه اتعامل مع كامل البرنامج مع العلم اني استخدم نفس الاعدادات من حيث المعمارية 64 بت , و نفس اعدادات المنطقة و التاريخ , و الحاسب الجديد نوع Lenovo و لاحظت وجود مشكلة في حقل التاريخ اثناء تعين القيمة الافتراضية "()Date" رسالة خطأ {حدث خطأ اثناء تحويل هذه الدالة برمجيا , يوجد خطأ في بناء جملة الوحدة النمطية لـ Visual Basic , تحقق من التعليمات البرمجية ثم أعد التحويل البرمجي للوحدة النمطية } و بعد مسح كافة الاحداث مثل (ماكرو , و وحدات نمطية ) عاد البرنامج للعمل (النموذج يفتح عند فتح قاعدة البيانات) , لكن بدون فائد (بسبب مسح الاوامر مسبقاً ) اي مساعدة اذا سمحتم جزاكم الله خير

السلام عليكم حياكم الله المطلوب كود لتصفية ليست بوكس

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

السلام عليكم اساتذتي الكرام هذا الكود من انتاج الأستاذ جعفر حفظه الله ورعاه بس لما غيرت به شيء بسيط اصبح لايقوم بالتوزيع كما هو مطلوب Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, 10) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod ولما غيرت تقسيم 10 على مربع نص به عدد وهو Private Sub UpdateEndData() Dim Dcode As Integer 'since we are using the calendar, we will get the day, month, and year, 'although we only need the month and the year, and that is what this fields Format shows, mmmm\-yyyy 'but for easyness for the search later, we will assign the day always as 1 If Len(Me.AwardMonth & "") <> 0 Then Me.AwardMonth = DateSerial(Year(Me.AwardMonth), Month(Me.AwardMonth), 1) End If Me.DiscountStartDate = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate), 1) Dcode = Switch([Cridi_ID] > 0, [Beriod]) DiscountEndDate = DateAdd("m", Dcode, [DiscountStartDate] - 1) Me.DiscountEndDate = DateSerial(Year(Me.DiscountEndDate), Month(Me.DiscountEndDate) + 1, 0) DiscountPerMonth = (([Cridi_Value] - [Mont_Spés]) * [Qte]) / Dcode 'add the loan Records to tbl_Loans Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") 'rst.MoveLast: rst.MoveFirst For I = 0 To Me.CmdCridi.Column(0) - 1 rst.AddNew rst!EmployeeID = Me.EmployeeID rst!Loan_ID = Me.ID rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateAdd("m", I, Me.DiscountStartDate) 'add the months, or use the next line 'rst!Payment_Month = DateSerial(Year(Me.DiscountStartDate), Month(Me.DiscountStartDate) + I, 1) rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Cridi" rst!Remarks = Me.CmdCridi.Column(1) rst.Update Next I rst.Close: Set rst = Nothing txtDiscountPerMonth.Requery txtDiscountEndDate.Requery 'Auto_ID, Auto_Date, EmployeeID, Loan_ID, Loan_AwardMonth, Payment_Month, Loan_Cridi, Payment_Amount, Payment_Made, Remarks 'EmployeeID 'Loan_ID 'Loan_AwardMonth 'Payment_Month' 'Loan_Cridi 'Payment_Amount 'Payment_Made 'Remarks End Sub Beriod اصبح يقسم القسط على شهر واحد فقط بدلا من الشهر الذي يكتب في مربع النص Dcode = Switch([Cridi_ID] > 0, 10) Dcode = Switch([Cridi_ID] > 0, [Beriod]) أرجو المساعدة

عملت جدول خاص بمعلوات لرحلات سياحية فيها الحقول التالية تاريخ الرحلة _ الوجهة _ الفندق _ شركة الطيران _ العدد وجدول خاص بمعلومات المسافر الاسم _ رقم الموبايل _ العنوان _ رقم الجواز جدول خاص بالمدفوعات المبلغ _ رقم الايصال _ تاريخ الدفع جدول خاص بالمرافقين الاسم _ علامات اختيار ( كبير _ طفل _ رضيع ) وعملت نموذج لكل جدول على حدة والنموذج الرئيسي هو الخاص برزمة الرحلات على ان يكون هناك زر خاص بفتح نموذج بيانات الزبون المسافر وبه نموذجان فرعيان لبيان المدفوعات وآخر لبيان المرافقين لذا احتاج طريقة الربط بين هذه الجداول والنماذج وشكرا للجميع

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

السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام تحية طيبة أبثها لكم ...حيث تشرفت بكوني طالباً في مدرستكم الرائدة.. مما قرأت عنه مؤخراً..وشاهدته عبر اليوتيوب ..تلوين أزرار الفورم...ولذلك فإنني أضع هذا الموضوع بين أيديكم الكريمة لينال ما يستحق من البحث والتطوير ..وأظن أنه قد يتم تطويره باستخدام الحلقات التكرارية ..وهذه يستفيض بها أخونا وأستاذنا الكريم أبو البراء ...قمت بالتطبيق على فورم من أعمال أساتذتي في المنتدى الكريم..شاشة دخول اسم ورقم المستخدم حيث اسم المستخدم هنا admin ورقمه123 لاحظ كلمة أوفيسنا مرر الماوس عليها يمنة ويسرة ومررها أيضاً على الليبلات المجاورة لها.. راجياً أن يتقبل الله تعالى منا صالح أعمالنا ويتجاوز عن سيئاتنا ...آمين والسلام عليكم ورحمة الله وبركاته.. أوفيسنا.rar

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

الطلب مشروح في الصورة المرفقة x1.rar

السلام عليكم ورحمة الله وبركاته عوداً حميدا منتدانا الغالي والشكر اجزله للادارة على سعيها الحثيث للمحافظة على الشكل العام للمنتدى بصورة تيلق بالمتلقي :) مشاركتي كالاتي احبتي.. قمت بتصميم قاعدة بيانات تحتوي على جداول واستعلامات ونماذج وتقارير تكمن مشكلتي في الاتي ذكره.. 1- اريد عمل نموذج للبحث كالموجود بقاعدة البيانات المرفقة بمجرد كتابة اي من البيانات المحددة (اسم / رقم /) أن يظهر النتائج في نموذج فرعي. 2- اريد عمل مربع نص في نموذج العملاء مثلا بمجرد كتابة رقم العميل (بالضبط) يتم تحميل البيانات في الفورم (اي تظهر باقي التفاصيل التي تخص العميل) . 3- كيفية عمل زر تعديل لبيانات ما في فورم محدد. 4- اريد ان يتم ادراج تاريخ الضمان في جدول العملاء تلقائياً بمجرد اضافة تاريخ الوصول (ت.الضمان=ت الوصول+3 اشهر) جربت المعادلة (DateAdd) ولم تنجح معي. :( 5- حذف عميل مثلا بدون أن يتأثر اي حقل في جدول اخر يتربط بملف العميل (فقط أن يتم حذف العميل من جدول العملاء) 6 -اذا احتجت الي حقل يبين لي الرصيد الحالي هل يكون على النحو التالي (الرصيد الحالي=المبلغ المسحوب - اجمالي المبلغ)؟ في جدول المال 7- عمل تقرير شهري اي أن اختار تاريخ البداية والنهاية وعلى أساس التاريخين احصل على تقرير خلال هذه الفترة اعتذر للاطالة .. وجزاكم الله الفردوس رابط التحميل

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء عندي قاعدة بيانات تحتوي على نموذج باسم PP وفيه نموذج فرعي pp1 يحتوي على بيانات الطلاب ومن ضمن هذه البيانات المديرية المتقدم منها الطالب وهي عبارة عن قائمة منسدلة تعتمد على جدول باسم mo ولهذه المديرية مدارس خاصة بها وكذلك بقية المديريات المطلوب هو عندما اقوم باختيار مديرية معينة تفتح قائمة المدارس مباشرة وتحتوي على مدارس المديرية المختارة فقط لكي اختار واحدة منها وبعد اختيار المديرية والمدرسة يتم تعبئة المركز تلقائيا نظرا لوجود يحدد المراكز والمدارس التابعة له فمثلا اختار مديرية مدينة حجة = تظهر مدارس المدينة فقط اختار منها مجمع النصر = مباشرة يكتب في المركز النور المدينة واذا اخترت ايضا المديرية مدينة حجة = مدرسة مركز التدريب = مباشرة في المركز يكتب تلقائيا هارون الرشيد المدينة اتمنى تكون الفكرة واضحة وجزاكم الله خيرا التقدم الاخير35.rar

السلام عليكم اخواني الاعزاء عندي قاعدة بيانات تحتوي على نموذج باسم pp وهو للبحث عن اي طالب وبياناته وهو معتمد على جدول باسم kk هل بالامكان عندما ابحث عن طالب معين ويظهر في النموذج pp ترحيله الى جدول اخر وهو باسم kol مرفق لكم القاعدة اتمنى ان تكون الفكرة واضحة وجزاكم الله خيرا التقدم الاخير1.rar

لو احنا عارفين موقع دويبزل بتاع الاعلانات عن بيع او شراء المقتنيات سواء سيارات او غيره لما تيجى تبحث عن سيارة مثلا بتعمل .....بتختار من عدة مربعات للبحث المربع الاول مثلا تختار منه كلمة موتورز ولما تروح للمربع الثانى تلاقيه اتوماتيك جاب مايخص الموتورز فقط (اللى انت اخترته فى المربع الاول ) فتحتار مثلا سيارات ثم المربع الثالث تلاقيه برده جايب انواع السيارات فقط وعند الضغط على نوع تويوتا مثلا تلاقى مربع اختيار اللى بعديه تلاقى جايب مثلا كامري كورولا برادو يعنى كل ما يخص التويوتا فقط ....المطلوب باختصار انى عايز اعمل نفس الفكرة مع تعديل بسيط وهو عايز اسجل عندى سيارات واراضى ومبانى ....الخ واعطيت اكواد بالترتيب 1000 و 2000 و3000 وفى نموذج يكون عندى مربع تحرير وسرد اختار منه مثلا سيارات ...بمجرد ما اختار سيارات يظهر فربع نص اخر رقم 1001 على اعتبار ان دى اول سيارة تسجل طب لو عملت جديد واختارات من مربع تحرير وسرد سيارات ايضا ليخرج لى الكود التانى الا وهو 1002 وهكذا مع باقى الاصول (الاراضى والمبانى)

السلام عليكم ورحمة الله وبركاته عملت نموذج مستمر ووضعت فيه كود إخفاء حقل معين بناء على شرط لكن النتيجة أن حالة إخفاء أو إظهار الحقل تتم في جميع السجلات كونه مستمر. * استخدام خاصية التنسيق الشرطي لا يعطينا خيار إخفاء وإظهار الحقل فقط تفعيل أو تعطيل الحقل. أريد تعديل الكود ليتفاعل مع السجل المحدد فقط للإخفاء والإظهار الكود : If Me.Cheldren = -1 Then Me.CheldrenNo.Visible = True Else: Me.CheldrenNo.Visible = False End If ومرفق المثال أيضاً تقبلوا شكري وتقديري Visible Current Record.rar

السلام عليكم ورحمة الله وبركاته فورم لاجراء قرعة لبيانات معينة وهوطلب لاحدهم في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=55244 جعلته هنا لتعم الفائدة ملاحظة : تم اضافة امكانيات اخرى لهذا المرفق المرفق 2003 قرعة.rar ================================================================= وردني هذا السؤال على الخاص المرفق 2003 قرعة متعددة الاختيار.rar

السلام عليكم ورحمة الله وبركاته ،،، اخواني الاعضاء ،،، طلب نصيحه او ابداء رأي او توجيه لمساعدتي في قاعدة البيانات المرفقه ،،، باختصار علمات قاعدة بيانات تحتوي على : 1- جدول الموظفين ( الجدول الرئيسي ) ونموذج الموظفين وتقرير الموظفين . 2- جدول الاجازات ونموذج الاجازات وتقرير الاجازات . 3- جدول تحديد العقد ونموذج وتقرير ايضا 4- جدول تقرير كفاءة موظف ونموذج وتقرير ايضا . 5-جدول المباشرة ونموذج وتقرير ايضا . 6- جدول المسئولين ونموذج وتقرير ايضا .. وطلبي هو ان يتم اخذ البيانات فيما يخص كل جدول من جدول الموظفين الرئيسي اي ان الجداول تحتوي على حقول موجودة في جدول الموظفين الرئيسي وتختلف الحقول في كل جدول وتتشابة ايضا في بعضها ولكن هي موجود بجدول الموظفين ولكنني استخدمت طريقة عن اختيار اسم الموظف تظهر باقي بياناته كما في الموضوع المرفق رابطه ادناه .... http://www.officena.net/ib/index.php?showtopic=53466 وايضا لقد شرحت بعض النقاط على نفس قاعدة البيانات ،،، اتمنى المساعدة ان امكن الموظفين.rar

السلام عليكم ورحمة الله وبركاته ،،، لدي مشكلة في النسبة المئوية واتمنى منكم المساعدة ( تم شرح كل شيء داخل قاعدة البانات المرفقه ) باختصار :: عند كتابة اي رقم في خانة النسبة المئوية يتحول صفر تلقائيا واريد ادخل النسبة الشهرية كل شهر وهي : النسبة الحالية للمشروع : النسبه السابقة للمشروع : النسبة حسب البرنامج الزمني ... وعند اختيار اسم المشروع تظهر جميع النسب المدخلة سابقا منذ بداية المشروع . ولكم جزيل الشكر project.rar

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

السلام عليكم ورحمة الله وبركاته ،،، لدي نموذج وارغب مساعدتي في تعديله ،، في البداية عملت جدول يحتوي على حقول بعضها تشمل نصوص والبعض يحتاج إلى جمع ولكن هناك خانات كثيرة وبعد محاولات عديدة لم انجح ولذلك طرحت المشكلة هنا في المنتدى لعل احد الاخوة يساعدني فيها.. صورة توضح المشكلة ... http://www.m5zn.com/newuploads/2014/04/16/jpg//c31bbfbd047cc12.jpg

السلام عليكم ورحمة الله وبركاته ،،،، لدي طلب واتمنى المساعدة لمن لدية الخبرة وهو عملت قاعدة بيانات صغيرة تتكون من جدول ونموذج اما الاستعلام والتقارير ليس الان واريد عند اختيار اسم الوحدة من خانة اسم الوحدة تظهر جميع مشاريعها بالاسفل (مرفق صورة ) وايضا قاعدة البيانات ... ولكم جزيل الشكر ،،، مسبقاً ">http:// قاعدة بيانات الوحدات.rar