rudwan

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

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

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

الملف المثبت يقوم باستدعاء الماسح الضوئي و حفظ الصور ماهو الشيء الذي لم تستفد فيه منه ؟ علك توضح أكثر

أهلا أبو آلاء الفكرة طلبناها منذ فترة طويلة لكن تحتاج برمجة و لم يتم التوصيل بعد الى حل مع الشركة المبرمجة

تعديل برمجي فقط و لم أتطرق الى معادلاتك أبدا فقط قمت بتعديل لغوي للكود اختبر الكود لتعرف مدى صحة الحساب كما تريد

T = Val(B.Value) + (A.Value) If De = "Óä ÇáÊÞÇÚÏ" Then Select Case Y Case Is < 14 Sal = 0 Boun = 0 Case 14 If M >= 6 Then Sal = T * 0.04 * 15 Boun = T * 7.5 Else Sal = 0 Boun = 0 End If Case 15 To 19 Sal = T * 0.04 * (Y + (M / 12) + (D / 365)) Boun = T / 2 * (Y + (M / 12) + (D / 365)) Case Is >= 20 Sal = T * 8 Boun = T / 2 * (Y + (M / 12) + (D / 365)) End Select ElseIf De = "ÇáæÝÇÉ" Then Select Case Y Case 12 If M >= 6 Then Sal = T * 0.04 * (Y + (M / 12) + (D / 365)) Boun = T * (Y + (M / 12) + (D / 365)) Else Sal = T * 0.5 Boun = T * (Y + (M / 12) + (D / 365)) End If Case 13 To 19 Sal = T * 0.04 * (Y + (M / 12) + (D / 365)) Boun = T / 2 * (Y + (M / 12) + (D / 365)) Case Is >= 20 Sal = T * 8 Boun = T / 2 * (Y + (M / 12) + (D / 365)) End Select If Sal > 0 And Sal < 203 Then Sal = 203 Else Sal = 0 Boun = 0 End If

قم بانشاء نموذج و زر أمر ضع في زر الأمر الكود التالي Dim ws As Workspace Dim db As Database Dim sqltext, Sc_Name As String Dim i, m As Long Dim qdfNew As DAO.QueryDef Dim LFilename As String Set ws = DBEngine.Workspaces(0) m = DMax("school_no", "data_kids") For i = 1 To m If DLookup("school_no", "data_kids", "[school_no] = " & i) Then sqltext = "SELECT data_kids.* FROM data_kids WHERE (((data_kids.school_no)= " & i & "));" On Error Resume Next With CurrentDb .QueryDefs.Delete ("School") Set qdfNew = .CreateQueryDef("School", sqltext) End With LFilename = "c:\sample\Schl_" & i & ".mdb" If Dir(LFilename) <> "" Then Kill LFilename 'Create a new mdb file Set db = ws.CreateDatabase(LFilename, dbLangGeneral) 'For lookup tables, export both table definition and data to new mdb file DoCmd.TransferDatabase acExport, "Microsoft Access", LFilename, acTable, "School", "data_kids", False DoCmd.DeleteObject acTable, "School" End If Next i db.Close Set db = Nothing MsgBox "Done" مع ملاحظة مايلي : 1 - يمكنك تغيير اسم المجلد الذي تريد حفظ البيانات فيه من نفس الكود 2- قمت بتسمية الملفات بارقام المدارس لأنها ستكون أسهل عليك عند استعادة الملفات لكن ان رغبت الحفظ باسم المدرسة نفسها فسيكون الكود كما يلي استبدل السطرين End With LFilename = "c:\sample\Schl_" & i & ".mdb" بالسطرين التاليين End With Sc_Name = DLookup("school_name", "data_school", "[school_no] = " & i) LFilename = "c:\sample\" & Sc_Name & ".mdb"

ردودكم تثلج الصدر ، والثناء وحده لايكفي لكم ، لا املك ان اقول لكم اكثر من : بارك الله فيكم

بالنسبة للمخازن طبعا تكون الجداول موحدة لاداعي لعمل جدول لكل مخزن جدول حركات المستودع المفروض لكل المخازن مهما بلغ عددها فأنت عليك الآن تصميم جدول لحركات المستودع جدول رئيسي , يتضمن : - مسلسل الحركة - تاريخ - نوع الحركة - مستودع من ( رقم مستودع الصادر ) - مستودع الى ( رقم مستودع الوارد ) الجدول الفرعي و يتضمن - مسلسل - رقم الصنف - الكمية و بين الجدولين علاقة راس بأطراف

جميل , لأن الغرض من المنتدى عو الاستفادة و التعلم و أسهل طريقة للتعلم هي العمل باليد اذا كانت المعادلات الأولى أعطت نتائج صحيحة الآن دورك في تنفيذ تلك المعادلات بنفس الطريقة في حالة الوفاة نفس الطريقة تماما لكن تغير المعادلات أريدك قبل كل شيء أن تعرف اين ستضع كود معادلات الوفاة ضمن الكود السابق الذي وضعته لك ؟ اذا عرفت اين , فسيكون من السهل جدا عليك أن تعرف كيف تضيف تلك المعادلات

حسب الحقول التي عندك if DSum("UnitPrice", "Order Details", "OrderID = 10248") = 15 then ---- else --- end if

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

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

دعنا نفهم ماهو الغرض من عملية التقسيم هذه علنا نساعد في صياغة أفضل من انشاء ملفات متعددة

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

