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

وعليكم السلام ورحمة الله وبركاته أنظر المرفق .... Handicapéés.accdb

جرب هذا الملف ouvriers.xlsx

أهلا بكم في المرفق السابق كان هناك إشكالية مع زر الإدخال قمت بضبطه.. كما أضفت مسح جميع الحقول إلى حدث النقرر المزدوج للزر Clear.. منع إدخال الأرقام من لوحة المفاتيح.. إليكم المرفق: Advanced KeyPad.mdb

لجعل إدخال البیانات أكثر سھولة وللتحكم في القیم InputMask يمكنك استخدام الخاصیة التي يمكن أن يدخلھا المستخدمون في عنصر تحكم مربع النص. س 1: ماھي الطريقة التي أجعل المستخدم يدخل 4 أرقام في حقل رقم الھاتف أجبارياً وبدون مسافات أو أي أحرف أخرى ؟ ج: في خاصية قناع الإدخال ضع: 0000 س 2 :وإذا أردت أن أسمح بالمسافات أو ترك بعض الحقل فارغا بشرط أن لايزيد الإدخال عن 4 حروف ؟ ج: في خاصية قناع الإدخال ضع: 9999 س 3 :لقد حاولت بما ذكرته لي في الجواب السابق أن أضع بین الأرقام علامة + وعلامة – ولكن لم استطع فما ھي الطريقة في ذلك ؟ ج: في خاصية قناع الإدخال ضع: #### س 4 :ماسبق ھو في الأرقام ، ولكن كیف أجعل المستخدم يدخل أربعة حروف ولايسمح له بكتابة أقل من ذلك ؟ ج: في خاصية قناع الإدخال ضع: LLLL كبير ولايصح صغيراً. L يجب أن يكتب حرف س 5: ھذا واضح ، فما الطريقة لجعل إدخال الأحرف اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: ???? س 6 :لكن لم تخبرني ھل يمكن في الحالتین السابقتین أن يدخل المستخدم أرقاماً مع الحروف ؟ ج: لا. س 7: إذن ما الطريقة إن احتجت لذلك ، ما أقصده أن يكون الإدخال حروف أو أرقام أو كلاھما ولكن إجباريا وعدد الأحرف أربعة ؟ ج: في خاصية قناع الإدخال ضع: AAAA كبيراً. A يجب أن تكتب حرف س 8: وإن أردت ما سبق اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: aaaa س 9 :لكنه لم يسمح لي بإدخال مسافات في طريقة السؤال السابع ، ما أريده أن يكون الإدخال إجباريا يسمح بالأرقام والحروف والمسافات ؟ ج: في خاصية قناع الإدخال ضع: &&&& س 10 :وإن أردت السابق ولكن اختیارياً ؟ ج: في خاصية قناع الإدخال ضع: CCCC س 11 :عندي حقل نصي أسجل فیه كلمة سر ، وأريد أن تظھر الأحرف على شكل نجمة فما الطريقة ؟ ج: في خاصية قناع الإدخال ضع: Password س 12 :كیف أجعل الحروف المدخلة دائما كبیرة بواسطة قناع الإدخال ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: '*>LLL*' س 13 :وإذا أردت الحروف صغیرة في كل الحقل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ، مثال: <LLL س 14 : وإذا أردت القناع بعض الأحرف صغیرة وبعضھا كبیرة كیف أفعل ؟ ج: في خاصية قناع الإدخال ضع: >ثم بقية القناع ثم < ثم بقية القناع مثال: >LLL<LLLLL س 15 : كیف استطیع أن أغیر الحرف النائب الافتراضي _ الى حرف أو رمز آخر ؟ ج: في آخر القناع ضع الحرف النائب مكرراً ، مثال: لوضع = كحرف نائب اكتب: *>LL00000*\-0000;=;= س 16 :أريد بعض الأمثلة على قناع الإدخال ؟ ج : قناع الإدخال أمثلة القيم تعريف (000) 000-0000 (206) 555-0248 (999) 999-9999! (206) 555-0248 ( ) 555-0248 (000) AAA-AAAA (206) 555-TELE #999 -20 2000 >L????L?000L0 GREENGR339M3 MAY R 452B7 >L0L 0L0 T2F 8M4 00000-9999 98115- 98115-3007 >L<?????????????? Maria Pierre ISBN 0-&&&&&&&&&-0 ISBN 1-55615-507-7 ISBN 0-13-964262-5 >LL00000-0000 DB51392-0493 sk قناع الإدخال

