Eng.Qassim

السيد الحسناوي قام برفع السطر Option Explicit حتى لايظهر خطأ عدم التعريف مع وجود هذا السطر يكون الحل: Dim frmResize As Form Me.KeyPreview = True Set frmResize = New FormResize Set frmResize = Me

بالتأكيد عزبزي عن طريق نموذج..فقد تركت لك تصميم النموذج يجب ان تكون هناك تواريخ في الجدول ليتم الرجوع اليها مستقبلا

الافضل ان تثبت التواريخ في الجدول جرب هذه المحاولة stlist.accdb

وعليكم السلام .. قم بتغيير اعدادات اللغة في الحاسوب

اسف عن التاخير استاذنا @ابو جودي لانشغالي هذه الفترة labTestin.rar

يا سلااااام ..دة انت معلمنا واستاذنا بكرى ان شاء الله اعمل على ملف السيد/السيدة/الانسة @safaa salem5 لان الاسم ممكن يكون ذكر وانثى

ايه النحس دة ؟🤣

شكرا لحضرتك ..هدية جميلة

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

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

هو صعنون وحلو كتير ...زي حلاة صاحبها

هو ممكن نستغني عن عدة سطور بسطر واحد If Me.x.Text <> "" Then 'strtxt = Me.x.Text 'strWhere = "[catcods] like '*" & strtxt & "*'" 'Me.Filter = strWhere 'Me.FilterOn = True 'Else 'Me.Filter = "" 'Me.FilterOn = False DoCmd.SearchForRecord , , acFirst, "[catcods]=" & [x] & "" End If

هذه محاولة اولية ...بصراحة عصى علي الحدث عند النقر ..ربما يساعدنا احد الاخوة كما قلت لك سابقا اني غير مقتنع من تلك الفكرة لان المستخدم ليس بمبرمج ..لكننا نحاول ان نصل لفكرة جميلة ...ربما يستفيد منها البعض foksh.rar

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

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

الكود التالي تقريبا يعطي تاريخ الميلاد فقط يحتاج تعديل ..اذا كان عدد الايام المدخلة اكبر من ايام تاريخ اليوم يقوم بزيادة 1 الى تاريخ الميلاد شوية تعذرني كوني مشغول لكن تلك الجزئية اعتقد سهلة Private Sub CmdBirth_Click() Dim yearValue As Integer Dim monthValue As Integer Dim dayValue As Integer Dim today As Date Dim dateOfBirth As Date yearValue = CInt(Me.T1) monthValue = CInt(Me.T2) dayValue = CInt(Me.T3) today = Date dateOfBirth = DateAdd("yyyy", -yearValue, today) dateOfBirth = DateAdd("m", -monthValue, dateOfBirth) dateOfBirth = DateAdd("d", -dayValue, dateOfBirth) Me.YY = dateOfBirth End Sub

بالمناسبة استاذ خليفة...الان انتبهت لوجود خطأ وهو اذا كان شهر الميلاد اكبر من الشهر الحالي فالمفروض يقلل سنة

السلام عليكم استاذ @kkhalifa1960 Me.M2 = [S2] Me.YY = Format([S1], "yyyy") & "/" & [S2] & "/" & Format([S3], "d") لاتحتاج الى فورمات لانها تعيد فقط الشهر بدون تاريخ

هو هذا اللي اريده ...عاشت ايدك ابو جودي مع اعتذاري للاخوة الاساتذة @kkhalifa1960... @Foksh عندنا ...مهما تعبت على البرنامج ...يبقى شكل التقرير جدا مهم ويجلب الزبائن

استغفر الله استاذ عمر ..انا مجرد تلميذعند الجميع كلهم اساتذتي ..لكن ..والحق يقال ..لا غنى عن اساتذتي @ابوخليل.. @jjafferr

نعم استاذي ..المتغير هو الراتب الاسمي للموظف ..وتلك نقطة جدا مهمة في نظام الرواتب طبعا لكل دولة ضوابطها و قوانينها ..لكن بشكل عام ان هناك علاوة سنوية و ترفيع كل 5 او 4 سنوات واتذكر ان لديك استاذ @ابوخليل مشاركة منذ زمن بهذا الموضوع ..والحل كان جدا رائع

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

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

وين راحوا الشباب ؟😘

عمل رائع استاذ @kkhalifa1960