ابوخليل

تم تعديل الكود بطريقة اخرى وتمت تجربته ويعمل على اكمل وجه اذا ظهر عندك الخطأ يجب عليك : 1- اولا اعمل ريستارت للجهاز 2- التأكد من لوحة المفاتيح .... 3- اعداداتها في وندوز db4.mdb

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

ايضا عندي تعمل حسب طلبك على اكمل وجه .. اذا الرسالة تظهرعندك في المرفق انقر على debug واعطنا صورة للسطر محل المشكلة db3.mdb

وعليكم السلام ورحمة الله وبركاته Private Sub codeGovernorate_AfterUpdate() Forms!mpr!codeGovernorate = Me.codeGovernorate End Sub Private Sub coderanking_AfterUpdate() Forms!mpr!coderanking = Me.coderanking End Sub نقل قيمة2.accdb

اجعل الحدث عند اغلاق النموذج وليس عداد النموذج الصق السطر الخاص بالنسخ فقط Call Shell("xcopy /y E:\MyFolder\Databasebackup.mdb c:\backup", 1) Databasebackup.mdb

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

الوزن يكون على المواد الاولية المخرجة لاعداد وجبات اليوم ، ويمكن الاخراج يتم على فترتين (الصباح والمساء ) مثلا 20كج طماطم ، 30 كج لحمة ، 15 كج طحين ، 10 كج بصل ، علبة بهارات ، 4 جالون زيت .. وهكذا السندويش او الكباب او السلطات وغير ذلك من الاطعمة المصنعة غير داخلة في الحسبة ... فهذه اصناف مختلفة ( منتجات) ولها جداولها وحسبتها الخاصة وترتبط بجدول المبيعات فقط

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

تبدأ بتسجيل البيانات الثابتة اولا 1- تسجل الخامات في جدول cost من خلال نموذج costFrm 2- تسجيل الوحدات في جدول الوحدات ثم تدخل البيانات المتجددة في جدول cost2 من خلال النموذجين ابتداء بنموذج المشتريات ، ثم نموذج الاخراج لانه لا يتصور اخراج خامة لا يوجد لها رصيد ، وهنا يتبادر الى الذهن وجوب عمل ضابط في نموذج الاخراج ( تنبيه او منع تسجيل ) عند اختيار خامة لا رصيد لها قلنا ان البيع واصناف المبيعات قسم جديد ستقوم انت بتصميمه

عدلت على المثال ولاحظ التالي : الوحدة يتم ادخالها في جدول cost ( صنف الخامة ) وتنزل آليا في نموذج الشراء ونموذج الاخراج ، لان هذا منطقي فالخامة التي تشتريها حسب وحدة محددة يجب اخراجها بنفس الوحدة ،، ستقول نحن نشتري الطحين بالشوال 50 كج ونخرج منه في اليوم الربع او النصف هنا لا بد من الضبط فيجب ان يدخل الشراء بــــ كج فيدخل وزن الكيس 50 كج ويتم الاخراج بنفس الوحدة اطلع على المثال جيدا ثم امسح البيانات واعد ادخال بيانات جديدة oreR1.accdb

تمام .. فتح الله عليك شراء الخامات واخراجها شيء وبيع الاصناف شيء آخر

نعم ولكن احذف حقل الشراء من جدول t1 والجدول الثاني اضف اليه الحقول الخاصة بالبيع ( سعر الوحدة ، الاجمالي ) باعتبار انك تعمل برنامج بيع منفصل عن جدول شراء المواد الاولية

نعم جدول مبيعات جدول اصناف غير مرتبط بالخامات فقط رقم الصنف واسمه وسعر البيع

الفكرة لم تصل بعد الى ذهنك كيف تبيع من جدول cost2 ؟ الاصناف والمبيعات قسم آخر لا صلة له بالمواد الاولية ، (برنامجين داخل مشروع واحد) فقط تستفيد من جدول cost2 من مجاميع سعر الشراء حين تجلبها في تقارير الربح والخسارة

وعليكم السلام جرب .. غير نوع حقل رقم الموظف في الجدول من رقم الى مذكرة

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

حتى انا ليس لدي تصور كامل ، وهل سوف يتم احكام الفكرة ، لأن الخامات كثيرة لذا انت مضطر لتطبيق رأيي الأول اليس المطلوب هو الاستعلام عن رصيد الخامات من كل نوع ؟ لذا الافضل والأتقن ان تكون عمليات الخامات منفصلة عن الاصناف والمبيعات العامل الذي يجلب الخامات من مستودع او ثلاجة المطعم تسجل كعملية اخراج ثم بعد ذلك يتم اعدادها _ جدول مشتريات الخامة يتم مقارنته بجدول المبيعات ( النقود / ربح - خسارة ) - جدول مشتريات الخامة يتم مقارنته مع جدول اخراج الخامة ( لاستخراج رصيد الخامات ) - جدول الاصناف مساعد لعمليات البيع ( يكفي اسم الصنف والسعر )

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

السلام عليكم تفضل اخوي عمر حسب طلبك استخدمت مربعي نص من اجل تحقيق الفكرة يمكنك التحكم بعرض الشريط يدويا مع مراعاة العرض داخل الكود Private Sub Form_Open(Cancel As Integer) Me.box2.Width = 6600 End Sub Private Sub Form_Timer() On Error Resume Next If Me.box2.Width = 0 Then Me.TimerInterval = 0 Else Me.box2.Width = Me.box2.Width - Me.box1.Width \ Me.lx End If End Sub Private Sub أمر3_Click() Me.box2.Width = 6600 Me.TimerInterval = 50 End Sub 88 _2.accdb

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

وان اردت اصوات مختلفة من اصوات النظام فعليك تشغيل الملف عند الحدث المحدد وللاطلاع على ملفات اصوات النظام الموجودة في وندوز افتح مجلد الوندوز واكتب في البحث .wav

سلمت اناملك ابوعبدالله MsgBox ChrW(KeyAscii)

شكرا اخوي جعفر على المداخلة الجميلة تظهر الحروف الانجليزية هل يمكن اظهار حروف اللغة البديلة لأني اقلب لوحة المفاتيح الى العربية ولا يتم التقاط الحروف

عليكم السلام اكسس يتعرف على رقم الزر ولكن الحرف متروك للمستخدم لذا يلزم ان نترجم الرقم الى حرف ، من خلال جدول في المثال وضعت لك في الجدول حروف الازرار انجليزية كما هي عندي ، ويمكنك استبدالها بأي لغة تريد لاحظ : عندما تخرج الرسالة خالية هذا يعني ان الزر لم يدرج رقمه وحرفه ضمن الجدول Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Dim i As String i = Nz(DLookup("nmKey", "tblNumberKey", "idNmKey =" & KeyCode)) MsgBox i End Sub test.mdb

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