jjafferr

وعليكم السلام 🙂 في الواقع لا تحتاج الى الصاق اسم الجدول مع اسم الحقل ، الا اذا كان الحقل في اكثر من جدول !! يجب الانتباه الى اضافة مسافة فارغة بين كل سطر، ابتداءً من السطر الثاني: 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 جعفر

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

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

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

وعليكم السلام 🙂 شو الزر اللي تضغط عليه علشان يبدأ الميزان يحسب ويعطيك النتيجة؟ جعفر

وعليكم السلام اخوي ابو عبدالله 🙂 جرب بدلا عن .Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False جرب .Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False بعض الاحيان مكان قطع السطر مهم!! جعفر

ممكن تحذف فاصلة ، ثم تكتبها مرة ثانية ، فيطلع لك الخيارات 🙂 تفضل ، هذا الكود لفتح النموذج في وضع ورقة بيانات DoCmd.OpenForm "frmReturnedbyCus", acFormDS, , "[CusID]=" & Combo2 جعفر

رجاء جرب هذا الكود بدلا عن الكود السابق: Private Sub MSComm1_OnComm() On Error Resume Next If MSComm1.CommEvent = comEvReceive Then Label5.Caption = Val(Mid(MSComm1.Input, 3)) End If 'MSComm1 MSComm1.InBufferCount = 0 End Sub جعفر

الملف فارغ !! رجاء قم بالعمل مرة ثانية ، كالتالي: اغلق البرنامج ، افتح البرنامج ، اقتح النموذج ، قم بوزن الشاحنه ، ثم اغلق البرنامج ، ثم ارفق ملف txt مرة ثانية

في انتظار ان ترفق لنا هذا الملف ، والموجود في نفس مجلد البرنامج

وعليكم السلام 🙂 لما تكتب الفاصلة ، المفروض الاكسس يعطيك الخيارات اللي في محل الفاصلة ، مثلا: جعفر

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

وعليكم السلام 🙂 كان المفروض انك تعمل نسخ من مشاركتي السابقة ، ولصق في الكود بدلا عن الكود السابق الموجود في نموذجك ، ولكنك اخذت من هذا شوي ومن هذا شوي جعفر