AbuuAhmed

توسيط جميع المكونات في النموذج ككتلة واحدة أثناء التشغيل آليا داخل النافذة عند إعادة تحجيمها. جربوا توسيع النافذة بالفأرة وشاهدوا تأثير التوسيط المباشر. لا أعلم إذا يوجد مثال مشابه أو لا لتوسيط كامل النموذج. من صمم أو شاهد أفكار مشابهة فليضعها هنا لإثراء الموضوع. وهذا موضوع به نفس الكود لفكرة التوسيط، وبه أيضا أفكار عدة جميلة من وجهة نظري تستحق المشاهدة: وإليكم مثال التوسيط: Re-centerExample_02.accdb

هل بعد مشاركتك هذه والصورة المرفقة تصر على أنها غير متعمدة؟!!! وبدلا من أن تعتذر تحسسني أني غلطان عليك وباقي تطلب مني الإعتذار ولو أنك طلبتها بشكل غير مباشر وقد تعاطفوا معك أصحاب القلوب الرحيمة 🙂 وترانا مثلكم عندنا أولاد وأحفاد ومشاكل وبلاوي وأمراض وضغوطات ومع ذلك لا نستسلم لها ولا نعطي فرصة لأحد لانتقادنا بقدر الإمكان. أخي @ابوخليل سأرسل لك رسالة الليلة أو اللي بعدها إن شاء الله وسأكتب لك فيها عن بعض الممارسات التي يجب أن تختفي أو تتراجع ، أحدها أنت تداخلت فيها معي. وبعض الحلول التي يمكن دراستها ومن ثم تطبيقها.

سؤال أحاول أعرف جوابه لـ @أكسس وبس : أنا عملت لك تعديلات أتعبتني وأخذت مني وقت طويل في موضوعك السابق ، ثم أتفاجأ الآن أنك ترفع المثال حاذف منه كل تعديلاتي!! ممكن طال عمرك تفهمنا السبب؟ أنا أنصح أخي @ابوخليل وباقي الزملاء بالتوقف عن مساعدتك إذا كان هذا ديدنك.

جرب ، عملته أولا في النموذج الرئيسي ثم رأيت أن يكون في الفرعي. Database1_05.mdb

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

منذ الصباح الباكر وأنا أحاول مع هذه المشكلة الغريبة. أنا الحقيقة لا أحب ولا أتعامل مع هذا النوع من النماذج Continuous Forms ولا إضافة معادلات لمصدر الصناديق Control Source وسامحني قد لا أستطيع التواصل معك فأنا انقطعت عن برامجي الخاصة ولا بد أن أرجع لها. قاعدة بيانات4_02.accdb

جرب فقط نموذج مبيعات يومية وإدخال الباركود عن طريق الصندوق الأصفر. عدلت طول رمز الصنف من 7 إلى 5 خانات. Database1_04.mdb

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

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

جيد، توني أنتبه أن الأصفار تابعة للرمز. أنا لما قلت 5 لأني طرحت أول رقمين من اليسار من 7 أرقام المعتمدة حاليا. سأقوم بالتعديل.

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

العادة تكون التجارب على نموذج واحد، وعند نجاح التجارب تطبق التعديلات على النماذج الأخرى. عملت طريقة لتقليل حجم التخزين للبيانات وذلك بتقليص طول رمز الصنف إلى طول 7 خانات فقط في كل من جدول الأصناف وبيع أصناف. الطريقة أن هناك طريقتيت للإدخال الأولى أعلى مسميات الحقول وهذا مخصص للقارئ، والآخر هو الطريقة العادية المباشرة في قسم التفاصيل. عند اختلاف طول رمز الصنف عن طول الباركود هناك طريقين أما بالطريقة التي أنا طبقتها الآن أو بتوسيع طول رمز الصنف من 7 خانات إلى 13 خانة وهذا يعتبر عيب برمجي. Database1_03.mdb

جرب النموذج بعد التعديل. وهناك ملاحظات كثيرة، أؤجلها إلى الليلة إن شاء الله تعالى. ملاحظة: لا يوجد لدي قارئ الباركود، لذلك التجارب عليكم. Database1_02.mdb

ما أقدر أفتحها، إذا استطعت تحويلها إلى إصدار 2007 أو أقل سأقوم بالمحاولة إن شاء الله تعالى.

غير متأكد ، عدل في هذا الحدث: Private Sub Form_Load() If Me.RecordsetClone.RecordCount = 0 Then DoCmd.GoToRecord , , acNewRec End If End Sub أو عطله تماما.

إذن الوزن سنحصل عليه باستخدام المعادلة التالية: NetWt = Mid(BarCode, 8, 5) / 1000 ورمز الصنف: ItemCode = Left(BarCode, 7) وهذا جدول به المقارنات:

