jjafferr

وعليكم السلام 🙂 هذه من الاسئلة النادرة ، وللإجابة عليها لازم نعمل رسم بياني ونشوف الاختيارات فيه ، فبدل ان نقوم بالعمل ، سهل علينا وعليك ، بإرفاق هذه الجزئية من برنامجك لوسمحت 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 قواعد المشاركة فى الموقع 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ويجب ان يكون لكل موضوع سؤال واحد. ومخالفة ذلك تعرض الموضوع للحذف رجاء عمل موضوع/مواضيع جديدة تماشيا مع قواعد المشاركة 🙂 يُغلق هذا الموضوع. جعفر

تفضل 🙂 . . ولشهر ديسمبر . كود تعديل التقرير موجود في النموذج tqrer على حدث النقر على الزر ، جعفر 1001.الخطة_المجمعة.accdb.zip

طيب يا باشا ، هذا اختيار 1 وما ممكن استعماله، يعني باقي عندك اختيارين 🙂

اذن ، مثل ما قال الاخ عصام : بعد ان يخرج جميع المستخدمين من البرنامج ، قم بعمل ضغط واصلاح لملف الجداول. جعفر

هل البرنامج عندك مقسّم الى واجهة موجودة على كمبيوتر كل مستخدم ، وملف الجداول موجود على الشبكة ، وجميع المستخدمين رابطين واجهاتهم بملف الجداول؟ جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 هناك مجموعة ملاحظات يجب ان تُأخذ بعين الاعتبار: 1. عند فتح البرنامج في اي مجلد / كمبيوتر آخر ، فالاكسس (2007 فما فوق) يحمي المستخدم ، ولا يُفعّل جميع الازرار والماكرو والكود ، إلا اذا تم فتح البرنامج في مجلد موثوق به ، ولذلك ، فالاكسس يعطينا خط اصفر ، فيه زر لتمكين المحتوى Enable Content ، والذي يجب النقر عليه لعمل البرنامج (انظر الصورة ادناه) ، ولكن المشكلة انه ، اذا جعلت النموذج الاول في برنامجك منبثق ويملئ الشاشة ، فهو سيغطي هذا الخط الاصفر ، ولن تراه !! لذا ، فيجب عليك ان تشغل البرنامج بدون فتح هذه النماذج المنبثقة (ممكن عن طريق مسك مفتاح الشفت الى ان يشتغل البرنامج) ، وسترى الشريط الاصفر ، ويمكنك النقر على الزر ، او وهذه طريقة عمل مجلد موثوق به: . 2. طبعا في تغيير بين الاكسس الاجدد عن الاكسس الاقدم ، يعني الاكسس 2016 فيه مجموعة تغييرات والتي لا تحتوي عليها الاكسس 2007 ، ولكن ، اذا قمت بتحديث الاكسس 2007 ، فيمكنه عرض وتشغيل برامج الاكسس 2016 (ليس جميع البرامج 100%) ، 3. تنسيق وحجم خط الكائنات تعتمد 100% على خطوط الوندوز ، لذلك ، على المبرمج ان لا يستخدم خطوط خاصة لبرنامجه ، فإذا نقل البرنامج على كمبيوتر آخر وليس فيه هذا الخط ، فيقوم الاكسس بإستبدال الخط الغير موجود مع خط افتراضي. جعفر

وعليكم السلام 🙂 اللي يجي في بالي: 1. اعمل 12 تقرير ، شهر لكل تقرير ، وبرمجيا تختار التقرير حسب الشهر 🙂 2. اعمل نسخة من الاستعلام ، ولكن بدون معايير ، نسخة لعمل التقرير فقط ، وعندما تريد عمل التقرير ، استعمل هذا الاستعلام لجلب الحقول المطلوبة ، ولما يكون التقرير جاهز ، قم بتغيير مصدر بيانات التقرير الى الاستعلام الصحيح 🙂 3. استعمل "مسقط التقارير" 🙂 جعفر

وعليكم السلام 🙂 التقرير لا يحترم فرز الاستعلام ، وانما يجب عمل الفرز في التقرير مباشرة 🙂 رجاء متابعة هذه المشاركة: جعفر

في هذه الحالة اعمل تغيير بدل الكمبوبوكس اعمله حقل نص ، وارجع الكود الى حدث "على التغيير" وتذكر هذه النصيحة ، لأنها حصلت للكثير الذين ارادوا العمل على طريقتك: جعفر

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يجب الانتباه الى اضافة مسافة فارغة بين كل سطر، ابتداءً من السطر الثاني: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL . لذا، من الافضل استعمال الطريقة التالية للسطور ابتداءً من السطر الثاني ، هكذا : dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & chr(32) & " FROM Table1" Me.Box.RowSource = mySQL جعفر

اها ، قصدك السطر في VBA لا يقبل ان يكون طويل !! نعم يمكن تجزئة السطر ، هكذا: dim mySQL as string mySQL = "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل]" mySQL = mySQL & " FROM Table1" Me.Box.RowSource = mySQL وهنا مثالين على الطريقة: جعفر

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يعني تقدر تعمل (للأسف تم قلب الاسماء ، لأنها بالعربي!!) : "SELECT [ت ],[اسم الموظف], [العنوان الوظيفي], [مكان العمل] FROM Table1" هذا غير ممكن ، يمكن عندك خطأ في مكان ما!! جعفر

نعم ، تختار المسار مرة واحدة ، ثم تختار الصور من القائمة المنسدلة

تفضل 🙂 998.تجربة.accdb.zip

