alasomed

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

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

السلام عليكم زرحمة الله جعل الله هذا الشهر شهر يمن وبركة على جميع المسلمين آمين انطر أخي المرفق لعل به المطلوب أحوك أبو تماضر Copy_of__________________.rar

أنصخك أن تراجع العلاقات بين الجداول

مشرفتنا القديرة , الأستذة زهرة مشرفنا الغالي , فهد الدوسري السلام عليكم ورحمة الله وبركاته وكل عام وانتم بخير بمناسبة شهر رمضان المبارك بعد إذنكما , ألتمس السماح بمشاركتكما هذا الموضوع . في المرفق التالي تعديل يفي بطلب أخينا alslami ألتمس الفحص , والتعليق مشكو…

في البداية ألتمس كل العذر فيما وقع من أخطاء في مشاركتي ولك التعديل آملا الدعاء db2.rar

تحتاج إلى إنشاء فورم يستمد بياناته من هذا الجدول أضف Command Button للترتيب فيحدث عند النقر لهذا Command Button أضف الكود التالي Dim Rs As Database Dim X, Rct, I As Integer Set Rs = Me.RecordsetClone With Rs .MoveLast .MoveFirst Rct = Rs.RecordCount X = 1 For …

السلام عليكم ورحمة الله المشكلة الأولى قد حلت , وأرجو أن يكون ذلك المراد أما المشكلة الثانية فلم أفهم المراد , هل يمكنك التوضيح أكثر ؟ عفوا ام يتم الإرفاق هاهو الملف _______.rar

السلام عليكم حسب معلوماتي المتواضعة : لايمكن والله أعلم

الرجاء التوضيح : ما المقصود بالفيجوال بيزيك ؟ أهو كود الفي بي أي المضمن بتطبيقات أوفيس / أكسيس أم هو تطبيق خارج الأكسيس ويتعامل مع قواعد البيانات أكسيس ؟

جعلها الله في ميزان حسناتك

جاري التحميل مع الشكر سلفا

السلام عليكم ورحمة الله الأخت الفاضلة زهرة تحية تقدير واحترام لم أستطع الاطلاع على مثالك المرفق بسبب تنسيقه على أكسيس أحدث من أكسيس 2000 فهل يمكن إعادة التنسيق ؟ شاكر لجهودك وصبرك

السلام عليكم ورحمة الله انقل الكود التالي في حدث ضغط الزر Set dbs = CurrentDb dbs.Execute ("SELECT a.* INTO b FROM a") dbs.Close والله الموفق

السلام عليكم ورحمة الله أخي dbprog أرجو توضيح ما المقصود بـ:" تظهر بشكل عكسي " , وإن كان ولا بد أرفق مثالا للتعديل وشكرا

السلام عليكم ورحمة الله أخي الباشاقمرالزمان هل الحقول جميعها في النموذج غير منضمة ؟ إن كانت كذلك , أضف الكود التالي لزر (Efface) مثلا Private Sub Efface_click() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Then With ctl .SetFoc…