jjafferr

تفضل 🙂 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 مرة ثانية

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

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

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

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

وعليكم السلام ابو ياسين 🙂 اقترح عليك ان تضع كل 5 حقول في سطر واحد (مثلا) ، ثم تعطي كل سطر رقم تسلسل (لاحظ الصورة المرفقة) : Dim mySQL As String '1 mySQL = " INSERT INTO Data4" mySQL = mySQL & " ( rakm, name, daftar, nofatora, [user], " '1 mySQL = mySQL & " [date], sar, madfoa, taslim, datew, " '2 mySQL = mySQL & " bage, kasm, tob, taslim2, date2, " '3 mySQL = mySQL & " komash, quntt, komash1, quntt1, komash2, " '4 mySQL = mySQL & " quntt2, komash3, quntt3, komash4, quntt4, " '5 mySQL = mySQL & " komash5, quntt5, komash6, quntt6, komash7, " '6 mySQL = mySQL & " quntt7, molhda, oakt, goal, " '7 mySQL = mySQL & " الطول, الكتف, [طول اليد], الرقبة, الوسع, " '8 mySQL = mySQL & " [وسع اليد], [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], " '9 mySQL = mySQL & " [كفه اسفل], حشوه, جيبزور, يد, جيب, " '10 mySQL = mySQL & " [رقبة قلاب], [رقبة سادة], خياطه, [جيب جوال], [الثوب كامل دقتين], " '11 mySQL = mySQL & " تطريز, زرار, ملاحظات, ملون, " '12 mySQL = mySQL & " astalim, notaslem, astalim2, date3, kiyat, " '13 mySQL = mySQL & " date4, x1, 1, 2, 3, " '14 mySQL = mySQL & " 4, 5, 6, 7, 8, " '15 mySQL = mySQL & " 9, 10, 11, 12, 13, " '16 mySQL = mySQL & " 14, 15, 16, 17, 18, " '17 mySQL = mySQL & " 19, 20, 21, 22, 23, " '18 mySQL = mySQL & " 24, 25, 26, 27, 28, " '19 mySQL = mySQL & " 29, 30, 31, 32, 33, " '20 mySQL = mySQL & " 34, 35, 36, 37, 38, " '21 mySQL = mySQL & " 39, 40, 41, 42, 43, " '22 mySQL = mySQL & " 44, 45, 46, 47, 48, " '23 mySQL = mySQL & " 49, 50, 51, 52, 53, " '24 mySQL = mySQL & " 54, 55, 56, 57, " '25 mySQL = mySQL & " نص1, نص2, نص3, نص4, نص5, " '26 mySQL = mySQL & " نص6, نص7, نص8, نص9, نص10, " '27 mySQL = mySQL & " نص11, نص12, نص13, نص14, نص15, " '28 mySQL = mySQL & " نص16, نص17, sora, date5, " '29 mySQL = mySQL & " رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, رقم_القماش4, " '30 mySQL = mySQL & " رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba )" '31 '2 mySQL = mySQL & " SELECT " mySQL = mySQL & " rakm, name, daftar, nofatora, User, " '1 mySQL = mySQL & " Date, sar, madfoa, taslim, datew, " '2 mySQL = mySQL & " bage, kasm, tob, taslim2, date2, " '3 mySQL = mySQL & " komash, quntt, komash1, quntt1, komash2, " '4 mySQL = mySQL & " quntt2, komash3, quntt3, komash4, quntt4, " '5 mySQL = mySQL & " komash5, quntt5, komash6, quntt6, komash7, " '6 mySQL = mySQL & " quntt7, molhda, oakt, goal, " '7 mySQL = mySQL & " الطول, الكتف, [طول اليد], الرقبة, الوسع, [وسع اليد], " mySQL = mySQL & " [وسع اليد1], [وسع اليد 2], [طقطق مع زر], [الوسع الاسفل], " mySQL = mySQL & " [كفه اسفل], حشوه, جيبزور, يد, جيب, [رقبة قلاب], [رقبة سادة], خياطه, " mySQL = mySQL & " [جيب جوال], [الثوب كامل دقتين], تطريز, زرار, ملاحظات, ملون, " mySQL = mySQL & " astalim, notaslem, astalim2, date3, kiyat, date4, x1, " mySQL = mySQL & " [1], [2], [3], [4], [5], [6], [7], [8], [9], [10], [11], [12], [13], [1], " mySQL = mySQL & " [15], [16], [17], [18], [19], [20], [21], [22], " mySQL = mySQL & " [23], [24], [25], [26], [27], [28], [29], [30], " mySQL = mySQL & " [31], [32], [33], [34], [35], [36], [37], [38], " mySQL = mySQL & " [39], [40], [41], [42], [43], [44], [45], [46], " mySQL = mySQL & " [47], [48], [49], [50], [51], [52], [53], [54], [55], [56], [57], " mySQL = mySQL & " نص1, نص2, نص3, نص4, نص5, نص6, نص7, نص8, نص9, " mySQL = mySQL & " نص10, نص11, نص12, نص13, نص14, نص15, نص16, نص17, " mySQL = mySQL & " sora, date5, " mySQL = mySQL & " رقم_القماش, رقم_القماش1, رقم_القماش2, رقم_القماش3, " mySQL = mySQL & " رقم_القماش4, رقم_القماش5, رقم_القماش6, رقم_القماش7, daraba " mySQL = mySQL & " from Data" mySQL = mySQL & " WHERE nofatora=" & [Forms]![Data]![رقم الفاتورة2] DoCmd.RunSQL mySQL . اذا تلاحظ الخطين الاحمرين ، بحيث كل رقم من الاعلى ، له رقمه في الاسفل ، وهي نفس الحقول التي تُدرج فيه البيانات ، وبهذه الطريقة المنظمة ، يمكنك اكتشاف الاخطاء : . جعفر