اكتب تفصيل الجداول الموجودة في ملفك على الشكل التالي - الجدول - الغرض منه ثم حقول الجدول - الغرض من كل حقل لأن الجداول غير واضحة في الملف

ضع الكود التالي في حدث عند النقر على الزر If DE = "Óä ÇáÊÞÇÚÏ" Then Select Case Y Case Is < 14 SAL = 0 BOUN = 0 Case 14 If M >= 6 Then SAL = T * 0.04 * 15 BOUN = T * 7.5 Else SAL = 0 BOUN = 0 End If Case 15 To 19 SAL = T * 0.04 * (Y + (M / 12) + (D / 365)) BOUN = T / 2 * (Y + (M / 12) + (D / 365)) Case Is >= 20 SAL = T * 0.8 BOUN = T / 2 * (Y + (M / 12) + (D / 365)) End Select If SAL > 0 And SAL < 200 Then SAL = 200 Else SAL = 0 BOUN = 0 End If وذلك بعد تغيير المسميات التالية حقل المعاش sal حقل المكافأة boun حقل سبب الترك de

نعم ممكن و الدالة اسمها DSum و هذا مثال عليها DSum("UnitPrice", "Order Details", "OrderID = 10248")

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

السلام عليكم و رحمة الله و بركاته مضى وقت طويل على اخر ارشفة تمت لمواضيع قسم الاكسس و معلوم أن تصنيف المواضيع و فرزها بشكل مبوب يسهل على الأخوة الأعضاء الوصول الى نتائج بحث سريعة على سبيل المثال , هذا التصنيف http://www.officena.net/ib/index.php?showtopic=5605 يساعد كثيرا في الوصول الى النتائج التي يرغب الأخوة بالحصول عليها فأغلب اسئلة الأخوة هي مواضيع مكررة و توجد حلول سابقة كثيرة لها و لكن للأسف الارتباطات العديدة لاتسمح لي بمتابعة هذا التصنيف مع كثرة المواضيع و قلة الوقت المتاح لذلك نفتح باب الدعوة للتطوع لمن يمكنه التفرغ يوميا لوقت بسيط لتصفح المواضيع و اقتراح تصنيفها الصحيح طريقة العمل : 1- سيتم تشكيل لجنة التصنيف من الأخوة الاعضاء المتطوعين من اي فئة من الاعضاء 2 - سيتم توزيع المواضيع الموجوده في المنتدى على أعضاء اللجنة بحيث يأخذ كل عضو جزءا من المواضيع 3- يقوم كل عضو من أعضاء لجنة التصنيف بقراءة المواضيع الموزعة عليه واحدا تلو الآخر قراءة سريعة تؤدي الى ما يلي : أولا : هل الموضوع مكتمل و تم حله أم لا ؟ المواضيع غير المكتملة و التي مر عليها أكثر من ثلاثة اشهر بدون حل سيتم اقتراح حذفها ثانيا : تحميل الملفات الموجوده في الموضوع و فحص هل تعمل أم معطوبة أم مفقودة ؟ ثالثا : الموضوع الذي يحقق الشرطين أعلاه يتم عمل ما يلي : 1 - اختيار عنوان مناسب للموضوع يسهل الوصول اليه ( بعض المواضيع تحمل عناوين مثل : طلب مساعدة - طلب برنامج .. الخ ) 2- اختيار تصنيف مناسب للموضوع حسب التصنيف المذكور في الموضوع المشار اليه أعلاه ( جداول - استعلامات - نماذج .. الخ) رابعا : يتم العناية بالمواضيع التي هي عبارة عن تصميم برنامج كامل عبر المنتدى ( و ليس برنامج جاهز من موقع آخر ) ليتم تبويبها في باب مستقل خامسا : سيتم توزيع نموذج ملف أكسل على أعضاء اللجنة لوضع ملاحظاتهم المذكورة أعلاه سادسا : هناك وعد بترقية اعضاء اللجنة و تقديرهم من قبل الادارة على مجهودهم سابعا : سيكون التواصل مع أعضاء اللجنة عبر البريد الالكتروني في تسليم النماذج و استلام اقتراحات التصنيف ثامنا : سيقوم أعضاء الفريق الاداري بتنفيذ اقتراحات اعضاء اللجنة بالتصنيف واجراء التعديلات المطلوبة ختاما : ايها الأخوة هذا العمل في النهاية تطوعي و هو عمل خير ان شاء الله تعالى و نأمل بنهاية العمل أن يساعد هذا التصنيف على خدمة جميع الأعضاء و تسهيل وصولهم الى المواضيع المطلوبة و استنتاج حلول لمشاكلهم عبر المنتدى بارك الله في كل من سيساهم في هذا العمل , و من لا يستطيع المساهمة بالعمل فرجاء أن يساهم معنا بالدعاء لانجاز هذا العمل التحية للجميع

تابع الموضوع المثبت في بداية المنتدى حول مسألة مسح المستندات لعله يفيدك ان شاء الله

اجعل خاصية column count = 2 بدلا من 1 column width = 0 أما بالنسبة للطلب الثاني لم أفهمه أعطني مثال عما تريد

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

ضع الكود التالي في النموذج Private Sub combo0_AfterUpdate() Me.combo1.RowSource = "SELECT editStuts.Date1, editStuts.idhospitals FROM editStuts WHERE (((editStuts.idhospitals)=Forms!form4!Combo0));" Me.combo1.Requery End Sub و غير خصائص القائمة الأولى بحيث تضع رقم المشفى قبل الاسم