-
Posts
2,219 -
تاريخ الانضمام
-
Days Won
30
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو محمد حسن المحمد
-
السلام عليكم ورحمة الله وبركاته أستاذي الكريم طارق محمود ...عمل متقن ورائع يستحق الشكر والثناء.. جزاكم الله خيراً.
-
السلام عليكم ورحمة الله وبركاته عمل رائع وممتع أخي الكريم الزباري من الملاحظ أنه يقوم بمسح الصورة السابقة كل مرة فلا تبقى في المجلد testfolder إلا صورة واحدة لتعرض ضمن الفورم ...رائع حقاً ولكن عندما نقوم بتحويل الورقة من اليمين إلى اليسار فإنه لا يقوم بتصوير الجدول بل يعرض صورة بيضاء للقسم الأيسر من الورقة تقبل تحياتي العطرة والسلام عليكم.
-
صباح الخير اثبت حضورك بكلمة
محمد حسن المحمد replied to ياسر العربى's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على هذه المساهمة الطيبة -
السلام عليكم بصراحة اليوم شغلي خفيف فتابعتكم متابعة حثيثة . ليتها تسنح لي الفرصة لأكتسب من علومكم وأشارككم آراءكم وأسعد بمخاطبتكم
-
السلام عليكم ورحمة الله وبركاته الغالي يرخص لك أبو البراء...أنت تمون وتستاهل كل خير ...إن لم أعجب بهذه الأعمال الراقية فلا حاجة لهذا الرصيد...
-
السلام عليكم ..الآن استوعبته ...جزاكم الله خيراً وجعلكم وذريتكم صالحين ناصحين ..آمين هذا الملف مفيد لي في عملي لأنني كثيراً ما أحتاجه... والسلام عليكم ورحمة الله وبركاته
-
السلام عليكم عشنا أياماً جميلة استمتعنا واستفدنا من مصطبة أخينا الحبيب ياسر العربي فهل ستتكرر مثل هذه الأيام الجميلة أم أنها ولت إلى غير رجعة... حنين وشوق لأيام خلت...دياركم عامرة أخي الحبيب ياسر أبو أسيل وكذلك أخونا الحبيب الصقر الذي قلت مشاركاته بعد الترقية ثم الرجوع عنها ....سبحان الله والسلام عليكم
-
إيجاد حل لإعادة الملف للتصميم والإضافة
محمد حسن المحمد replied to محمد حسن المحمد's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته أخي الحبيب أبو خليل جزاكم الله خيراً ..أشكركم على الهدايا القيمة التي أتحفتمونا بها وفقكم الله لما يحب ويرضى والسلام عليكم ورحمة الله وبركاته -
إيجاد حل لإعادة الملف للتصميم والإضافة
محمد حسن المحمد replied to محمد حسن المحمد's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أخي الحبيب أبو خليل ...سأعمل بنصائحكم إن شاء الله تعالى وفقنا الله وإياكم لما يحب ويرضى والسلام عليكم. -
إيجاد حل لإعادة الملف للتصميم والإضافة
محمد حسن المحمد replied to محمد حسن المحمد's topic in قسم الأكسيس Access
جزاكم الله خيراً تم فتح الملف ...رفعت لكم في المشاركة السابقة ملف يرجى الاطلاع عليه والسلام عليكم. -
إيجاد حل لإعادة الملف للتصميم والإضافة
محمد حسن المحمد replied to محمد حسن المحمد's topic in قسم الأكسيس Access
السلام عليكم أخي الحبيب أبو خليل جزاكم الله خيراً على هذه المعلومة الطيبة والاستجابة السريعة سأجرب إن شاء الله تعالى وأخبرك بالنتيجة برنامج الموردين والعملاء2000.rar -
إخوتي الكرام في قسم الأكسز السلام عليكم ورحمة الله وبركاته ... تحية طيبة معطرة لكم جميعاً كنت أتابع تصميم برنامج الموردين والعملاء على الأكسز وأطبق ما يذكر في هذه الدروس وكان ختام هذا الدرس الأخير 1- إلغاء السماح بالقوائم الكاملة 2- إلغاء السماح بالقوائم المختصرة الافتراضية ..أغلقت الملف ثم أعدت فتحه وإذ به بكشف الحساب لم يعمل كما يجب وكما كان قبل الإغلاق أما طلبي من سيادتكم - فضلاً لا أمراً - إعادة الملف لاستكمال التصميم والتحرير لاستيعاب دروساً أخرى . وطلبي الآخر هو استعراض آرائكم بمحتواه فإن كان به ما يحتاج لإصلاح أو نقطة غائبة عني لاستدراكها ... ولكم جزيل الشكر والسلام عليكم ورحمة الله وبركاته. برنامج الموردين والعملاء.rar
-
صباح الخير اثبت حضورك بكلمة
محمد حسن المحمد replied to ياسر العربى's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
فسيكفيكهم الله http://www.yafita.com/a/2181333/ -
السلام عليكم ورحمة الله وبركاته أساتذتي الكرام ...أخي الحبيب أبو البراء جزاكم الله خيراً على ما تتفضلون به من أعمال تنهض بحركة الفكر العربي "البرمجي" أما بالنسبة لي فتحرك بي سرعة البحث عن فكرة لأطبقها وفقاً لما تطلبون أو تقترب منها عكس القيم : 1- نكتب القيم التي نريد في العمود A من A1:A6 2- ننسخها إلى العمود B من B1:B6 3- نكتب في موديول الكود التالي: Sub FlipColumns() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "عكس القيم" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("المدى", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub 4- نضغط F5 أو Run من يطلب تحديد المدى وهنا من B$1:$b$6 $ ثم موافق فنحصل على النتيجة المقاربة لطلبكم الكريم. والسلام عليكم ورحمة الله وبركاته. عكس القيم.rar
-
السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أخي الكريم حراثي تواتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم . جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته.