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

اعتقد ولا أجزم بأن هذه الجزئية تمت اضافتها من قبل موقع الاستضافة مؤخراً لتخفيف الضغط على السيرفر تخيل ان كل شخص يفتح الاتصال مع قاعدة البيانات ويترك الاتصال مفتوح بدون العمل كم مقدار الضغط الذي سيتعرض له السيرفر لذلك وضعوا هذه البرمجية لفصل الاتصال أعيد وأكرر لا أجزم بهذا الكلام بعد مشاهدة رابط الموضوع اللي وضعه استاذنا ابو خليل صار عندي تصور عن المطلوب سؤالك هذا غير مجرى الموضوع 180 درجة سأعطيك رايي كمستخدم لمواقع الاستضافة لقواعد بيانات SQl Server لمدة 6 اشهر 1 - طريقة ربط الاكسس مع جداول قواعد بيانات Sql server عن طريق ODBC أو ما يعرف بالاتصال المتصل بحيث يتم انزال نسخه مرتبطه من الجداول في قاعدة بيانات الاكسس وعند فتح الجدول يبقى الاتصال مفتوح دون انقطاع هذه الطريقة غير مجديه فعند وصولك لعدد 500 سجل ومحاولة عمل استعلام فرز وعمليات حسابية او جلب بيانات مرتبطه ستكون هذه المعالجة للبيانات بطيئة جدا جدا اضف الى ذلك عند فتح الاستعلام من خلال نموذج وعمل بعض الاوامر البرمجية ستصاب بالملل لأن جلب البيانات للنموذج في حالة كان لديك عدد السجلات المذكورة سيأخذ منك وقت لايقل عن 3 دقائق كحد أدنى ربما يخطر لك سؤال هنا وتقول ان هذا بسبب موقع الاستضافة بناء على المساحة التي قمت بشرائها والسرعه ...... ألخ سأجيب واقول لك جربت اكثر من موقع ومن ضمنها مساحه على Azure وهذا من أفضل المواقع للاستضافة إن لم يكن أقواها على الاطلاق بناءً على نوع الاشتراك عند تجربته تحسن الاتصال نوعا ما وكان الأمر شبه مقبول ولكن قيمة الاشتراك في هذه السيرفرات مكلف جدا طبعا الأمر يختلف تماما عند عمل سيرفر على جهازك او من خلال شبكه داخلية ستجد الأوامر سريعه جدا بناء على مواصفات الجهاز نأتي للأمر الأخر 2- الاتصال بقواعد بيانات Sql Server في مواقع الاستضافة بتقنية Dbset أو ما يعرف بالاتصال المنفصل ان شاء الله يكون المصطلح صحيح بحيث تقوم بتعريف الاتصال والمتغيرات وتكتب جمل الاتصال بالجدول او stored procedure أو الاستعلام تفتح الاتصال وتجلب او ترسل البيانات ثم تقوم بإغلاق الاتصال بدون أن يكون عندك جداول حيث يتم تخزين البيانات في الذاكرة وتقوم باستعراضها عن طريق النموذج او تقوم بالاضافة او التعديل والحذف ثم تعيد ارسالها الى قاعدة البيانات مباشرة للجدول او عن طريق stored procedure هذه الطريقة مشابه بحد كبير الى طريقة برامج visual basic هذه الطريقة جدا ممتازة وسريعه جدا إذا كان بناء البرنامج صحيح وكل شي تمام ولكن تحتاج جهد وعمل كبير وكثير يعاب على هذه الطريقة عدم استطاعتك بناء بعض التقارير عن طريقها حيث ستحتاج الى تصميم جداول مؤقته ثم تجلب البيانات وتخزنها بالجدول وبعد ذلك تستطيع بناء التقرير وهذا هو موضوع كود الاتصال الذي وضعته لك أتمنى أكون قدرت افيدك بشي عن الموضوع

السلام عليكم محاولة أخرى بكود في الشيت "Feuil1" (بتحفظ)... مع الحل (بالمعادلات) السابق في شيت "Sheet1"... برمجة حساب راتب2.xlsm

تفضل أخي العزيز 🙂 عدلت لك الدالة بحيث أنك تعطيها تاريخ البداية وتاريخ النهاية ورقم الأسبوع لكل مربع نص .. والدالة ترجع قيمة رقمية 0 و 1 ... الصفر يعني أن هذا الأسبوع ليس من ضمن نطاق الإجازة ، والواحد من ضمن نطاق الإجازة .. وبعدها بالتنسيق الشرطي تلون المربعات التي بها 1 .. ويمكنك إخفاء الأرقام بتلوينها نفس مربعات النص 🙂 وهذه هي الدالة : Public Function IsWeekIn(StartDate As Date, Enddate As Date, ThisIsWeekNumber As Integer) As Integer 'هذه الدالة تقوم بكتابة 1 في الأسابيع الواقعة بين تاريخين و 0 للتي ليست ضمن نطاق التواريخ المعطاه Dim WeekNumberForStartDate As Integer Dim WeekNumberForEndDate As Integer ' Assigning Week numbers for start and end days WeekNumberForStartDate = DatePart("ww", StartDate) WeekNumberForEndDate = DatePart("ww", Enddate) If ThisIsWeekNumber >= WeekNumberForStartDate And ThisIsWeekNumber <= WeekNumberForEndDate Then IsWeekIn = 1 Else IsWeekIn = 0 End If End Function وتكتبها كمصدر بيانات مربعات الأسبوع هكذا : =IsWeekIn([Strdate];[Enddate];1) لاحظ الرقم الأخير 1 هذا سيتغير لكل مربع من مربعات الأسابيع حسب رقم الأسبوع ( من 1 إلى 54 ) f6-Moosak.rar

