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

اقدم لكم برنامج تحفيظ اسماء الله الحسنى للكبار والصغار مفتوح المصدر. . اليكم لينك المرفق . https://www.mediafire.com/file/1hrvf0h938769yq/GodNames.v1.1.rar/file

اقدم لكم برنامج حساب أيام العمل أو الاجازات بين تاريخين .......... (اختيار أيام العمل الاسبوعية + العطل الرسمية) مفتوح المصدر. . اليكم المرفق . DDDayWork.rar

تفضل استاذ @abouelhassan محاولتي حسب مافهمت .ووافني بالرد. Screen Saver With Form Idle.rar

السلام عليكم نفضل أحي التاريخ كتابة .accdb

وجدت هذا الملف في مكتبتي ..لكنه باللغة الانجليزية عسى ان ينفعك text date.rar

شكرا جزيلا أخي الكريم وبارك الله فيك

الاداة شغالة تمام ناجح.rar

إذا لم تتابع فكيف نعرف حصلت على الحل أم لا!! احتمال آخر للحل إذا كان فهمي لمطلبك صحيحا: طول الشهر 20 يوم_02.xlsm

كلامك سليم 100% ، اعتبر آكسيس حاله حال أحد الشعراء ( فيحق للشاعر ما لا يحق لغيره ) ولأجل الأخ @Eng.Qassim ، استبدل هذا التعديل البسيط للكود في المديول :- Function ConvertDateToText(dateValue As Date) As String Dim dayText As String Dim monthText As String Dim yearText As String dayText = Choose(Day(dateValue), "الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر", "الحادي عشر", "الثاني عشر", "الثالث عشر", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر", "الثامن عشر", "التاسع عشر", "العشرون", "الحادي والعشرون", "الثاني والعشرون", "الثالث والعشرون", "الرابع والعشرون", "الخامس والعشرون", "السادس والعشرون", "السابع والعشرون", "الثامن والعشرون", "التاسع والعشرون", "الثلاثون") monthText = Choose(Month(dateValue), "كانون الثاني", "شباط", "آذار", "نيسان", "أيار", "حزيران", "تموز", "آب", "أيلول", "تشرين الأول", "تشرين الثاني", "كانون الأول") yearText = Choose(Left(Year(dateValue), 1), "ألف", "ألفان") & " و" & Choose(Right(Year(dateValue), 1), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") & " وعشرون" ConvertDateToText = dayText & " من " & monthText & " من عام " & yearText End Function

شكرا للأخ سعود على المداخلة الذي يسدد هو الأب .. وقد يكون للأب العديد من الأولاد بنين/بنات اذا ربطنا جدول الأولاد بجدول التسديد سوف يتفرق دم التسديد بين القبائل ............................... الأفضل كم بينته انت في عرضك جدول للآباء رئيسي وجدولين فرعيين واحد للأولاد والثاني لتسديد الرسوم يكون معرف الأب في الجدولين الفرعيين والربط يكون مع معرف الأب في الجدول الرئيس النتيجة : 1- حصر مجموع قيمة رسوم الأولاد بمعيار رقم الأب 2- حصر المسدد ( سواء كلي او دفعات ) بمعيار رقم الأب المهم ان النتيجة ستظهر من سطر برمجي واحد .. بعيدا عن الاستعلامات

ومشاركة جانبية .. استخدم هذا الكود في مديول :- Function ConvertDateToText(dateValue As Date) As String Dim dayText As String Dim monthText As String Dim yearText As String dayText = Choose(Day(dateValue), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة", "عشرة", "أحد عشر", "اثنا عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", "تسعة عشر", "عشرون", "واحد وعشرون", "اثنين وعشرون", "ثلاثة وعشرون", "أربعة وعشرون", "خمسة وعشرون", "ستة وعشرون", "سبعة وعشرون", "ثمانية وعشرون", "تسعة وعشرون", "ثلاثون", "واحد وثلاثون") monthText = Choose(Month(dateValue), "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") yearText = Choose(Left(Year(dateValue), 1), "ألف", "ألفان") & " و" & Choose(Right(Year(dateValue), 1), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") & " وعشرون" ConvertDateToText = dayText & " " & monthText & " " & yearText End Function وفي أي نموذج استدعي الكود في أي مربع نص كمثال :- Private Sub Text_Date_AfterUpdate() Dim myDate As Date Dim formattedDate As String myDate = Me.Text_Date formattedDate = ConvertDateToText(myDate) Me.Text_Result = formattedDate End Sub أيضاً يمكنك استدعاء الدالة فقط بهذه الطريقة :- Me.Text_Result = ConvertDateToText(Me.Text_Date) ConvertDateToText.accdb

استاذ @abouelhassan اذا كان هذا طلبك اختر أفضل اجابة

اخى الكريم kkhalifa1960 شكر من القلب وتقدير واحترام كل عام وانتم بخير وصحة وسلامة يارب تسلم ايدك

اقدم لكم برنامج مطعم كلاسيكي مفتوح المصدر. به بعض الكودات من أعمال بعض المنتسبين بمنتدانا (أفسينا)..... (به 33 طاولة طعام + دليفري + تيك أواي) ....والمهتم سيكتشف مابه ....... وأي استفسار أنا حاضر . اليكم لينك المرفق . https://www.mediafire.com/file/j0qasl6mlv1ju3x/CoffeShop.rar/file

