زر تاكيد حفظ البيانات

[رابح1999]

اخي احمد اريد في زر تاكيد الحجز بارك الله فيك

ان زر تاكيد الحجز هو الذي اعمل به ولقد قمت باضافة الحقول التي احتاج اليها

اخي خالد عند الظغط على الزر ت ((تاكيد الحجز)) تظهر رسالة تنبيه تم اضافة موظف جديد

وفي نفس الزر عندما تكون الحقول فارغ تظهر رسالة تنبيه الرجاء ملء جميع  الحقول

اليك البرنامج الذي قمت بالتعديل عليه في الحقول

طلبي هذا كنت ابث عنده مساعدة

البرنامج1.5555.rar

[رابح1999]

اخواني افادتنا 

[عفرنس]

وصف المشكلة بوضوح يعتبر جزء من حل المشكلة .. 

لو وضحت ما تريد .. فلم أفهم عليك .. 

[رابح1999]

اخي اريد في زر تاكيد الحجز 

اريد عند الظغط على زر تاكيد الحجز تظهر رسالة تنبية  ((تما ملء جميع الحقول بنجاح))

وعندما تكون الحقول فارغ تظهر رسالة تنبيه (( الرجاء القيام بمل الحقول))

اخي اريد ان تكون رسالة التنبيه تختفي لمدة 2ثواني وتظهر في الاسفل

[رابح1999]

اخواني افادتنا 

[عفرنس]

4 ساعات مضت, رابح1999 said:

اخي اريد في زر تاكيد الحجز 

اريد عند الظغط على زر تاكيد الحجز تظهر رسالة تنبية  ((تما ملء جميع الحقول بنجاح))

وعندما تكون الحقول فارغ تظهر رسالة تنبيه (( الرجاء القيام بمل الحقول))

اخي اريد ان تكون رسالة التنبيه تختفي لمدة 2ثواني وتظهر في الاسفل

'الكود يتحدث إذا كان حقل الايدي فارغ
If IsNull(Me![id]) = True Then
' يتم عرض رسالة تفيد بأن الحقل فارغ
MsgBox " عفواً أخي الكريم حقل الآيدي  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
' تثبيت المؤشر في الحقل الفارغ نفسه
id.SetFocus
' أخرى يتبع إلى الباقي
Else
If IsNull(Me![اسم المشترك]) = True Then
MsgBox " عفواً أخي الكريم حقل اسم المشترك  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.اسم_المشترك.SetFocus
Else
If IsNull(Me![رقم الهاتف]) = True Then
MsgBox " عفواً أخي الكريم حقل رقم الهاتف  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.رقم_الهاتف.SetFocus
Else
If IsNull(Me![البريد الالكتروني]) = True Then
MsgBox " عفواً أخي الكريم حقل البريد الألكتروني " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.البريد_الالكتروني.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If: End If: End If: End If:

بحثت لك فوجدت هذا الكود ربما يلبي لك بعض ما تريد .. 

 

[عفرنس]

24 دقائق مضت, فايز.. said:

'الكود يتحدث إذا كان حقل الايدي فارغ
If IsNull(Me![id]) = True Then
' يتم عرض رسالة تفيد بأن الحقل فارغ
MsgBox " عفواً أخي الكريم حقل الآيدي  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
' تثبيت المؤشر في الحقل الفارغ نفسه
id.SetFocus
' أخرى يتبع إلى الباقي
Else
If IsNull(Me![اسم المشترك]) = True Then
MsgBox " عفواً أخي الكريم حقل اسم المشترك  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.اسم_المشترك.SetFocus
Else
If IsNull(Me![رقم الهاتف]) = True Then
MsgBox " عفواً أخي الكريم حقل رقم الهاتف  " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.رقم_الهاتف.SetFocus
Else
If IsNull(Me![البريد الالكتروني]) = True Then
MsgBox " عفواً أخي الكريم حقل البريد الألكتروني " & " [ " & " !!! " & " ] " & "فارغ", vbCritical, "تنبيه"
Me.البريد_الالكتروني.SetFocus
Else
DoCmd.GoToRecord , , acNewRec
End If: End If: End If: End If:

بحثت لك فوجدت هذا الكود ربما يلبي لك بعض ما تريد .. 

 

للرفع 

يا فضلاء

[Khalid Jnb]

السلام عليكم

تفضل اتمنى هذه المرة ان يكون المطلوب

تحياتي

 

البرنامج-1.rar