msak2004

أهلا أخي مالك .. استعمل الكود التالي من صناعة الدكتورة زهرة حفظها الله دالة حساب السنة Function Age(varBirthDate As Variant) As Integer Dim varAge As Variant If IsNull(varBirthDate) Then Age = 0: Exit Function varAge = DateDiff("yyyy", varBirthDate, Now) If Da…

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

لتصحيح الاسماء افتح الجدول ثم حدد الحقل الذي يحتوي على الاسماء وخذ من القائمة الرئيسية الخيار Edit ثم اختر Replace وعدل الاسماء بكتابة الكلمة أو الرمز الخطأ وفي المقابل اكتب الكلمة أو الرمز الصحيح تستطيع بهذه الطريقة تحديث ما تريد . وهنا بمثالنا بدل / ب - لكاف…

الدال على الخير كفاعله ..سلمت يمينك أخي همام ... الصراحة لم أرى هذه المشاركة المميزة الا الآن فجزاك الله كل خير أستاذي العزيز همام ... شكرا لك وجعلها الله في ميزان حسنانتك والأولاد عندي الآن يتصفحونها لما تحتويه من مواد تخص دروسهم اليومية في الاكسس وفي برامج أ…

نورت المشاركة أخي الغالي أبو عبدالله وجزاك الله خير .. والبرنامج يعمل ولا ادري ما المشكلة عندك وعلى كل حال المثال مفتوح المصدر وتحت أمرك أعمل به ما تريد .. شاكر لك حسن متابعتك وان شاء الله الاصدار القادم سيكون بلا م. :) لك تحياتي ..

وعليكم السلام ورحمة الله وبركاته مشكور أخي أبو عبدالله وبارك الله بك .. أخي الكريم مرفق الحل Refresh-up2.zip ولكن أنا أفضل الحل التالي بتحويل الحقل datano في الجدول data الى رقم تلقائي والقرار لك . Refresh-up1.zip تحياتي وبالتوفيق ..

وعليكم السلام ورحمة الله وبركاته .. أخي الكريم ان الحالة التي تتكلم عنها كثيرة جدا لانك كيف ستميز الفراغ المطلوب من الفراغ الغير مطلوب ؟ واذا قدرنا ان نحصر الاسماء كلها عبدالله عبدالرحمن الخ .. فالعملية ليست مضمونة 100% . من تجربة لي بنفس المشكلة فقد صححت الأس…

تسلم أخي احمد وجزاك الله خير .. أخي الكريم أنت تريد النتيجة في استعلام ولا تريدها مخزنة في الجدول لماذا لا تسهل علينا وعليك الامور وتحفظها في الجدول ولعمل ذلك راجع هذا الرابط /index.php?showtopic=231949 تحياتي ..

اشكر أخواني على هذا التفاعل وبارك الله بكم جميعا .. تفضل أخي الكريم ملفك بعد التعديل تحياتي msak_dddd.zip

ومنكم أخي العزيز أبو عبدالله وجزاك الله كل خير ولا شكر على واجب .. وندعو الله القبول تحياتي :)

مرفق المثال بعد التعديل والطريقة معروفة بالمنتدى تحياتي ddd-up.zip

جزاك الله كل خير أخي Lalek

وعليكم السلام ورحمة الله وبركاته أخي بلالي استعمل هذا الكود المختصر لتنفيذ ذلك .. Dim Index As Byte For Index = 1 To 11 With Me("a" & Index) .Visible = False End With Next Index تحياتي

للفلئدة العامة تمت الاجابة على هذا السؤال على الرابط التالي /index.php?showtopic=232418

بارك الله بك أخي الكريم المهندس 2008 وجزاك الله كل خير .. تحياتي لك

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

تستطيع تنفيذ العملية بتسجيل رقم الايصال لكافة السجلات من خلال الاستعلامين Query2 Query1 بعد الغاء المعايير التي تدل على السجل الحالي .وبهذا نكون قد ادخلنا كافة الايصالات السابقة . الآن أعد الاستعلامين كما كانو ليصبح المثال جاهز للادخال اليومي. اما الوضع الحالي…

وعليكم السلام ورحمة الله وبركاته .. اللهم آمين ... جزاك الله خير أخي الكريم وبارك الله بك ..+1 تحياتي ..

الأخ الكريم أبو صبحي شاكر لك مرورك الكريم بارك الله بك .. أخي أحمد (طالب علم مبتدئ) ما شاء الله عليك أنت خبير وليس مبتدئ بارك الله بك وشاكر لك متابعتك وتشجيعك .. أخي المهندس 2008 سعيد بمعرفتك وجزاك الله خير على كلماتك الجميلة ونسأل الله أن يتقبله منا ومنك وندع…

ماذا تقصد تسديده في نموذج اليومية يعني عمل قيد او سجل به في الجدول المسمى يومية1 ؟ ، يعني كل سجل كف طلب جديد له سجل سابق بالجدول المسمى يومية أم ماذا الا يجب ان تكون هناك علاقة بين جدول اليومية والجدول ك11 ك12 ليتم الربط ؟ معليش ليس هناك ربط أو علاقات ثابتة لك…