رياض الراوي

يمكن ذلك بتغيير f1 باسم النموذج الخاص بك في كود نموذج (دخول) بعد أن تستورده لقاعدة بياناتك DoCmd.OpenForm "f1" Forms!f1.Caption = s Forms!f1![ww] = s وبنسخ أو إنشاء مربع نص باسم ww في نموذجك مع التمنيات لك بالتوفيق

السلام عليكم: المثال الذي أورده الأخ anowrosh88 مثال جميل ومفيد أشكره عليه. ولفهمه يجب أن نحلل حدث النموذج عند التحميل Form_Load وحدث عند الموقت الزمني Form_Timer Private Sub Form_Load() DoCmd.OpenForm "form2" ' شريط متحرك بأعلى النموذج Me.Caption = "مدرسة بلال بن رباح طلاب المرحلة الخامسة ................ " ' شريط متحرك بالنموذج وهو يأخذ قيمته الابتدائية من مربع النص [aa] في النموذج [form2] Me.lblScrollingLabel.Caption = Forms![form2]![aa] ' شريط متحرك بأسفل النموذج txtScrollStatus = "وما أوتيتم من العلم إلا قليلا .. لا تنسونا من الدعاء" & Space(25) DoCmd.Close acForm, "form2" End Sub Private Sub Form_Timer() ' تنتنج النص المتحرك في شريط عنوان النموذج Me.Caption = Mid(Me.Caption, 2, _ (Len(Me.Caption) - 1)) & Left(Me.Caption, 1) ' تنتنج النص المتحرك في مربع التسمية على النموذج Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _ (Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1) ' تنتنج النص المتحرك في شريط الحالة للأكسس SysCmd acSysCmdSetStatus, txtScrollStatus txtScrollStatus = Mid(txtScrollStatus, 2, (Len(txtScrollStatus) - 1)) & Left(txtScrollStatus, 1) End Sub

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

السلام عليكم: الشرح بعد إذن أخي ابو خليل : تسمية مربع النص t الجديد هي مسافة فارغة قبل التسمية الافتراضية "بسم الله الرحمن الرحيم" Me.t.Caption = " " + Me.t.Caption إذا أصبح طول محارف تسمية مربع النص t مع المسافات الفارغة يساوي 100 فإن التسمية تصبح " بسم الله الرحمن الرحيم" ويتكرر الحدث مع عداد الوقت للنموذج وقيمته /100/ يعني 0.1 ثانية If Len(Me.t.Caption) = 100 Then Me.t.Caption = " بسم الله الرحمن الرحيم"

السلام عليكم: الاستعلام في المثال المرفق ورقمه 3 db8.rar

بعد التحية: كقاعدة عامة يفضل عدم إضافة حقل إلى الجدول عندما يوجد الإمكانية لتعويض هذا الحقل في الاستعلام كمثال:حقل الإجمالي في معادلة السعر × الكمية = الإجمالي وهذا ينطبق على حقل grope_donor لديك حيث أن فئة المتبرع تختلف من عام إلى آخر بحسب مبلغ التبرع وهذا يتيح لك وضع اسم واحد لكل متبرع وإضافة تبرعاته إلى هذا السجل مع الحصول على إحصائيات عديدة. بالإضافة لدقة الاستعلام الذي أوردته وإمكانية دمج نتائجه مباشرة مع ملف الوورد

السلام عليكم: الجواب إنشاء الله في المرفق ويمكنك تغيير القيم وفق رغبتك db8.rar

السلام عليكم: في الملف المرفق الإجابة على جزء من سؤالك أما بالنسبة لدمج المراسلات فما هي الحقول التي تود دمجها وما هي الصيغة التقريبية لملف الوورد. نظام التواصل مع المتبرعين.rar

اخي العزيز: اسم النموذج هو order detail2 Subform وليس ORDER DETAIL وكتابته بشكل خاطيء في جملةdlookup هو أحد أسباب الخطا الحاصل وفي الملف المرفق يمكن إدخال categoryname وproductname بعد عمل استعلام Query2 والذي نقوم فيه بالربط بين جدولي ordere detail1 وجدول product عبر الحقلproductid كما نقوم بالربط بين جدولي product و category عبر الحقل categoryid وبالتالي يتم تحقيق الصلة بين حقل productid الموجود في النموذج order detail2 Subform وحقل categoryname الموجود في جدول category . وأرجو ان يكون فهمي لطلبك صحيح مع التحية Northwind - Copy - Copy.rar

