jjafferr

وعليكم السلام الشرط في الاستعلام يعمل تصفية للبيانات ، ولكن في نهاية الامر ستكون هناك بيانات (طبعا ممكن لا تكون بيانات كذلك) ، لذلك ، فنتيجة الاستعلام هي التي سيتم ارسالها للاكسل جعفر

وعليكم السلام على الكيبورد ، خليك ضاغط على مفتاح الشفت ، بالماوس انقر مرتين على برنامجك لفتحه (وإلا ، فالنماذج المنبثقة سوف تملئ الشاشة ولن ترى الشريط الاصفر خلفها) ، لما ينفتح البرنامج ، اخذ يدك من مفتاح الشفت ، وسترى هذه الشاشة . انقر على الزر "Enable Content" المؤشر عليه بالسهم ، وبيشتغل البرنامج وعلشان ما يظهر لك الشريط الاصفر لبقية برامجك ، فيجب ان يكون عندك "مكان موثوق به" اي مجلد موثوق به ، بحيث لما تشغل برامجك من هذا المجلد فلن يعطيك الاكسس هذا الشريط الاصفر وستشتغل برامجك منه: . جعفر

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

الامر الذي وضعته لك في الكود اسرع في التنفيذ من الامر اللي انت وضعته ، ولكن عندك خطأ في طريقة تنفيذ الامر ، ويجب عليك الرجوع الى ملف المساعدة Help في الاكسس لمعرفة طريقة عمل هذه الاوامر خليني اضع لك الكود بمسمياتك ، private sub ....BeforUpdat(... dim Counter as integer 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "clndtail", "[اسم الحقل في الجدول]='" & me.[نص57] & "'") 'اذا كان نوع الحقل في الجدول، رقم Counter= dcount ("*", " clndtail", "[اسم الحقل في الجدول]=" & me.[نص57]) if Counter>0 then cancel=true 'me.undo msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها" end if end sub . 1. لاحظ اني اعطيتك طريقتين لإستخدام الامر dcount ، في حال اذا كان نوع الحقل في الجدول عبارة عن نص او رقم ، وانا قمت بتفعيل نوع الرقم في الكود ، 2. رجاء استبدال العبارة [اسم الحقل في الجدول] بالاسم الصحيح. جعفر

وعليكم السلام اخي رضا لما تريد ان تضع كود في مشاركتك في المنتدى ، رجاء استعمال الزر التالي ، ثم ادخال الكود في النافذه الخاصه به: . فيظهر الكود بالطريقة الصحيحة هكذا: Dim i Dim n i = DLookup("[نص57]", "clndtail", "[نص57]=[نص57]") n = DLookup("[الاسم]", "clndtail", "[نص57]=[نص57]") If i <> "" Then MsgBox " ... فضلاً تأكد من عدم إدخال رقم مكرر", vbOKOnly, "تنبيه" End If End Sub جعفر

وعليكم السلام تفضل جعفر 958.1.سند قبض.accdb.zip

هذا معناه انك عملت لتركيز على النموذج الفرعي فقط ، مما يعني ان الحقل المطلوب رقمه صفر في قائمة Tab Index واذا لم يكن ، فيمكنك التركيز على النموذج الفرعي ، ثم التركيز على الحقل ، هكذا: me.SubformNANE.setfocus me.SubformNANE!ProdNoAccTab.setfocus وحياك الله جعفر

عنوان مخالف ، يُغلق جعفر

السلام عليكم رجاء الالتزام بقوانين المنتدى : سؤال واحد لكل موضوع. جعفر

وعليكم السلام اذا مصدر النموذج عبارة عن جدول او استعلام ، فمصدر قيمة حقل النص يكون من الجدول/الاستعلام ، فيمكنك في الجدول ان تغيّر اعدادات الحقل ، بحيث يكون مفهرس وغير قابل للتكرار ، واما في النموذج اذا اردت ان تستعمل كود للتأكد من عدم تكرار قيمة الحقل قبل حفظ السجل ، فيمكنك عمل حدث قبل التحديث للحقل ، وعمل مثل هذا الكود: private sub ....BeforUpdat(... dim Counter as integer Counter= dcount ("*", "Table Name", "[Field Name in Table]='" & me.FieldNameInForm & "'") 'اذا كان نوع الحقل في الجدول، نص 'Counter= dcount ("*", "Table Name", "[Field Name in Table]=" & me.FieldNameInForm) 'اذا كان نوع الحقل في الجدول، رقم if Counter>0 then cancel=true 'me.undo msgbox "عفوا ، هذه القيمة مكررة ولا يمكن حفظها" end if end sub جعفر

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

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

تفضل واذا ماهو الطلب ، فلازم عليك توضح الطلب بالصور والشرح بالتفصيل الممل 959.1.stu.mdb.zip

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

تفضل 959.1.stu.mdb.zip

طيب، ا و 2 و 3 خلصناها : كيف حساب: ساعات متبقية ، وعدد الايام؟

في اسفل/نهاية كود الحدث مال زر السجل الجديد. المفروض في حدث زر السجل الجديد يكون عندك شيء من هذا القبيل: private sub ..... DoCmd.GoToRecord , ,acNewRec هنا اكتب السطر end sub جعفر

العفو اخي غسان ، مقترحك ليس فيه اساءة او تقليل من قيمة احد ، وإلا لو كان فيه شيء من هذا القبيل ، صدقني ، فسيقوم المشرف بمعالجة الكلمات الخطأ ولكن في الواقع هذه طبيعة المنتديات ، الكل يتعلم ، وقد يخطأ (انا عملت خطأ امس في موضوع ابو ياسين ، واليوم في موضوع ابو زاهر) ، ولكن سرعان ما يتدارك الطرفان الخطأ ، وتبدأ خطوات الاجابة الصحيحة واهلا وسهلا بك كمشارك ، كما اهلا وسهلا بك كطالب علم جعفر

يعني الحساب يكون (وخلينا مع مثال من عندي لسنة 2018) : ساعات الشهر الحالي: هو للشهر الذي تم اختياره من حقل "اختر الشهر" (وليكن الشهر 9 مثلا) ، ساعات الشهر السابق: هو للشهر السابق الذي تم اختياره من حقل "اختر الشهر" (وسيكون الشهر 8) ، مجموع ساعات السنه: مجموع ساعات سنة 2018 فقط ، هل هذا صح؟ جعفر

اذا كان زر فاتورة جديدة موجود في النموذج الرئيسي ، ففي نهاية كود الزر اكتب نفس سطر الكود اللي اعطيناك واشتغل معاك me.SubformNANE!ProdNoAccTab.setfocus ، واذا كان زر فاتورة جديدة موجود في النموذج الفرعي ، ففي نهاية كود الزر اكتب me.ProdNoAccTab.setfocus

هكذا

اي حقل فيهم؟ عفوا المعيار يجب ان يكون : اكبر من صفر

اذا كنت تتكلم عن حقل في النموذج الفرعي ، فالكود سيكون في النموذج الرئيسي هكذا: me.SubformNANE!ProdNoAccTab.setfocus وبدل SubformNANE اكتب اسم كائن النموذج الفرعي جعفر

للعلم الاستعلام هو العمود الفقري لقواعد البيانات قواعد البيانات عبارة عن: ادخال بيانات ، فرز وتصفية ، واخراج بيانات ، والاستعلام هو القوة والسرعة في الفرز والتصفية ثم ان التعامل مع الاستعلام هو عيناً نفس الطريقة في التعامل مع الجدول جعفر