الصورة الأخيرة ما استفدنا منها لأن السعر والوزن غير كاملين. أعتقد أول رقم من اليمين جزء من الوزن ولكن يبقى احتمال أنه مهمل.

أخي حتى نفك لغز الباركود زودنا بأكثر من ملصق لأصناف مختلفة وأسعار مختلفة.

أخي الفاضل .. ركز معي بيانات الملصق شيء وبيانات الباركود شيء آخر.

أنا لست من أصحاب الخبرة اللقب أعطوني إياه بالخطأ ومشاركتي في موضوعك لقافة. عندي مشكلة أن الأكسس عندي 2007 ، ارفع لي نسخة بنفس الإصدار ربما تكون مشاركتي مع زملائي أكثر نفعا. أخي أنت صاحب الموضوع ولكن أعتقد "وسامحني على كلامي" أنك لا تعلم ما يحتويه الباركود من بيانات، والله أعلم هو لا يحتوي إلا على معلومتين فقط الوزن ورمز الصنف. وأتصور أن الميزان وظيفته معرفة الوزن ورقم الصنف يختاره الموظف الموزن يدويا وباستخدام برنامج وسيط لعمل الملصقات مرتبط بنفس قاعدة البيانات ولكن الباركود يقتصر على المعلومتين الوزن والرمز وجهاز الكاشير سيأتي بباقي البيانات من نفس قاعدة البيانات عن طريق رقم الرمز بالباركود. الآن فقط على الزملاء تقسيم الباركود إلى جزئين ، فجزء الوزن يقسم على 10000 والجزء الثاني هو رقم الصنف والمكون من 7 خانات ثم يجربوا. أعتقد بدون "الإنتر" من القارئ يمكن الإستفادة من حدث عند التغيير، وبالإنتر يمكن الإستفادة من حدث بعد التحديث. وأنا الصراحة هذه الأيام مزاجي متعكر وربما أكتفي بالتعليقات والإشارات البسيطة. الآن ورد في خلدي أن أول رقم من اليمين في الباركود هو موقع "." الفاصلة المئوية في الوزن، والله أعلم.

أضفت كود حذف الفاتورة والمفترض عند حذف الفاتورة سيقوم بحذف الأصناف آليا لأنه مرتبط بعلاقة في الجداول. جرب الآن: Private Sub Command16_Click() Dim invRst As Recordset Dim itmRst As Recordset Dim DocID As Long On Error Resume Next If vbNo = MsgBox("هل تريد حذف الفاتورة الحاليه ؟؟؟", vbYesNo + _ vbCritical + _ vbMsgBoxRight + _ vbDefaultButton2, "تحذير") Then Exit Sub End If Set itmRst = CurrentDb.OpenRecordset("Stor1", dbOpenDynaset) Set invRst = Me.frmPurches.Form.RecordsetClone invRst.Filter = "Add_doc=" & Me.Add_doc Set invRst = invRst.OpenRecordset With invRst .MoveFirst Do While Not .EOF itmRst.FindFirst "Number1='" & !Number & "'" If Not .NoMatch Then itmRst.Edit itmRst!currentRased1 = itmRst!currentRased1 - !Qty_in itmRst.Update End If .MoveNext Loop End With If (Not Me.NewRecord) Then DoCmd.RunCommand acCmdDeleteRecord End If Set invRst = Nothing Set itmRst = Nothing End Sub

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

إذا لم يكن يوافق المطلوب ، أرجو التوضيح أكثر Percentages_01.xlsx

جرب هذا الكود Private Sub Command16_Click() Dim invRst As Recordset Dim itmRst As Recordset If vbNo = MsgBox("هل تريد حذف الفاتورة الحاليه ؟؟؟", vbYesNo + _ vbCritical + _ vbMsgBoxRight + _ vbDefaultButton2, "تحذير") Then Exit Sub End If Set itmRst = CurrentDb.OpenRecordset("Stor1", dbOpenDynaset) Set invRst = Me.frmPurches.Form.RecordsetClone invRst.Filter = "Add_doc=" & Me.Add_doc Set invRst = invRst.OpenRecordset With invRst invRst.MoveFirst Do While Not .EOF itmRst.FindFirst "Number1='" & !Number & "'" If Not .NoMatch Then itmRst.Edit itmRst!currentRased1 = itmRst!currentRased1 - !Qty_in itmRst.Update End If .MoveNext Loop End With Set invRst = Nothing Set itmRst = Nothing End Sub

فحص لكلامي: Sub TestPeriods() Dim DateFm As Date Dim DateTo As Date DateFm = DateSerial(1583, 1, 1) DateTo = DateSerial(9999, 12, 31) Debug.Print GetYears(DateFm, DateTo) Debug.Print (DateTo - DateFm + 1) / 365.25 Debug.Print (DateTo - DateFm + 1) / 365.2425 End Sub النتائج 8417 8416.82683093771 8416.99966460639