السلام عليكم: اخي العزيز طلبك سهل ولكن المشكلة أنك قدمت المسميات باللغة العربية ودون ان ترفق قاعدة بيانات. ثم حين أرفقت قاعدة البيانات كانت المسميات باللغة الإنكليزية ومن يحاول إجابة طلبك يحتار في محاولة معرفة طلبك بالضبط

الأخ humad بعد التحية: في المثال المرفق تقرير به عدد الذكور وعدد الإناث للفئة العمرية بين 1 و12 سنة مع مجموعهما لكل مرض على حدة ويمكن نسخ مربعات النص وتغيير بعض القيم داخلها لتحصل على بقية الإحصائيات. dad.rar

السلام عليكم: لقد تم الحساب على أساس 0.25% من قيمة التأمين(على الركاب) وليس من قيمة التأمين الكلي ويمكنك تعديل المعادلة لتناسب طلبك db6.rar

السلام عليكم: اخي العزيز آسف لتأخري في الرد بسبب العمل وربما لو لم تحدد اسمي في طلبك لأجابك احد زملاءنا في المنتدى. على العموم هذا ملف وورد مع امثلة موجودة لدي منذ سنوات بعيدة من موقع عربي هو msaccess4arab مع الشكر لمن تعب في إنجازها. أما nz : - لتحويل الـ Null إلى "" : CODE myVar = Nz(Me.textBox1) - لتحويل الـ Null إلى صفر : CODE myVar = Nz(Me.textBox1,0) دوال الأكسس.rar Aggregate2000.zip DateTime2000.zip Tdafuq2000.zip

أخي GNMQ8 : أقدم لك طريقة للبحث بصندوق إدخال(Input Box) مع رسالة تنبيه بعدم وجود السجل الذي تبحث عنه.وهي أقرب إلى المثال الأجنبي من الطريقة التي وجدتها في المنتدى مع التحية InputBoxSearch.rar

السلام عليكم: أرفق مثال أرجو أن يلبي طلبك. ComboBoxSearch.rar

السلام عليكم: ان شاء الله يقدم المثال المطلوب والدالة كما تلاحظ هي DLookup. DLookup.rar

السلام عليكم: آسف للتأخر وانشالله المرفق يؤدي الغرض db2.rar

نعم ممكن مثال: =Count(IIf([اسم الحقل]="مهندس مدني";1;0)) يعني إذا كانت القيمة المسجلة في الحقل المحدد تساوي "مهندس مدني" فاحسب القيمة /1 / وإذا لم تكن لا تحسبها أو اعتبرها تساوي الصفر.

السلام عليكم: ربما المثال المرفق ليس ما طلبت تماماً ولكن أرجو ان يؤدي الغرض. db2.rar

السلام عليكم: هذه الظاهرة تزول إذا أزلناحقول الربط بين النموذج الفرعي subFrmProductsStock والموجود في النموذج الفرعي frmAddEditProducts في النموذج frmContractors. ربما يجب تغيير التصميم بوضع النموذج الفرعي للنموذج الفرعي مباشرة في النموذج الرئيسي ويمكن الربط بين نموذجين فرعيين ضمن نموذج رئيسي بطرق مختلفة ولم أتمكن من التوسع لأن حفظ التغييرات غير ممكن في النسخة المماثلة. والسلام

السلام عليكم: الحل في المرفق وهو معدل عن قاعدة بيانات قديمة ربما من منتدانا. عدم ترك مربع نص فارغ.rar

إليك التعديل أرجو ان تقوم بتطبيقه على قاعدة بياناتك لاحظ إضافة حقل ترقيم تلقائي وتغيير الكود لإبقاء ما هو ضروري فقط لطلبك والسلام total.rar

السلام عليكم: أهنئك واهنيء كل أعضاء المنتدى الكرام وزواره بحلول عيد الأضحى المبارك. يوجد مثال لقاعدة بيانات تنسخ الجداول احتياطيا لمجلد موجود طبقته على قاعدة بياناتك ولكن يجب الالتزام بما يلي: 1- يجب أن يكون لدينا مجلد باسم(الرصد)في القرص الصلب (D) ليتم نسخ الجداول إليه 2-يجب ان يبقى النموذج (Main) مفتوح من أجل عملية النسخ الاحتياطي كل نصف ساعة لأنها ترتبط بحدث (عند عداد الوقت) والفاصل الزمني يساوي /1800000/ أي نصف ساعة. مع التحية My_Database.rar

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

أخي العزيز: غير تسميات التقارير إلى rpt_حافظة تسليم نتيجة rpt_كشف رصد وسيتم الفتح أو من حدث زر Open غير السطر التالي: DoCmd.OpenReport "rpt_" & stDocName, acPreview إلى DoCmd.OpenReport "rpt " & stDocName, acPreview