يحتاج الباحث كثيرا إلى ترقيم ملف بالكامل، كترقيم الكتب والأبواب والأحاديث، ويحتاج إلى عمل مسلسل لكل جزئية، لذا يجب أن يضع رمزًا للكتب، وآخر للأبواب، وآخر للحديث، ثم يختار الرمز الذي يرقم عليه، ليكون للكتب ترقيم مسلسل، وللأبواب والأحاديث كذلك، وهذا هو الماكرو: On Error GoTo 5 ss = InputBox("اكتب الرمز المطلوب الترقيم بدلالته، مثل: = أو * أو # أو @") For i = 1 To 100000 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ss .Replacement.Text = " :" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Copy Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=i Selection.MoveRight Unit:=wdCharacter, Count:=1 Next i 5: End Beep End Sub

مشاركة مع استاذنا @jjafferr لاسباب متعددة منها لا يمكن أن تتضمن العملية الحسابية حقولا من جداول أو استعلامات أخرى نتائج العملية الحسابية للقراءة فقط، ولكنها قابلة للاستخدام كقيم في حقول محسوبة أخرى يتم إجراء العملية الحسابية في كل مرة تقوم فيها بإضافة بيانات أو تغييرها هذا النوع من الحقول تم اضافته من اصدار 2007 ولا اعلم عن توافقه مع اصدارات اقدم هنا نقاش سابق مع الاستاذ @Moosak تحياتي

وعليكم السلام 🙂 خليني أسأل سؤال كلنا متفقين عليه: ما فائدة وجود حقل المرفقات في الجدول ، ما دام استخدامه وادخال الصور فيه يجعل حجم البرنامج يكبر كثيرا وقد يصل الى حجمه النهائي 2 جيجا ويتوقف البرنامج عن العمل!! والجواب: الاكسس يستعمله الهاوي والمحترف ، وكلٌ له طريقة في استعماله ، وميزة الاكسس انه بإمكانك عمل اي شيء تريد بعدة طرق ، فكما ان المحترف لا يستخدم حقل المرفقات 99% من الوقت ، ولكن قد يستعمله لإرفاق بعض الصور الصغيرة مثل شعار المؤسسة او إحمل برامجك داخل قاعدة بياناتك فمو واجب استعمال جميع الميزات اللي يعطينا البرنامج ، ولكن نستخدم اللي يناسبنا كهاوين او مبتدئين 🙂 جعفر

ازل علامه الصح في هذه الصورة وان شاء الله تظبط معاك

شكرآ اخي الله يبارك فيك @kkhalifa1960 شكرآ اخي @Moosak بارك الله فيك كان نفس يكون أفضل اجابه للاثنين بصراحه متشكر جدا لكم الله يسعدكم

تفضل أخي توحيد فورمات الوقت لجميع حقول الوقت بالجدول ... وتغديل معادلة الوقت الاضافي وانظر للمرفق جيداً ووافني بالرد Database 04.rar

هذا مثال للتقويم الهجري وام القرى والميلادي لمشرفنا القديم أبو هادي أكيد بينفعك NewCalendar.rar

السلام عليكم محاولة في الملف المرفق كحل أول (طريقتين بالمعادلات) وإن شاء الله أفكر في طريقة بالأكواد... برمجة حساب راتب.xlsx

وعليكم السلام ورحمة الله وبركاته حل مشكله اللغه العربيه

استكمالا لما قام به استاذنا موسى تفضل f6-1.rar

يمكنك الكتابة في الخلايا من A إلى D وما يهمك. وكلم مديرك يوظفني 🙂 برمجة حساب راتب_03.xlsm

شكرا لحضرتك

هذا البرنامج من عمل استاذنا العلامة الفهامة الاستاذ حسونه حسين حفظه الله ورعاه وبارك الله في عمره وعمر والده وأولاده وأهل بيته اجمعين اللهم آمين برنامج الأرقام السرية للأستاذ حسونة الاصدار 1.xlsb

بارك الله فيك اخى @علي بطيخ سالم ابو عبدالرحمن وجزاكم الله خيرا على دعاؤكم الطيب

واشارك مع استاري جعفر وتفضل كمان Calendar Month View.rar واشارك مع استاري جعفر وتفضل كمان

وعليكم السلام 🙂 بما انه يوجد في برنامجك ، فتستطيع الاستفادة منه 🙂 او تستطيع انزال هذا البرنامج: http://lebans.com/DownloadFiles/A2KMonthCalenderVer205.zip والشرح هنا: http://lebans.com/monthcalendar.htm انزل المرفق ، افتح البرنامج ، افتح النموذج ، ثم انقر نقر مزدوج على حقل التاريخ ، وسترى روزنامة التاريخ 🙂 جعفر تم انزال المرفق واضافته هنا A2KMonthCalenderVer205 (2).zip

السلام عليكم في حدث مفتاح للاسفل للنموذج ضع هذا الكود: If KeyCode = vbKeyF6 Then DoCmd.OpenForm "نموذج6" End If كما يجب أن تغير خاصية مفتاح المعاينة إلى نعم في خصائص هذا النموذج

أكيد انك تمزح