ابوخليل

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

ضع هذا الكود في حدث بعد التحديث لحقل id في النموذج if DCount("*","tbl1","id=" & me.id)>0 then msgbox"الرقم موجود" undo exit sub end if باعتبار id هو حقل الرقم في الجدول و tbl1 هو الجدول

وعليكم السلام اخي ابو العقاب يوجد اكثر من طريقة وهذه احداها 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

يمكن تطبيق مثل هذا في المخرجات (تقارير) اما ادخال البيانات فهذا ما يفترق به اكسس عن اكسل

؟؟

Private Sub Form_Open(Cancel As Integer) On Error Resume Next If InputBox("ادخل كلمة المرور") <> 123 Then Cancel = True End If End Sub

اكتب في عنصر تحكم الحقل =Dmax("txt1";"table1") أو =Dlast("txt1";"table1") اختر المناسب لبياناتك

وعليكم السلام العنوان يتحدث عن منع التكرار والكود المدرج هو لاظهار المكررات وهو صحيح ويعمل بشكل سليم

السلام عليكم شكرا للاخ الكريم ssm على الاجابة وجزاه الله خيرا اخونا الشاعر : يمكن عمل ما تريد يدويا او بالاستعانة بالكود البرمجي شريطة ان تكون خصيصة : توسيط تلقائي=لا اما يدويا فكما ذكر اخونا ssm ففي عرض التصميم اسحب النموذج في المكان المحدد الذي تريد ان يظهر فيه ثم احفظ اما الكود البرمجي فضع هذا السطر في حدث فتح النموذج Me.Move Left:=3000, Top:=6000 وغير في الارقام حسب رغبتك

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

يبدو ذلك

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

يبدو ان الامور تحسنت هذا هو التعديل studEhsa.rar

تفضل تم التعديل حسب الطلب ملحوظة : انظر تم حذف كافة الكائنات الزائدة في مثالك ( يجب ان تكون الامثلة مختصرة ) عذرا : يوجد لدي مشكلة في رفع الملفات

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

اذا كنت مضطرا لتجزئة الوحدة فأنت ملزم بأن تضع حقلا آخر للوحدة خالي من الاحداث

يجب ضغط الملف بأحد برامج الضغط winrar او winzip قبل رفعه

مع اني لا املك الوقت الكافي حاليا الا انني متواجد ان شاء الله على مدار اليوم وحاضر لاي مساعدة ولا تنسى انه يتواجد في منتدانا هذه الايام العديد من الخبراء فابدأ انت على بركة الله .. ولتكن بدايتك مما انتهى منه الآخرون

اخواني الكرام فضلا يجب ان يشتمل المرفق على كائنات محل السؤال فقط اخي الكريم تم التعديل ووضع تصور لاجازات موظف آمل ان تكون الفكرة واضحة 2.rar

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

السلام عليكم فكرة جميلة

تفضل اخوي احمد تم تعديل خصائص الصلة في العلاقات ان اردت الاستجابة السريعة في الرد من اخوانك فاجعل امثلتك في المرات القادمة على صيغة mdb برنامج المرتبات2.rar

اكتب المعيار التالي في حقل رقم الشهر Between 4 And 5 سيظهر لك شهر 4 و 5 فقط ويمكنك استبدال الارقام بقيمة حقلين في النموذج

تفضل مطلوبك db.rar

تفضل التعديل تم توظيف الأداة if في حدث تنسيق التفصيل Database11.rar