محمد طاهر

مشكوور و فى انتظار المزيد من الامثلة التي ستغني الارشيف

مشكووور و فى انتظار المزيد من الامثلة المفيدة

لنفرض أن لديك جدول اسمه t1 و لا تريد اظهار تكرار الاسماء به SELECT DISTINCT t1.Name, t1.Salary FROM t1; و بازالة كلمة Distinct تظهر الاسماء المكررة

جرب معالج الاستعلام المسمي Find Dublicate Query Wizard و الذي تختاره عند اختيار استعلام جديد و هذا حل مناسب اذا كنت تريد عمل ذلك لمرة واحدة

أهلا بك أخ محمد فى قسم الأكسس بالنسبة للجمع بين الجدولين فى الفورم ، يتم عمل استعلام يجمع بين الجدولين ثم جعل هذا الاستعلام هو مصدر بيانات الفورم أو من مصدر بيانات الفورم ، استخدام المعالج الموجود فى الزر علي يمين مصدر البيانات لبناء جملة SQL بين الجدولين تحل …

هذا مثال للأخ أبو هادي فى موضوع *فورم* برمجة المفاتيح ( الاختصارات ) فى الارشيف و يمكن استغلاله كالتالي Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case Shift Case 1 'Shift Case 2 'Ctrl Select Case KeyCode Case 113 'F2 MsgBox "Mohanad…

جميل جدا (f) (f) (f)

أرجو أن يكون هذا مفيدا http://www14.brinkster.com/mtarafa/VBAccessADO.htm

المواضيع الموجودة فى المنتدي العادي حوالي 2000 موضوع نستخلص منها المفيد و ننقله تباعا الي الارشيف الذي به الآن أول مائة

اليوم أصبح لدينا 100 مشاركة مميزة فى الأرشيف هذا رقم جيد و عقبال ما يصبحوا 500 التصنيف موجود فى موضوع مثبت فى الارشيف و فى صفحة أكثر وضوحا فى توقيعي و لكن لم أضف اليها آخر مجموعة نقلت حيث أن جميع الروابط مرتبطة يالموقع الاصلي للمنتدي و الذي سنعود اليه قريبا با…

اولا هناك قسم خاص للاوفيس ما عدا الاكسس و آخر للاكسس تحديدا أما عن السؤال: Round لتقريب رقم معين بدرجة محددة Integer للحصول علي رقم صحيح من رقم به كسر Vloookup للحصول علي رقم مناظر للرقم المكتوب بناء علي قائمة بها القيم المناظرة Trunc لاختصار القيمة بعد العلام…

للرفع يبدو أنني لم أوضح قصدي من الموضوع فلم اعده بغرض أن يكون معلومة طريفة !! و لكن من الطبيعي أن يمكن الاستفادة من تحليل أي احصائيات و مقارنات فماذا يمكننا أن نخرج به من هذه المقارنات :'( :'( :'( :mad:

قام أخوكم محسن محمد باعداد هذا المثال مثال محسن اضغط بالزر الايمن واختار حفظ باسم

بالمكان الغاء تفعيل القوائم المختصرة و مفاتيح الاختصارات من Tools startup أدوات خيارات بدء التشغيل

و بارك فيك يا أخي و من الممكن الاستغناء عن ال dd Function xx1(amount) xx1 = amount * 4 / 2 End Function

ما أفعله عندما أواجه مشكلة لا أري حلها واضحا أمامي فى البرمجة هو أحد حلين: 1- فى حالة الاستعجال ، الاستعانة بأحد أصدقائي ، لكي يري الموضوع من وجهة نظر جديدة ، و هذا أيضا يفعلونه هم معي و هي طريقة ناجحة و مجربة ، و نسميها بيننا "النظر الي المشكلة بعين جديدة" فت…

ضع الدالة فى موديول لكي تصلح للاستخدام خارج الفورم وعدلها كالتالي Function xx1(amount) dd = amount * 4 / 2 xx1 = dd End Function

لقد أوردت مثال عن تغيير خواص كلمة معينة فى قسم الاوفيس و ذلك لبرنامج الوورد و يوجد مثال عن تغيير التنسيق و آخر عن عد الكلمات و لكن فى الوورد هناك كائن يسمي word يعبر عن الكلمة أما هنا فسنضطر للتعامل مع الحروف ، وهذا حل غير عملي ، فراجعوا أمثلة قسم الاوفيس و من…

بنفس طريقة اللوب التي استخدمتها عند الحذف Dim dbsLocal As Database Dim tblLocal As TableDef Set dbsLocal = CurrentDb For Each tblLocal In dbsLocal.TableDefs امر النسخ للجدول tblLocal Next tblLocal MsgBox "تم حذف جميع جداول القاعدة" End Sub و في انتظار المثالين…

مثال جميل و التحديث لملف الاكسل من الفورم يعمل بصورة جميلة