اخواني .. شكرا لكم على الاعمال الجميلة ، وقد تم اعادة رفع المرفقات
ايضا احب ان اساهم في احدى طرق الاستيراد والتصدير والتي هي موجودة ضمن اكسس
اي الاستغناء عن الاكواد والاكتفاء بخدمات اكسس الاصلية
المثال المرفق سيفتح على التقرير ..
انقر بزر الفأرة الأيمن داخل التقرير ثم اختر تصدير
من مربع الحوار اختر
1- مكان الحفظ
2- الصيغة التي تريد تصدير التقرير على نسقها
officena2.rar
مع اني لا املك الوقت الكافي حاليا
الا انني متواجد ان شاء الله على مدار اليوم
وحاضر لاي مساعدة
ولا تنسى انه يتواجد في منتدانا هذه الايام العديد من الخبراء
فابدأ انت على بركة الله .. ولتكن بدايتك مما انتهى منه الآخرون
السلام عليكم
طريقة التعامل مع اجازات الموظفين حسب علمي وما اطلعت عليه :
1- مقدار الاجازة السنوية معلومة يمكن كتابتها داخل الكود وللمرونة نكتبها ضمن بيانات الموظف الثابتة او نخصص جدولا لها
2- الجدول الفرعي للاجازات يدرج به كل اجازة تمنح للموظف خلال السنة
3- لحصر اجازات الموظف خلال عدة سنوات واستخراج الرصيد : ننشء استعلاما مصدره الجدول الفرعي المذكور يشتمل على مجاميع سنوية (مطروحة من اصل مقدار الاجازة )
4- من واقع هذا الرصيد يمكن اعتماد اجازة الموظف الحالية
تفضل اخوي احمد
تم تعديل خصائص الصلة في العلاقات
ان اردت الاستجابة السريعة في الرد من اخوانك فاجعل امثلتك في المرات القادمة على صيغة mdb
برنامج المرتبات2.rar
DoCmd.OutputTo acOutputReport, "reportName", acFormatXLS, "C:\filName" & ".xls", False, "", 0
باعتبار reportName اسم التقرير
و C:\filName اسم ومكان حفظ الملف
اولا : في تنسيق خصائص الحقل ff اجعل القيمة: مرئي=لا
ثم الصق الجملة التالية في حدث بعد التحديث للحقل tt
If tt.Value = "شيك" Or tt.Value = "مرتجع" Then
ff.Visible = True
Else
ff.Visible = False
End If
الحذف الجماعي حسب معايير جماعية يحتاج الى عمل دوارات تبحث في الجدولين
وهذا يحتاج الى وقت
ما رأيك بالحذف الفردي ؟
انظر المثال تم التطبيق على الحذف
ان حقق الحاجة يمكنك عمل التعديل مثله
ملحوظة : تم حذف جدول apc للتخفيف
Dec_lab2.rar
الاخوة الكرام
علي المصري ... at_aziz ..... تعليموه
شكرا لمروركم وثنائكم
هنا بعض المشاركات حول هذا الموضوع
http://www.officena.net/ib/index.php?showtopic=43914#entry254950
http://www.officena.net/ib/index.php?showtopic=53179#entry333843
مطلوبك يمكن تحقيقه
ولكن الفكرة غير صحيحة ....
لماذا ؟
لان المطلوب حذفهم متغيبين فعلا ... ولكن بعذر
لذا يجب بقاؤهم في السجلات كمتغيبين ، مع حذفهم في النتائج والتقارير
السلام عليكم
اليك بعض التعليمات حول استفسارك
من خصائص العلاقة (تحرير العلاقات) يجب التأشير على تتالي التحديث وتتالي الحذف
1- تحديث التغيير بين الجداول المرتبطة يتم فقط على الحقل المرتبط ومن الجدول الرئيس فقط
2- عملية تتالي الحذف تتم من الجدول الرئيس فقط
ملحوظة :
عند ربط العلاقة بين جدولين ينتج منها جدول رئيس والآخر فرعي حتى لو كانت العلاقة واحد لواحد ( حسب مسار السحب والافلات)
جزاك الله خيرا استاذ ازهر على ما تقدم لاخوانك
اخي السائل : استخدم هذه الدالة Round على النحو التالي
داخل الاستعلام او في عنصر تحكم الحقل :
Round([yourfiled];2)
وداخل محرر الفيجوال على هذا النحو :
Round([yourfiled],2)
الرقم 2 هو لعدد الارقام بعد الفاصلة ويمكنك تحديد عدد الارقام كما تريد
طبعا يمكنك ادخال هذه الدالة على العمليات الحسابية ولكن لا تنسى القوسين
الصق هذا الكود في حدث بعد التحديث لحقل التاريخ الثاني وغير ما يلزم
if isnull(date1) then
msgbox"ادخل تاريخ البداية"
exit sub
elseif date2<date1 then
msgbox"ادخل تاريخا اكبر"
exit sub
end if
date2 date1 حقلي التاريخ