jjafferr

وعليكم السلام طرق طباعة الفاتورة الظاهرة في النموذج: لطباعة الفاتورة التي قيمة ID تساوي القيمة الموجودة في النموذج DoCmd.OpenReport "اسم التقرير", , , "[ID]=" & Me.id . او ان تجعل الاستعلام مصدر بيانات التقرير ، وفي الاستعلام تستخدم معيار ID (مثلا) لتصفية بيانات الاستعلام ، وقيمة معيار ID تكون: Forms![اسم النموذج]!ID جعفر

وعليكم السلام سؤال غريب ياباشا هل قصدك انه بعد طباعة الفاتورة ، لا تريد ان يتم طباعتها مرة ثانية؟ جعفر

وعليكم السلام افتح ملف اكسس جديد ، واستورد جميع كائنات قاعدة البيانات القديمة ، واحفظ قاعدة البيانات الجديدة ، ثم استعمل الملف المرفق في هذه المشاركة مع قاعدة البيانات الجديدة جعفر

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

وعليكم السلام عندك الخيار في عمل البحث: بالاسم فقط ، بين التاريخين ، من تاريخ ، وتترك الى تاريخ فاضي ، فيستعمل الاستعلام آخر تاريخ للبيانات ، الى تاريخ ، وتترك من تاريخ فاضي ، فيستعمل الاستعلام اول تاريخ للبيانات. هممم ، هل نسيت ان اضيف شيء آخر هذا هو استعلام ListBox : SELECT GnrlT.Loh, GnrlT.Alh, GnrlT.Dat, GnrlT.Nots, GnrlT.Nam FROM NamsT INNER JOIN GnrlT ON NamsT.[Id_N] = GnrlT.[Id_N] WHERE (((GnrlT.Dat) Between (IIf(IsNull(Forms!DispTotF!Date_From),#1/1/1900#,Forms!DispTotF!Date_From)) And (IIf(IsNull(Forms!DispTotF!Date_To),#1/1/2900#,Forms!DispTotF!Date_To)) Or [Dat] Is Null) And ((NamsT.Id_N)=Forms!DispTotF!cmd_Name)); جعفر 964.HT.accdb.zip

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

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

وعليكم السلام على الكيبورد ، خليك ضاغط على مفتاح الشفت ، بالماوس انقر مرتين على برنامجك لفتحه (وإلا ، فالنماذج المنبثقة سوف تملئ الشاشة ولن ترى الشريط الاصفر خلفها) ، لما ينفتح البرنامج ، اخذ يدك من مفتاح الشفت ، وسترى هذه الشاشة . انقر على الزر "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 جعفر

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