Eng.Qassim

السلام عليكم .. لدي مقترح بخصوص تصميم البرنامج ..يفترض ان يكون هناك جدول للفحوصات الرئيسية و جدول للفحوصات الفرعية يعني الفحص الرئيس يتفرع منه عدة فحوصات فرعية في رأيي ان تكون القائمة الاولى للفحص الرئيسي ..وعند الضغط على اي فحص تظهر في القائمة الاخرى الفحوصات الفرعية التي يتم الاختيار منها وعند اختيار اي فحص فرعي يتم الحاقه مع كل ملحقاته الى جدول 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

السلام عليكم دائما وابدا اخوتي في الله ... رغم اني مهندس مدني لكنني ضعيف في التصميم المعماري اردت نموذج فاتورة لبرنامجي الذي تعبت عليه كثيرا ....طبعا شكل الفاتورة مهم جدا للعميل بصراحة لم احسن عمله ... وانا اعلم ان هناك من زملائلنا ...مبدعين في هذا المجال ياريت تنقذوني من هاي الورطة .. صدقا البرنامج ببلاش 😂 report.accdb

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

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

الف مبروك للاساتذة @عمر ضاحى و @Foksh على الترقية رغم اني تمنيت اضافة اخونا @شايب

السلام عليكم السؤال ..لماذا الاستعلام لايأخذ الباراميتر من النموذج ؟

بالتوفيق

صدقا نسيته لولا انك تذكرني

وعليكم السلام شوف هذه المشاركة