اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل كود


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

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

السلام عليكم Private Function officena() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then Beep MsgBox " اخي الكريم ... لقد تركت الحقل ..." & "(" & ctl.Name & ")" & "... فارغاً ", vbOKOnly, "اوفيسنا" DoCmd.CancelEvent ctl.SetFocus Exit For End If End If Next ctl End Function

تم من خلال الضغط على اي زر  استدعي الكود الاول 

' انقل هذا الامر الى  زر 
Call officena

لدي كود اريد وضعه في زر تحديث بخصوص الحقل فارغ في البرنامج الذي اريد فيه وضع الكود  1191.222.rar171.78 kB · 0 تنزيلات  

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

السلام عليكم

اخي بلال اليامين

الحمد لله انك فتحت موضوع جديد☺️

من قواعد المشاركة ان تفتح موضوع واحد فقط ويكون النقاش عليه من باب اثراء الموضوع للجميع

طلبك هو (لدي كود اريد وضعه في زر تحديث بخصوص الحقل الفارغ في البرنامج الذي اريد فيه وضع الكود )

تفضل  ملفك بعد التعديل

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

تحياتي

 

LIKE.gif

 

1191.5555.rar

تم تعديل بواسطه خالد سيسكو
رابط هذا التعليق
شارك

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

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

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

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

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

البرنامج1.5555.rar

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

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

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

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

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

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

البرنامج1.5555.rar

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

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