دائما مبدع استاذ سليم بارك الله فيك استاذى الكريم

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

انظر للكود التالي بالمرفق Database4.rar

وعليكم السلام ورحمة الله وبركاته.. تفضل Option Compare Database ' لتسجيل عدد الضغطات Dim Number_Click As Integer Private Sub Form_KeyPress(KeyAscii As Integer) ' اذا تم الضغط على مفتاح Enter If KeyAscii = vbKeyReturn Then Number_Click = Number_Click + 1 ' اذا كانت عدد الضغطات اثنان If Number_Click = 2 Then Number_Click = 0 ' ضع اسم النموذج الذي تريده ان يفتح DoCmd.OpenForm "Form_Name" End If End If End Sub حسنين

السلام عليكم في هذا المطلوب يكفي نقل صيغة المعادلة التي اقترحها أخي الكريم "عبد السلام ابو العوافي" إلى معادلة "الاجمالي" (الاجمالي المتبقي)... تم عمل ذلك في المرفق... بن علية حاجي 2.xlsx

جرب هذا الملف تصدير من الأكسل إلى ملف TXT.xls

تفضل هذا الموضوع للمبدع @ابوخليل

السلام عليكم جرب المرفق لعل فيه بعض ما تريد (حسب فهمي)... بن علية حاجي 1.xlsm

شكراً تمت الملاحظة ....... و جزاك الله خيراً

السلام عليكم انظر للملف المرفق يمكن يكون المطلوب باستخدام هذه الطريقة test.rar

اتمنى يكون حسب طلبك شوف المرفق Dim varFilter As Variant varFilter = Null If Not IsNull(Me.search) Then varFilter = (varFilter + " AND ") & "[اسم الطالب] LIKE '*" & [Forms]![search].[Form]![sub_stu]![اسم الطالب] & "*'" End If With Me.sub_stu.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With varFilter = Null If Not IsNull(Me.search) Then varFilter = (varFilter + " AND ") & "[النتيجة] LIKE '*" & [Forms]![search].[Form]![sub_stu]![النتيجة] & "*'" End If With Me.sub_stu.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With stu.accdb

يا رب يكون هو ده التعديل المطلوب FilterResultFinal -4.accdb

السلام عليكم ورحمة الله لم أفهم أيضا ما تريده... إذا كنت تريد أن تكون النتيجة (سالبة) للمجموع السابق فيكفي أن تكون المعادلة التي اقترحها الأخ الكريم "عبدالسلام ابو العوافي" بالشكل التالي: =SUMPRODUCT(--($G$2:$AJ$2=$AI$2);-(G3:AJ3)) أما بالنسبة لمعادلات عمود "الباقي" فهي ببساطة الفرق (الطرح العادي) بين قيمتي خليتي العمودين B (عمود "الاجمالي") و AK (عمود "إجمالي المسدد") من كل سطر... بن علية حاجي

تسلم اخي الكريم أبو عبدالله الحلوانى والله ما خسر الي سماك خبير طبقت حسب رابط موقع مكروسوفت لان الفديو غير واضح ونجحت العملية واعطاني ترقيم تلقائي من ستة ارقام . وهذا الرابط ادناه الذي دخلت عليه في الرجستري وذهبت الى ثامن اختيار وقمت بفتحه وبدلت الارقام بثمانية احرف F Computer\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Office\15.0\Access Connectivity Engine\Engines\ACE تسلم وبارك الله بك وجعله في ميزان حسناتك

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

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