jjafferr

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

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

يعني تريد رصيد كل سنه بحالها ، ولا علاقة لها بالسنة اللي قبلها؟

السلام عليكم اخوي حربي خليك معاي ، وخليني اشوف سؤالك جعفر

وعليكم السلام اجعل مصدر النموذج الفرعي استعلام ، واجعل معيار الحقل المطلوب 1-<> جعفر