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

و غير خصائص القائمة الأولى بحيث تضع رقم المشفى قبل الاسم