ابوخليل

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

وهذه النتيجة على المثال الاصل NotExists4.rar

عدم المؤاخذة .. انا فهمت غير ذلك تفضل الاستعلام qry_never2 يظهر المطلوب اتمنى ان يكون صحيحا NotExists3.rar

كما اتفقنا ، البداية الصحيحة من جدول الاصناف هذا مثال لكيفية ادخال بيانات صنف معين ، اقصد الترقيم الخاص بالاصناف في المثال نموذج الاصناف وبه زر جديد عند النقر على الزر يتم ادراج ثلاث سجلات ويتم ترقيمهن آليا الست ارقام من اليسار تشترك فيه وحدات الصنف الواحد ، والسابع يخص الوحدة ومفهوم ان السجل الاول للكرتون والثاني للعلبة والثالث للحبة __________________________________ عند اختيار الصنف في البيع او الشراء يتم ادراج رقم الصنف هذا ، والعدد ، ويتم ايضا ادراج اصغر وحدة لهذا الصنف فنجعل هذه الوحدة الصغرى هي الأساس في الاستعلام يمكننا لاحقا عكس العملية وتحويلها الى وحدات اكبر رصيد الاصناف2.accdb

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

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

مثلا المعرفات تبدأ بأربعة ارقام او خمسة على طريقة الحقل الواحد تكون كالتالي : لنقل مثلا صنف1 اعطيناه المعرف الأساس : 10001 فالكرتونه تأخذ معرف 100011 والعلبة 100012 والحبة 100013 صنف2 المعرف الأساس = 10002 .. الكرتونة 100021 العلبة 100022 الحبة 100023 وهكذا ... والافكار حول هذا كثيرة .. يمكنك تشغيل خيالك اما المتاجر التي تأخذ رقم الصنف من باركود المصنع فإن كان الباركود متوافق مع الفكرة فقد كفينا المؤونة ، لأن المصانع تضع على المنتج رقما لكل وحدة وإلا استحدثنا حقلا جديدا لمجموعة الصنف .. ونضع امام وحدات الصنف1 رقما موحدا مثلا رقم 1 والصنف2 رقم 2 وهكذا ... وعند التجميع نجعل الحقل الاخير هذا هو المعيار اما المعيار اذا كان الحقل المعرف واحدا فهو معرف الصنف الاساس بحيث نقتطع 5 ارقام من اليسار

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

الكود موجود في المنتدى وانا عرضته كاملا مع شروحات الأصل في اكثر من مشاركة تخص ربط الجداول ولكني هذبته لغرضي هذا الخاص هذا هو الكود: Public Function AutoLinks(ByVal strDBPassword As String) As Boolean On Error GoTo AutoLinksErr Dim tdf As TableDef Dim strNewMDB As String For Each tdf In CurrentDb.TableDefs If UCase(Left(tdf.name, 6)) <> "COMPAS" Then If Len(tdf.Connect) > 0 And tdf.Fields.Count = 0 Then strNewMDB = "c:\bader\BData.db" If (IsNull(strDBPassword) = True) Or (strDBPassword = "") Then tdf.Connect = ";DATABASE=" & strNewMDB Else tdf.Connect = ";DATABASE=" & strNewMDB & ";PWD=" & strDBPassword End If tdf.RefreshLink End If End If Next tdf AutoLinks = True ' AutoLinksDone: Exit Function AutoLinksErr: MsgBox "لا يوجد قاعدة بيانات فضلا اتصل بالدعم الفني" 'MsgBox "Error #" & err.Number & ": " & err.Description, vbCritical Resume AutoLinksDone End Function ويتم مناداته في نموذج البداية على هذا النحو : If AutoLinks("") = False Then Call Application.Quit End If وهذا مرفق صغير عبارة عن مجلد .. تم اعداده على ان يتم وضع المجلد على قرص C وللتجربة يمكن اخذ نسخة من القاعدة الخلفية BDAta.db ولصقها في اي مكان آخر وتغيير اللاحقة الى mdb واجراء التجربة bader.rar

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

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

اكيد يوجد حل وافضل من الأول يمكنك الآن ادخال مئات التحويلات في اليوم الواحد وللدائرة الواحدة ‫hafez2.rar

اخي عبدالله آمل ان تعذرني لعدم وصولي الى طريقة سهلة من خلال اكسس اتضح لي ان حقل المرفقات يتضمن في الخلفية ثلاث حقول اخرى : اسم الصوره ، ونوعها ، وبياناتها حاولت وبحثت واخيرا توصلت الى صفحة تتحدث بالتفصيل عن الموضوع .. وهذا رابطها

تفضل تم التصميم عملك سيكون غالبا على نموذجين اثنين نموذج ادخال الحوالات مقسوم الى جزئين : العلوي للاطلاع على آخر مبلغ تم صرفه ويظهر فيه الباقي السفلي لادخال الحوالة الجديدة ولاحظ انه يجب ادخال المتبقي السابق يدويا ( جميع الحقول اجبارية خاصة الادارة وتاريخ الحوالة ) تم البناء على اساس منطقي وهو انه لن يتم ادخال الحوالة لقسم محدد مرتين في اليوم ... فكان الاعتماد في اظهار الموظفين للتوزيع بناء على تاريخ ادخال الحوالة . عملت لك في جدول الاسماء حقل : نعم/ لا .. لتتمكن مستقبلا لو اردت حجب الحافز عن احد الاشخاص جرب الادخالات مرات عديدة وحاول تكتشف اذا يوجد ثغرات . في النهاية جدول التفاصيل هو اساس مخرجاتك يمكنك من خلاله استخراج اي تقرير يخطر على بالك ‫hafez1.rar

ابشر طلبك قيد التنفيذ ...

الاعمدة المرفقة انواع ، فضلا ارفع مثالك

عليكم السلام ابحث في المنتدى عن : الوارد اولا صادر اولا المنتدى مليء بمثل هذه المواضيع

تم دمج الموضوعين

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

كان الاولى ان تعمل نماذج حسب فكرتك ليتم التطبيق عليها تفضل التعديل db1.mdb

عن طريق ورقة الخصائص / تنسيق يوجد الكثير من التنسيقات الفنية .. ستتضح لك بالتجربة والمشاهدة . علما ان زر الاغلاق وخاصية عنصر التحكم بينهما ترابط فمثلا لو اخترت عنصر التحكم = لا .. فلا يمكن تمكين زر الاغلاق حتى لو كانت خاصيته = نعم

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

تفضل فلترة للتقرير بناء على مربع قائمة ، عملته على المرفق الأول اختر بند او اكثر ثم افتح التقرير ، للعلم استعلام التقرير جعلته بداخل التقرير والنموذج الفرعي كذلك ولكني لم اكمله Dim stDocName As String Dim strCriteria As String stDocName = "الصباحية والمسائية" strCriteria = "1" strCriteria = strCriteria & filtering(Me.cbo1, "EAAQAH", "'") DoCmd.OpenReport stDocName, acPreview, , strCriteria 219_.rar

هل تقصد ترقيم سجلات جديدة ؟ ام تريد اعادة ترقيم الموجود ؟

لا تجعل المعايير بصف واحد ضع واحد في سطر المعايير والآخر في السطر ( او ) اللي تحته الآن في مثالك كأنك تقول : خذ من مربع التحرير 1 ( and ) مربع التحرير2 واذا وضعت المعيار الثاني في السطر الثاني كأنك تقول : خذ من مربع التحرير 1 ( Or ) مربع التحرير2 Query.accdb