اذهب الي المحتوي
أوفيسنا

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


رابح1999
إذهب إلى أفضل إجابة Solved by Khalid Jnb,

الردود الموصى بها

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

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

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

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

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

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

البرنامج1.5555.rar

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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:

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

 

  • Like 1
رابط هذا التعليق
شارك

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:

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

 

للرفع 

يا فضلاء

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information