اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

ابوخليل

أوفيسنا
  • Posts

    13390
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    275

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

  1. وعليكم السلام اخي ابو العقاب يوجد اكثر من طريقة وهذه احداها Private Sub a1_AfterUpdate() If a1 = -1 Then a2 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a2_AfterUpdate() If a2 = -1 Then a1 = 0 a3 = 0 a4 = 0 End If End Sub Private Sub a3_AfterUpdate() If a3 = -1 Then a1 = 0 a2 = 0 a4 = 0 End If End Sub Private Sub a4_AfterUpdate() If a4 = -1 Then a1 = 0 a2 = 0 a3 = 0 End If End Sub test2.rar
  2. يمكن تطبيق مثل هذا في المخرجات (تقارير) اما ادخال البيانات فهذا ما يفترق به اكسس عن اكسل
  3. Private Sub Form_Open(Cancel As Integer) On Error Resume Next If InputBox("ادخل كلمة المرور") <> 123 Then Cancel = True End If End Sub
  4. اكتب في عنصر تحكم الحقل =Dmax("txt1";"table1") أو =Dlast("txt1";"table1") اختر المناسب لبياناتك
  5. وعليكم السلام العنوان يتحدث عن منع التكرار والكود المدرج هو لاظهار المكررات وهو صحيح ويعمل بشكل سليم
  6. السلام عليكم شكرا للاخ الكريم ssm على الاجابة وجزاه الله خيرا اخونا الشاعر : يمكن عمل ما تريد يدويا او بالاستعانة بالكود البرمجي شريطة ان تكون خصيصة : توسيط تلقائي=لا اما يدويا فكما ذكر اخونا ssm ففي عرض التصميم اسحب النموذج في المكان المحدد الذي تريد ان يظهر فيه ثم احفظ اما الكود البرمجي فضع هذا السطر في حدث فتح النموذج Me.Move Left:=3000, Top:=6000 وغير في الارقام حسب رغبتك
  7. يا عزيزي مايصلح تجعل استعلام تجميعي هو مصدر لنموذج ادخال الاستعلام المذكور نستخدمه للاطلاع فقط على مجاميع الاجازات والباقي من الارصدة من خلال نموذج خاص او حتى من التقارير وايضا يمكن ان نجلب حقل الرصيد لاي موظف في اي مكان نريده داخل النماذج او الاستعلامات . اذا : اجعل الجدول هو مصدر النموذج الفرعي
  8. اخواني .. شكرا لكم على الاعمال الجميلة ، وقد تم اعادة رفع المرفقات ايضا احب ان اساهم في احدى طرق الاستيراد والتصدير والتي هي موجودة ضمن اكسس اي الاستغناء عن الاكواد والاكتفاء بخدمات اكسس الاصلية المثال المرفق سيفتح على التقرير .. انقر بزر الفأرة الأيمن داخل التقرير ثم اختر تصدير من مربع الحوار اختر 1- مكان الحفظ 2- الصيغة التي تريد تصدير التقرير على نسقها officena2.rar
  9. يبدو ان الامور تحسنت هذا هو التعديل studEhsa.rar
  10. تفضل تم التعديل حسب الطلب ملحوظة : انظر تم حذف كافة الكائنات الزائدة في مثالك ( يجب ان تكون الامثلة مختصرة ) عذرا : يوجد لدي مشكلة في رفع الملفات
  11. كل شي ممكن بحول الله ولكن احببت ان اريك كيفية اخراج بعض الاحصاءات عن طريق استعلامات الجدولية انظر الاستعلامين والتقرير في المرفق student2.rar
  12. اذا كنت مضطرا لتجزئة الوحدة فأنت ملزم بأن تضع حقلا آخر للوحدة خالي من الاحداث
  13. يجب ضغط الملف بأحد برامج الضغط winrar او winzip قبل رفعه
  14. مع اني لا املك الوقت الكافي حاليا الا انني متواجد ان شاء الله على مدار اليوم وحاضر لاي مساعدة ولا تنسى انه يتواجد في منتدانا هذه الايام العديد من الخبراء فابدأ انت على بركة الله .. ولتكن بدايتك مما انتهى منه الآخرون
  15. اخواني الكرام فضلا يجب ان يشتمل المرفق على كائنات محل السؤال فقط اخي الكريم تم التعديل ووضع تصور لاجازات موظف آمل ان تكون الفكرة واضحة 2.rar
  16. السلام عليكم طريقة التعامل مع اجازات الموظفين حسب علمي وما اطلعت عليه : 1- مقدار الاجازة السنوية معلومة يمكن كتابتها داخل الكود وللمرونة نكتبها ضمن بيانات الموظف الثابتة او نخصص جدولا لها 2- الجدول الفرعي للاجازات يدرج به كل اجازة تمنح للموظف خلال السنة 3- لحصر اجازات الموظف خلال عدة سنوات واستخراج الرصيد : ننشء استعلاما مصدره الجدول الفرعي المذكور يشتمل على مجاميع سنوية (مطروحة من اصل مقدار الاجازة ) 4- من واقع هذا الرصيد يمكن اعتماد اجازة الموظف الحالية
  17. تفضل اخوي احمد تم تعديل خصائص الصلة في العلاقات ان اردت الاستجابة السريعة في الرد من اخوانك فاجعل امثلتك في المرات القادمة على صيغة mdb برنامج المرتبات2.rar
  18. اكتب المعيار التالي في حقل رقم الشهر Between 4 And 5 سيظهر لك شهر 4 و 5 فقط ويمكنك استبدال الارقام بقيمة حقلين في النموذج
  19. تفضل التعديل تم توظيف الأداة if في حدث تنسيق التفصيل Database11.rar
  20. DoCmd.OutputTo acOutputReport, "reportName", acFormatXLS, "C:\filName" & ".xls", False, "", 0 باعتبار reportName اسم التقرير و C:\filName اسم ومكان حفظ الملف
  21. اولا : في تنسيق خصائص الحقل ff اجعل القيمة: مرئي=لا ثم الصق الجملة التالية في حدث بعد التحديث للحقل tt If tt.Value = "شيك" Or tt.Value = "مرتجع" Then ff.Visible = True Else ff.Visible = False End If
×
×
  • اضف...

Important Information