ابوخليل

يقصد الاستاذ جعفر بالمثال هو ان تضع مرفقا مصغرا تظهر المشكلة فيه ويمكن التعديل عليه

تفصيل الأول : جدول التصنيفات يعتبر اساس وان شئت قل هو القلب النابض للنظام ، يسجل فيه كل صغيرة وكبيرة تخص المنتج : الكود المصنعي (وهو المعرف وهو صورة الباركود التي تظهر على المنتج) الكود الداخلي ( تشترك فيه جميع اجزاء المنتج : الكرتونة واجزاءها) اسم الصنف / نوعه / وحدة1 / وحدة2/وحدة3 وهكذا لا مشاحة في التسميات .. فاسم الصنف هو الذي يظهر في فاتورة الزبون مثلا : شكولا حلواني كرتون ، شكولا حلواني علبة ... اما الوحدات فهي حقول رقمية يثبت بها العدد على اعتبار 1 هو الكرتون و 2 هو العلبة وهكذا ايضا هناك حقول اخرى كثيرة يجب ادراجها في سجل المنتج ولكن الذي يهمنا هنا هو ما ذكرناه اعلاه التفصيل الثاني : اعتقد ان تفصيله ظهر من خلال التفصيل الاول .. كيف ؟ عبر الكود الداخلي يتم التجميع والتصفية والتحويل

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

أنار الله لك دروبك ، وكل عام وانتم بخير

تحديد النوع يسجل آليا بمجرد ادخال كود الصنف _ بل ان جميع البيانات تدخل آليا _ ليس للبائع صلاحية ادخال او تعديل اي شيء غالبا الحقل الوحيد الذي يمكنه التعديل عليه ويظهر امامه في الشاشة هو : عدد المباع

الذي اعرفه CancelEvent تستخدم عادة في حدث قبل التحديث حين لا يتحقق شرط ما .. يتم إلغاء الإجراء ( البيانات المدخلة) .. ويمتنع التحديث اما Exit sub فهي عند عدم تحقق الشرط تلغي الإجراء وتتيح القفز الى اجراء آخر داخل الحدث

Exit sub

السلام عليكم انا مع ما تفضل به الاستاذ خالد ويسرني ان اشارك بشيء مما مررت به : المحلات التجارية اما ان تمتهن بيع الجملة وإما التفريد وهي ما يهمنا هنا ، وقد يوجد من يجمع بينهما لنضرب مثلا : محلات بيع الحلويات ، ولنأخذ نوع من الحلويات وهي اصابع الشيكولا ، فهي تتوفر بالكرتون الذي يحتوي على 12 علبة وفي كل علبة 24 اصبعا . فمحلات الجملة تبيع بالكرتون والعلبة .. وهنا يكون تعاملنا مع الصنف الأصغر ومحلات التجزئة تبيع بالعلبة والحبة .. وهنا سيكون تعاملنا مع الصنف الأصغر .... في محلات الجملة حين نمرر قارىء الباركود على باركود الكرتون مباع سوف يسجل 12 علبة في العدد ، ومثلها في المشتريات عند الادخال للمستودع وقس على ذلك محلات التجزئة : عند ادخال العلبة سوف يسجل 24 اصبع شيكولا ,, وعند ادخال الاصبع سوف يسجل اصبعا واحدا الخلاصة : يجب اعتماد حقل واحد يحتوي على وحدة معينة من الصنف ، هي التي يتم التعامل معها .

يبدوا ان الخلل في حاسوبي فهو لا يقبل Private Declare PtrSafe Function بتاتا سأحاول ايجاد السبب آسف لما سببته لك واخذت من وقتك وتقبل مودتي وشكري

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

السلام عليكم ايضا اذا اردنا التخيير بين فتح النموذج لعرض البيانات والتعديل عليها وبين فتحه لإدخال البيانات Private Sub Form_Open(Cancel As Integer) If MsgBox("Yes = لإدخال بيانات جديدة" & vbCrLf & _ "NO = لعرض البيانات والتعديل", _ vbQuestion + vbYesNo, _ "عرض وإدخال") = vbYes Then Me.DataEntry = True Else Me.DataEntry = False End If End Sub

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

عليكم السلام يمكنك ذلك وبكل يسر وسهولة فقط عند كل عملية ادخال او كل سجل جديد يتم تسجيله يتم ايضا ادراج معرف المستخدم في حقل خاص من حقول هذا السجل هنا يأتي دور الاستعلام في التصفية والعرض المعيار في الاستعلام سيكون دالة او وحدة نمطية عامة تأخذ قيمتها من معرف المستخدم عند الدخول للبرنامج

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

وعليكم السلام كل ما تفكر به ممكن تحقيقه ولكني اقنرح عليك استخدام جدول واحد ، فهو افضل

مبارك استاذ حسام زادك الله علما ونفع بك

السلام عليكم استمر على الخط 128 ، غالبا جميع اجهزة الباركود تقرأه

+1

عليكم السلام ورحمة الله وبركاته الطريقة هو ان تنشء حقلا رقميا في الجدول تكون قيمته الافتراضية صفر ، وعند كل امر طباعة للتقرير يتم تحديث هذا الحقل + 1 بحيث لو تمت طباعة التقرير للمرة الرابعة يظهر لك في التقرير الرقم 4

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

عليكم السلام جرب تبحث داخل المنتدى يوجد الكثير حول تحريك الصور وهذا واحد منها وهذا مثال من مكتبتي سرعة_سيارات.mdb

فيك الخير والبركة استاذنا الفاضل جعفر ادامك الله ذخرا لإخوانك

لم اطلع على المرفق ولكني عملت لك هذا حسب ما فهمت Dim i As Integer Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then i = i + 1 If i = 3 Then MsgBox "اعمل الإجراء" Exit Sub End If Else i = 0 End If End Sub test1.mdb

للرفع

تفضل dbskn_up.mdb