jjafferr

وتعلمت اليوم شيء جديد ، شكرا لك اخي محمد 🙂 لم انتبه ان هناك حقل نص وحقل تاريخ في الكود ، لذلك حصلت على هذه الرسالة والرسالة التي تليها 😞 تفضل التعديل المبيعات Dim mySQL As String mySQL = "INSERT INTO invoice ( sit_ID, catcod, fatora_no, mvdate, Qtyout, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicesale!sit_ID & ", " & Forms!invoicesale!catcod & ", '" & Forms!invoicesale!f_no & "', " mySQL = mySQL & Chr(32) & "#" & Forms!invoicesale!movedate & "#, " & Forms!invoicesale!Qtyout & ", " & Forms!invoicesale!PRICESALE & ", " mySQL = mySQL & Chr(32) & Forms!invoicesale!Total & ", " & Forms!invoicesale!storid & ", " & Forms!invoicesale!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicesale!mosadd & ", " & Forms!invoicesale!baqy 'او ' mySQL = "INSERT INTO invoice ( sit_ID, catcod, fatora_no, mvdate, Qtyout, price, Total, storid, mvTyp, mosadd, baqy) " ' mySQL = mySQL & Chr(32) & "SELECT Forms!invoicesale!sit_ID , Forms!invoicesale!catcod , Forms!invoicesale!f_no , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!movedate , Forms!invoicesale!Qtyout , Forms!invoicesale!PRICESALE , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!Total , Forms!invoicesale!storid , Forms!invoicesale!mvTyp , " ' mySQL = mySQL & Chr(32) & "Forms!invoicesale!mosadd , Forms!invoicesale!baqy" DoCmd.RunSQL mySQL . الشراء Dim mySQL As String mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicebuy!supp_ID & ", " & Forms!invoicebuy!catcod & ", '" & Forms!invoicebuy!f_no & "', " mySQL = mySQL & Chr(32) & "#" & Forms!invoicebuy!movedate & "#, " & Forms!invoicebuy!Qtyin & ", " & Forms!invoicebuy!pricebuy & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!Total & ", " & Forms!invoicebuy!storid & ", " & Forms!invoicebuy!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!mosadd & ", " & Forms!invoicebuy!baqy 'او ' mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " ' mySQL = mySQL & Chr(32) & "SELECT Forms!invoicebuy!supp_ID , Forms!invoicebuy!catcod , Forms!invoicebuy!f_no , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!movedate , Forms!invoicebuy!Qtyin , Forms!invoicebuy!pricebuy , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!Total , Forms!invoicebuy!storid , Forms!invoicebuy!mvTyp , " ' mySQL = mySQL & Chr(32) & "Forms!invoicebuy!mosadd , Forms!invoicebuy!baqy" DoCmd.RunSQL mySQL . جعفر 1003.zip

وعليكم السلام 🙂 الافضل تقسيم جملة SQL الى اكثر من سطر: هكذا : بدل هذين السطرين DoCmd.RunSQL "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " & vbCrLf & _ "SELECT forms!invoicebuy!supp_ID AS Expr1, forms!invoicebuy!catcod AS Expr2, forms!invoicebuy!f_no AS Expr3, forms!invoicebuy!movedate AS Expr4, forms!invoicebuy!Qtyin AS Expr5, forms!invoicebuy!pricebuy AS Expr6, forms!invoicebuy!Total AS Expr7, forms!invoicebuy!storid AS Expr8, forms!invoicebuy!mvTyp AS Expr9, forms!invoicebuy!mosadd AS Expr10, forms!invoicebuy!baqy AS Expr11" استعمل Dim mySQL As String mySQL = "INSERT INTO invoice ( sp_ID, catcod, fatora_no, mvdate, Qtyin, price, Total, storid, mvTyp, mosadd, baqy) " mySQL = mySQL & Chr(32) & "SELECT " & Forms!invoicebuy!supp_ID & ", " & Forms!invoicebuy!catcod & ", " & Forms!invoicebuy!f_no & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!movedate & ", " & Forms!invoicebuy!Qtyin & ", " & Forms!invoicebuy!pricebuy & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!Total & ", " & Forms!invoicebuy!storid & ", " & Forms!invoicebuy!mvTyp & ", " mySQL = mySQL & Chr(32) & Forms!invoicebuy!mosadd & ", " & Forms!invoicebuy!baqy DoCmd.RunSQL mySQL جعفر

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

وعليكم السلام ورحمة الله وبركاته 🙂 قواعد المشاركة فى الموقع 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 جعفر