Eng.Qassim

لانك لم تذكر ذلك في سؤالك ..يمكنك ان تضيف رصيد اول المدة في الموديول بنفس طريقة البيع والشراء ...لكنها في النهاية ستكون بالجمع مع الشراء

طيب ..هي القاعدة الخلفية ممكن لاي مستخدم ان يدخل لها ؟

ليش ما يصير ؟ بعد اذن اخي استاذ @kkhalifa1960 DD227-2.rar

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

لاتحتاج الى الرسائل فهي غير عملية حسب رايي عملت لك مربع نص برصيد المادة..حينما تختار اسم المادة سيظهر لك رصيد المادة السابق وحين اختيار الكمية سيظهر لك الرصيد الحالي 444.rar

السيد الحسناوي قام برفع السطر 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