أبوبسمله

السلام عليكم

مشاركه مع الاستاذ @عبدالله المجرب جزاه الله خير

1 - فى النموذج وفى قناع الادخال ضع

"09"&0\ 0000000

بعد كتابه الاسم والانتقال مباشره اكتب اول رقم من بعد 9 مباشره

الحل الاخر كما وضعه الاستاذ عبدالله فى المثال الاول وهو فى حدث عند التركيز زودت السطر التالى

Number_Tel1.SelStart = 2

ليصبح الكود كالتالى

Private Sub Number_Tel1_GotFocus()
If IsNull(Me.Number_Tel1) Then
Me.Number_Tel1 = "09"
Number_Tel1.SelStart = 2
End If
End Sub

Private Sub Number_Tel2_GotFocus()
If IsNull(Me.Number_Tel2) Then
Me.Number_Tel2 = "09"
Number_Tel2.SelStart = 2
End If
End Sub

بالتوفيق

اتفضل اخى

جرب ووافنى بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)

x = Trim(DLookup("الوظيفـة", "البيانات", "[الوظيفـة] = 1 and [اسم المدرسة]='" & [اسم المدرسة] & "'"))
y = Me.الوظيفـة.Column(0)

If x = y Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل لهذه المدرسه"
    DoCmd.CancelEvent
    Else
End If

End Sub

المدرسه.accdb

السلام عليكم اخوانى

عذرا ع هذا الخطأ لانه فى حاله اضفنا مدرسه جديده ولها مدير جديد لن يقبل وفى حاله الجدول فارغ وعند التسجيل لن يقبل

سوف اراجعه مره اخرى

26 دقائق مضت, ابوصلاح said:

اخي ابو بسملة واجهتني مشكلة عند حذف اختيار الكشف واريد اختياره ثانية يرفض كان من المفروض لا يحدث ذلك او عند تغيير اختيار كشف والعودة مرة اخري يرفض 

لم يحدث معى ذلك قمت بحذف كشف 1 واختياره تم

غيرت كشف 1 لكشف 3 ثم العوده تم

اشرح خطواتك بالتفصيل لعلى لم افهم ماذا تقصد

53 دقائق مضت, محمد التميمي said:

 

بارك الله بك اخي الفاضل استاذ الفلاحجي فهمت السؤال خطأ لاني كنت على عجلة من امري مهماً بالخروج 

واعتذر للاخ ameer.iraq.93

وفيك بارك الله اخى محمد ولا يهمك اخى كلنا نخطئ ونتعلم من اخطائنا

بالتوفيق اخوانى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

وفيك بارك الله اخى بالتوفيق

وعليكم السلام

اتفضل اخى @ابوصلاح ان شاء الله يكون ما تريد

جرب ووافنا بالنتيجه

بالتوفيق اخى

العد من 1 الي 14.accdb

وعليكم السلام

اتفضل اخى الفاضل @ameer.iraq.93

ملحوظه : يجب عدم استعمال الغه العربيه فى تسميه الحقول والجداول يمكنك استخدام اللغه العربيه فالتسميه التوضيحيه للحقل من خصائص الحقل

كما يجب عدم استخدام مسافات فالتسميه واستخدام حرف كبير او علامه _ الشرطه السفليه

جرب ووافنا بالنتيجه

Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer)
If Me.الوظيفـة.Column(1) = "مدير مدرسة" Then
    MsgBox "هذه الوظيفه تم تسجيلها من قبل"
    Me.Undo
End If
End Sub

بالتوفيق

المدرسة.accdb

22 دقائق مضت, Khalid Jnb said:

السلام عليكم

لدي طريقة  تكون عن طريق النموذج تصدير الى pdf بجانب قاعدة البيانات (ضمن المسار) وبنقس الرقم

اتمنى يكون المطلوب

nre_1.rar 61.52 kB · 1 تنزيلات

احسنت اخى خالد جزاك الله خيرا 💐

عملت بنفس طريقتك 😀 بالتوفيق اخوانى

26 دقائق مضت, ازهر عبد العزيز said:

الاستاذ @الفلاحجى محتاج اضافة شرط اخر الى المعادلة وهو ان تكون قيمة اللحقل Z =نعم لو سمحت واسف لازعاجك

الجمع باكثر من شرط.accdb 540 kB · 1 تنزيلات

اتفضل اخى ازهر

ان شاء الله يكون ما تريد

بالتوفيق

الجمع باكثر من شرط.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

بالتوفيق اخى

وعليكم السلام

فى مشكله عندك فى اعدادت اللغه لانى لما غيرت اسم التقرير لى Etat1 فتح المحرر عادى

بالتوفيق

مشكل في التقارير.accdb

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐

بالتوفيق اخى

اتفضل اخى ازهر

ان شاء الله يكون ما تريد

=IIf([L1]<>"";Nz(DSum("N1";"TBR";"[W]='X'  and [L1]=" & [IDL]);0);"

New Microsoft Access قاعدة بيانات(2).accdb

اتفضل اخى @صايل عزام

ان شاء الله يكون ما تريد

Repair(4).mdb

وعليكم السلام اخى @صايل عزام

ممكن ارفاق مثال لما لديك

ليس مخالف بل نحن نطالب بهذا من الجميع وفي آخر توقيعي رابط الطريقه للتغيير 

بالتوفيق

وعليكم السلام اخى @tiger wanted

هل هذا ما تريد ؟

Database11.accdb

8 دقائق مضت, محمد أبوعبدالله said:

وهذا خل اخر

تحياتي

FrEmpl.rar 33.72 kB · 0 تنزيلات

وفيك بارك الله اخى واستاذى محمد وجزاك الله كل خير 💐

وعليكم السلام

مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا

هل هذا ما تريد ؟

FrEmpl.rar

مشاركه مع اخى @فايز.. جزاه الله خيرا💐

اتفضل التعديل ع مثالك اخى

بالتوفيق اخوانى

A_dbu - 11.rar

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐

بالتوفيق اخى

العفو استاذ محمد انتم استذتى جزاكم الله خيرا

بالتوفيق ان شاء الله

وعليكم السلام اخى واستاذى @محمد سلامة

مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا

ومنورين الموقع اساتذتى 💐

ارفق لك مثال لاختنا زهره جزاها الله خيرا

Private Sub Rn_AfterUpdate()
If DLookup("[رقم الملف]", "[الحضور]", "[رقم الملف]=" & Me![Rn] & " AND [التاريخ] =#" & Date & "#") Then
    MsgBox "معذرة اخي الكريم .... هذا الرقم سبق ادخاله من قبل", vbCritical, "تنبيه"
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    DoCmd.Close
    Else
    DoCmd.Requery "الاسم1"
    DoCmd.Requery "الوظيفة1"
    DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

ارجو ان يفى بالغرض معك استاذى

بالتوفيق

za-عدم تكرار الرقم-END.rar

مشاركه مع اخى واستاذى العزيز @kha9009lid جزاه الله خيرا 💐

استخدم استعلام تحديث للحقل المراد طالما انك تريد وضع مسافات انا واضع 5 مسافات كمثال لاظهارها

بالتوفيق