وعليكم السلام 🙂 في الكثير من الاحيان ، مادام الكود يعمل بطريقة صحيحة ، فلا علاقة لنا بكيفية عمله 🙂 تفضل: Private Sub تفصيل_Print(Cancel As Integer, PrintCount As Integer) Dim ctl As Control Dim MaxHeight As Long 'اعطاء قيمة اوليه لأطول حقل MaxHeight = 0 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اذا كان طول الحقل اطول من القيمة الاوليه ، اذن قم بتغيير القيمة الاولية الى هذا الطول الجديد If ctl.Height > MaxHeight Then MaxHeight = ctl.Height End If Next 'نلف حول الحقول For Each ctl In Me 'اذا كان نوع الحقل نص ، ونحن في قسم التفصيل If TypeOf ctl Is TextBox And ctl.Section = 0 Then 'اعمل خط ، النقطة الاولى: يسار الحقل و وارتفاعه صفر 'والنقطة الثانية: يسار الحقل و وارتفاعه طول اطول حقل Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight) End If Next ' نرسم خط ، النقطة الاولى عرض التقرير ناقص 3 تويب و وارتفاعه صفر 'والنقطة الثانية: عرض التقرير ناقص 3 تويب ، و ارتفاعه طول اطول حقل Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight) ' نرسم خط ، النقطة الاولى: اقصى اليسار (يعني صفر) و ارتفاعه طول اطول حقل ' والنقطة الثانية عرض التقرير ناقص 3 تويب و ارتفاعه طول اطول حقل Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight) End Sub Private Sub Report_Page() 'تحميل خيارات الرسم عند فتح الصفحة Me.ScaleMode = 3 Me.ForeColor = 0 Me.DrawWidth = 3 End Sub . جعفر

السلام عليكم 🙂 ومشاركة مع اخي خالد ، يمكن ان نتحكم في ترتيب وقوف المؤشر من اعدادات الرقم (1) في الصورة ادناه ، مع العلم بأن التسلسل يبدأ من الرقم 0 ، اما اذا لم نرد ان يتوقف المؤشر على حقل ، فنغير اعدادات الرقم (2) الى No : جعفر

سهله 🙂 1. عندك النموذج جاهز من مشاركتي ، 2. انظر الى الصورة من مشاركتي: أ. نغير رقم (2 في الصورة) الى قائمة منسدله بجميع الأرقام ، واجعلها تحت الرقم (1) في الصورة ، ب. اعمل جدول وبه الارقام. جعفر Browse_images - combo.zip

حيالله اخوي محمدنجار 🙂 اخوي محمد السيد الشاطر ، هناك مجموعة مقترحات: 1. النموذج الرئيسي والنموذج الفرعي ، مصدر بياناتهم نفس الاستعلام ، وفي الواقع بهذه الطريقة فانت تغير بيانات السجل (اسم الطالب) عند اختيارك من الكومبوبوكس !! لذلك ، يجب ان لا يكون هناك مصدر بيانات للنموذج الرئيسي ، لأنك تستخدمه للبحث فقط ، 2. عند كتابتك اسم الطالب في الكومبوبوكس ، انت تستعمل حدث "التغيير" ، مما يعني انه عند طباعة كل حرف على الكيبورد ، فانت تطلب اعادة جلب بيانات النموذج الفرعي ، وهذا يشكل ضغط على الشبكة والجداول (خصوصا اذا كان البرنامج لإستعمال اكثر من مستخدم ، فستجده جدا بطيء) ، لذلك ، استعمل حدث "عند التحديث" ، 3. في الاستعلام ، لست بحاجة الى دمج مجموعة حقول ، فانت تبحث عن ID اسم الطالب فقط ، فعليه يجب ان تتبع مقترح الاخ محمدنجار في عمل المعيار لهذ الحقل فقط 🙂 جعفر

🙂

وعليكم السلام 🙂 يمكنك عمل تعديل بسيط على هذا الموضوع ، وبالتالي سيعمل مثل ما تريد . او . جعفر

الحمدلله ، كنت انتظر ان نصل الى القراءة الصحيحة ، ومنها نقدر نعدل مثل ما نريد 🙂 عندك عدة اختيارات ، ولكن المطلوب ان نجعل قيمة الوزن صفر ، قبل دخول الشاحنة الجديدة ، وكود التصفير هو: me.Label5.Caption = "0" 1. اعمل زر ، اجعل تسميته "تصفير الوزن وحساب وزن جديد" ، وفي حدث النقر ، اكتب الكود اعلاه ، بحيث ، قبل ان تدخل الشاحنة الجديده ، تضغط على هذا الزر. او / و 2. اكتب الكود اعلاه في نهاية حدث أ و ب . وبالنسبة الى كود قراءة القيمة من الجسر ، فيمكنك : 1. استخدام الكود القديم الذي كنت تستخدمه سابقا ، او 2. تستخدم الكود المختصر الاخير ، ولكن يجب ان تضيف هذا السطر في اول الحدث (مثل ما عملنا في الكود في مشاركتي الاخيرة) : 'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها if me.Label5.Caption<>"0" then exit sub . جعفر

على اساس كلما تريد تحسب وزن جديد ، لازم تفتح النموذج من جديد ، وعليه يكون المسمى في الحقل label5 هو 0 ، جرب هذا الكود: Private Sub MSComm1_OnComm() On Error Resume Next 'اذا كانت القيمة 0 ، فاكتب القيمة الجديدة، وإلا فلا تكتبها if me.Label5.Caption<>"0" then exit sub If MSComm1.CommEvent = comEvReceive Then me.Label5.Caption = Val(Mid(MSComm1.Input, 3)) End If 'MSComm1 MSComm1.InBufferCount = 0 End Sub جعفر

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

طيب واذا اردت حساب وزن جديد/شاحنه جديدة ، شو اللي تعمله؟