بارك الله فيك اخونا الشايب فانت شئ ما حصلش انت معلوماتك وخبرتك كبيرة جدا فالله ما انفعك بعلمك وبارك الله فى علمك وكل عام وانت بخير وكل رواد المنتدى بخير

بارك الله فيك استاذ الحقيقة انا فقط احببت التنبيه بوجود الثغرات اما التعديل والتصحيح متروك للاساتذة والخبراء اخونا الشايب

استاذ @Moosak واستاذ @عبد اللطيف سلوم شكراً لكم وكل عام وانتم بخير . عيدكم مبارك.

استاذ @jjafferr واستاذ @عبد اللطيف سلوم يسعدني مروركم . كل عام وانتم بخير .عيدكم مبارك .

اول ملاحظة : يجب ادراج معرف الأب في جدول الاولاد وفي جدول الرسوم

أشكر مرورك أخي الكريم ، ولكن يبدو أنك لم تقم بالعمل على البرنامج

اخي العزيز @abouelhassan فكرتك جميلة إن كانت من الكماليات.. 😊 بدايةً انت تعلم ان اكسيس لا يتعامل مع الصور المتحركة من نوع Gif بشكل مباشر إلا عن طريق WebBrowser ، ولا أعتقد أن النتيجة قد تعجبك بعد فترة لإن الأمر سيربك النظام بين التحريك للماوس وعدمه والنقر على أي مفتاح أو عدمه ( سيتسبب ذلك ببطىء النتيجة لاحقاً 🤗 ) لكن تستطيع تنفيذ الفكرة ذاتها بأن يتم فتح نموذج يطلب فقط كلمة المرور لنفس المستخدم الحالي أو إغلاق النظام . مجرد رأي طبعاً 🥰

بما انك تبحث عن عمل يدوي ، انصحك باستثمار الوقت والبدء بكتابة الأسماء العربية ونظيرها بالفرنسية 😅 لدي فكرة قام بها أخي إياد من العراق سابقاً واستغرقه الأمر تقريباً اسبوعين لحصر أكثر من 2500 اسم عربي و انجليزي لتنفيذ نفس الفكرة إن سمح لي بنشر ملفه فسأرفق المشاركة هنا لاحقاً 🤗

من صاحب السؤال هنا ؟؟ @عادل سرور سرور أم @kams3008 ؟؟ 🤔

وعليكم السلام 🙂 عمل خفيف وجميل ، شكرا جزيلا 🙂 جعفر

السلام عليكم ورحمة الله وبركاته وبها نبدأ تأكد من انه لا يوجد مشكله في اعدادات اللغه العربيه في الجهاز لان الكود (الرئيسيه) ليس به مشكله

السلام عليكم 🙂 عملت على مشروع لمؤسسة خيرية فيه العديد من المستخدمين ، والعمل هو عبارة عن طباعة نحو 1000 كوبون خلال ساعة واحدة لوجبة غذاء مجانية ، وحوالي 600 كوبون خلال ساعة اخرى ، والكوبون يحتوي على شعار المؤسسة، وشعار آخر يتغير شبه كل يوم. الطرق المتبعة لعرض الصور في التقرير هي: قراءة الصور من مجلد المشاركة، ولكن قراءتها لكل كوبون، يجعل الشبكة مزدحمة بمرور الصور فيه، مما يعمل بطئ في الشبكة، نسخ الصور من مجلد المشاركة الى مجلد محلي على كمبيوتر المستخدم عند تشغيل البرنامج، ومن ثم قراءة الصور من المجلد المحلي عند طباعة كل كوبون، اما الطريقة الاسرع من الطريقتين اعلاه هي: عرض الصور من مجلد المشاركة عند تشغيل البرنامج، في النموذج الرئيسي للبرنامج في حقل الصور، عرض الصور في التقرير، بقراءة كل صورة من النموذج الرئيسي، هكذا لصورة واحدة: في التقرير، على حدث "عند التنسيق" في قسم Details التفصيل نضع هذا الكود Forms!frm_Main!myPic هو اسم حقل الصورة في النموذج الرئيسي pic هو اسم حقل الصورة في التقرير Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Me.pic.PictureData = Forms!frm_Main!Mypic.PictureData End Sub جعفر

طالما الامر كذلك

=SUM((LEN(A1:A444)>9)*1) استخدم هذه المعادلة مع الضغط على كنترول + شفت + انتر . Shift+Ctrl+Enter لا بد أن تكون المعادلة بين قوسي { } أو استخدم هذه المعادلة =SUM(SUMPRODUCT((LEN(A1:A444)>9)*1))

إضافة إلى إجابة الأستاذ إبراهيم لنفرض أن ناتج الصيغة فراغ مثال =IF(ورقة1!A2="";"";ورقة1!A2) فإن COUNTIF لن تجد الصفر وستعد الفراغ في هذه الحالة يمكن استخدام =SUM((LEN(A1:A444)>9)*1) مع الضغط على كنترول + شفت + انتر . Shift+Ctrl+Enter 454545.xlsx

السلام عليكم انظر للمرفق اخي الكريم ‏‏‫‏‏Library2.rar 'استخدم الكود التالي لفتح التقرير' DoCmd.OpenReport "العدد والادوات", acViewPreview 'وعند فتح التقرير سوف يتم اغلاق النموذج' DoCmd.Maximize DoCmd.Close acForm, "Table_Visitor" 'وعند اغلاق التقرير سيتم فتح النموذج' DoCmd.OpenForm "Table_Visitor"

تفضل Library.rar