نجوم المشاركات

السلام عليكم ورحمة الله تعالى وبركاته فى البداية اود ان اعتذر عن قلة مشاركاتى وذلك لقلة تعاملى مع الاكسس نظرا لانشغالى بـــ بيئة بيسك.نت ببساطة نحن مستخدمى الاكسس نريد ان يكون لدينا هذا الزر فى برامجنا 😂😂😂 اولا كان لدى محاولة واحدة عن كيفية جعل المستخدم يبحث عن تحديثات جديدة للبرنامج الخاص به عن طريق الانترنت فكانت نتيجة المحاولة هو ربط قاعدة البيانات اكسس بقاعدة بيانات سيكوال موجودة على استظافة مجانية قاعدة سيكوال بها حقلين هما رقم النسخة الجديدة ورابط التحميل الخاص بالتحديث الجديدة وهذا الموضوع يشرح ذلك وكانت اكبر المشاكل التى تقابلنى هى الاستضافة المجانية التى بعد شهرين او اكثر تحذف قاعدة بياناتك بدون سابق انذار ولا يوجد المال الكافى لحجز استضافة ورفع قاعدة البيانات سيكوال الخاصة بك عليها فكان التفكير فى استخدام البرامج السحابية (جوجل درايف - وان درايف - دروبوكس ) واكبر المشاكل التى ستقابلك هى المزامنة ثم المشكلة الاخرى وهى انك لن تطلب من كل المستخدمين تثبيت اى من البرامج السحابية لديه واعطائة اسم المستخدم وكلمة السر الخاص بالبرنامج السحابى الذى سترفع عليه التحديث حتى تتم المزامنة على جهاز العميل اولا باول اذا فما هو الحل انا اريد ان يضغط العميل على زر ( البحث عن تحديث جديد ) ثم يجد رسالة تخبره ان برنامجه محدث او انه توفر اصدار جديد من البرنامج اليكم فكرتى قد تحتاجونها او لا ولكن ما كنت لابخل عليكم بشئ فاء الله على به الفكرة بسيطة جدا تتلخص فى ملف نصى LastVersion.Txt قمت بكتابته به مجموعة اسطر الاول هو رقم الاصدار الجديد الثانى هو رابط تحميل التحديث الجديد وبعد هذا سطور على حسب الحاجة تقوم بالتعريف فيها بالتحديث الجديد ومميزاته طريقة العمل سيقوم المرفق الذى سادرجه هنا بتحميل الملف النصى من حسابك الخاص على دروبكس وتفريغ الاسطر التى بداخله الى مربعات النصوص التى بالنموذج ثم يقارن رقم التحديث الجديد بالرقم الحالى ويعلمك اذا كانت نسختك محدثة ام تحتاج تحديث المشاكل التى واجهتنى 1 - عدم وجود (direct download link او static download link ) نظرا لتغير رابط تحميل الملف النصى دائما فماذا سافعل اذ قمت مسبقا بادراج رابط ثابت لتحميل الملف النصى داخل البرنامج 2 - اذا اطلقت نسخة جديدة من برنامجى فساحتاج الى تعديل الملف النصى المحمل مسبقا والمدرج رابط التحميل الخاص به فى النموذج فكانت الحلول هو عمل static download link للملف النصى اى رابط تحميل ثابت للملف النصى تابع معى المتطلبات ---------------------- ان يقوم مصمم البرنامج فقط بالتسجيل على الموقع السحابى (https://www.dropbox.com/h) .. المصمم فقط ان شئت قلت كأنك حجزت استضافة مجانية بها 12 جيجا بايت ومجانية لانه بعد التسجيل سنحتاج اسم المستخدم وكلمة المرور لكتابتهم فى دوال التحميل داخل المرفق وهما دالتان مثل هذا الشكل الدالة الثانية ثم يقوم بانشاء الملف النصى الخاص بالبرنامج الذى صممه انا كتبته بهذا الشكل سنستخدم البرنامج السحابى دروبوكس (https://www.dropbox.com/h) بعد التسجيل - يمكنك التسجيل بسهوله عليه عن طريق رابط جوجل دون الحاجة الى ملئ البيانات بعد التسجيل ستجد نفسك فى الصفحة الرئيسية الخاصة بك بعد كتابة الملف النصى نقوم برفعه على الدروبكس بعد رفعه على الدروبكس نقوم باخذ اللينك الخاص به كوبى وذلك لعمل رابط مباشر له لتحميله بعد اخذ اللينك كوبى بقى اهم خطوة وهى عمل رابط تحميل مباشر له تابع معى ستجد رابط المشاركة بهذا الشكل الرابط الذى اخذته كوبى https://www.dropbox.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 فقط استبدل https://www.dropbox.com استبدلها https://dl.dropboxusercontent.com ليصبح شكل الرابط هكذا https://dl.dropboxusercontent.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 وبذلك اصبح لديك رابط مباشر له بعذ ذلك خذ الرابط الجديد وادرجه فى البرنامج فى هذا الكود ثم نقوم برفع القاعدة الجديدة المحدثة على الدروبكس وعمل رابط مباشر لها ولكن هذه المرة نقوم بادراج الرابط المباشر هذا فى الملف النصى لا فى البرنامج مع مراعاة ان نقوم بتحديث رقم الاصدار فيها قبل رفها ليطابق رقم الاصدار الموجود فى الملف النصى والان فيديو يشرح طريقة العمل تم اضافة اسم للمستخدم وكلمة السر يمكنك الان تجربة البرنامج المرفق LinkToUpdate.accdb اتمنى ان اكون عرفت اشرح وطبعا انا منتظر تشريفكم بتعليق لتجربة مرفقى المتواضع

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

السلام عليكم ورحمة وبركاته من باب المساهمة ومساعدة من قد يستفيدوا من هذا المشروع ارفقه لكم وفي حال وجود اخطاء او نواقص تبخلوا علينا بذكرها stores.and.salesmen.rar

كلمة المرور admin كلمة السر ١ او اذهب الى جدول اليوزر

هل ممكن أن نحاول نحن في وضع بعض النقاط كعصف ذهني للموضوع

استاذي الفاضل AlwaZeeR ربي يخليك يارب نعم هذا هو المطلوب تماما بارك الله فيك وجزاك الله خيرا والله لايحرمنا من شخصك الكريم يارب

وعليكم السلام تفضل تم الحل بمعادلات الصفيف بارك الله فيك RECU_05.xlsm

اعذرني اخي لضيق الوقت: تفضل =Day(DateSerial(Year(Date()),Month(Date())+1,0)) Dim iloop As Integer For iloop = 1 To 31 With Me Me.Controls("d" & iloop).ColumnHidden = True End With Next For iloop = 1 To DateNo ' الحلقة تنتهي بعدد ايام الشهر كما تم في المعادلة السابقة With Me Me.Controls("d" & iloop).ColumnHidden = False End With Next ProgEmp.rar

السلام عليكم ورحمة الله اخواني كنت قد شاركت بعض الاخوة مشروعا بسيطا لتسديد الفواتير سواء مبيعات اومشتريات وكان المشروع غير مكتمل البنية احببت ان ارفق لكم ما حاولت به لاجعله مقبولا وقابلا للاستخدام 737.rar

زؤر زؤر زؤر سوباس برا كيان خؤشحالم.......سررت بلقائکم ھنا ... اھلا و سهلا بکم

والله أعجز عن شكرك أخي واستاذي شفان الله يوفقك ويسعدك مبدع دائماً ومتألق

شکرا لک وجزاک الله کل خیر

عندما أتابع المنتدى مايسعني أن أقول لك بارك الله فيك أستاذ @Shivan Rekany وجزاك الله خيراً على ماتقدمة من مساعدة لنا

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

13.accdb

السلام عليكم تفضل اخي الكريم علماً ان الملف من موقع اجنبي وعدلته عليه بعض التعديلات أرسال.mdb

الكود يكتب هكذا Option Explicit Sub test_Me() Dim i As Byte For i = 2 To 7 With Cells(i, 1) If .Value >= 50 Then Cells(i, 2) = "ناجح" Else Cells(i, 2) = "راسب" End If End With Next End Sub

هل تريد ان يظهر لك هكذا كما مبينة في الصورة الاسفل او تريد ان يظهر تواريخ اسم سالم فقط

يسألونك دائماً عن ملف الصادر والوارد فكان هذا الملف الذي ارجو ان يستفيد منه اكبر عدد من المستخدمين فقط املأ الجدول بالبيانات اللازمة و حدد صفحة الترحيل واضغط على الزر من مميزاته: لا يسمح لك بتكرار رقم الصادر او الوارد لا يسمح لك بترحيل بيانات غير مكتملة Sader_Wared.xlsm

كل الخطوط الجديدة ستجدها في هذا الموقع الرائع https://arbfonts.com/

شكرا جزيلا على هذا الكود الرائع بعد اذن حضرتك عملت تعديل على الكود بحيث يخفي الصفوف الفارغة - أو يظهرها مرة أخرى Sub ss() Application.ScreenUpdating = False For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = True Range("A1").Select Application.ScreenUpdating = False End Sub Sub ss2() Application.ScreenUpdating = False For i = 5 To 100 If Mid(Cells(i, 1), 1, 1) = "" Then Cells(i, 1).Value = "" End If Next i Range("A5:A100").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Hidden = False Range("A1").Select Application.ScreenUpdating = False End Sub ss اخفاء ss2 اظهار شكرا إخفاء وإظهار الصفوف التي الفارغة.rar