هممم انت قلت والآن تقول لتسهيل العمل ، اقترح عليك عمل حقل جديد في جدول constants باسم use_this_school ومن نوع Yes/No . بحيث تختار سجل المدرسة الصحيحة مرة واحدة ، او مرة كل سنة ، وعليه نعمل الاستعلام qry_constant للجدول constant ، ونضع معيار لهذا الحقل الجديد ، ثم يكون هذا الاستعلام مصدر بيانات النموذج: . اما بالنسبة الى التقرير ، فاقترح ان تعمل تقرير فرعي للمنطقة الحمراء في الصورة ادناه ، بالبيانات المطلوبة ، ويكون مصدرها الاستعلام qry_constant . جعفر 996.2.حوسبة العمل الاداري 1.0.mdb.zip

وعليكم السلام 🙂 انا استعمل هذه الطريقة: mySQL = "insert into T1" mySQL = mySQL & " ([a],,[c],[d],[e],[f],[g],[h],,[j],[k]) values('" mySQL = mySQL & " & " & rs.Fields(1) & "', '" mySQL = mySQL & " & " & rs.Fields(2) & "', '" mySQL = mySQL & " & " & rs.Fields(3) & "', '" mySQL = mySQL & " & " & rs.Fields(4) & "', '" mySQL = mySQL & " & " & rs.Fields(5) & "', '" mySQL = mySQL & " & " & rs.Fields(6) & "', '" mySQL = mySQL & " & " & rs.Fields(7) & "', '" mySQL = mySQL & " & " & rs.Fields(8) & "', '" mySQL = mySQL & " & " & rs.Fields(9) & "', '" mySQL = mySQL & " & " & rs.Fields(10) & "', '" mySQL = mySQL & " & " & rs.Fields(0) & "')" DoCmd.RunSQL mySQL جعفر

تفضل 🙂 . جعفر 993.تاريخ.mdb.zip