Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search
jo_2010

لابد من ادخال بيانات

Recommended Posts

السادة الافااضل

بعد التحية 

ارجو من سيادتكم مساعدتى فى طلبى هذا

 هو عدم انتقال المؤشر من حقل pname الا بعد الكتابة  فية بمعنى طالما فارغ وتم الضغط على انتر لاينتقل المؤشر الى الحقل التالى مرفق قاعدة مصغرة للتعديل عليها    خالص الشكر

 

Database1.rar

Share this post


Link to post
Share on other sites

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

 

في الحدث "قبل التحديث" للحقل pname تأكد من وجود قيمة ، هكذا مثلا:

if len(me.pname & "")=0 then
	'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم
	msgbox "الحقل فارغ، رجاء ادخال قيمة فيه"
	cancel=true
	exit sub
end if

 

جعفر

Share this post


Link to post
Share on other sites

استاذى الفاضل جعفر

قمت بعمل الاتى كما اشرت حضرتك

Private Sub Pname_BeforeUpdate(Cancel As Integer)
If Len(Me.Pname & "") = 0 Then
    'لا توجد قيمة في الحقل ، اذن لابد من اشعار المستخدم
    MsgBox "الحقل فارغ، رجاء ادخال قيمة فيه"
    Cancel = True
    Exit Sub
End If
 
End Sub
 

ولكن عند الضغط على انتر ينتقل المؤشر للحفل التالى رغم ان pname قارغ

اريد عدم انتقال المؤشر الى حقل جدبد طالما pname فارغ مع خالص الشكر

Share this post


Link to post
Share on other sites

وانا الآن قمت بنسخ الكود ، وكله تمام !!

يعني المؤشر لا ينتقل لحقل آخر ، اذا كان الحقل فارغ (طبعا اذا كتبت نقطة او مسافة ، فلا يُعتبر الحقل فارغ ، وهنا يجب ان تغير اعدادات الحقل حتى يلتزم بالبيانات اللي في القائمة فقط).

 

جعفر

Share this post


Link to post
Share on other sites

استخدم الدالة IsNull لتفادي اخطاء المسافات.

Share this post


Link to post
Share on other sites

استاذى الفاضل وضعت الكود فى حدث قبل التحديث وقمت بالتجربة وعند الضغط على انتر ينتقل الكود بكل بساطة الى الاحقل التالى

ممكن بعد اذن حضرتك ترسل لى القاعدة المرسلة مع التعديل لو مايتعبش حضرتك ولا يزعلك منى

Share this post


Link to post
Share on other sites
26 دقائق مضت, SEMO.Pa3x said:

استخدم الدالة IsNull لتفادي اخطاء المسافات.

اخي حسنين 🙂

بدل ان تكتب
If isnull(Me.Pname) = false or Me.Pname = ""  Then

يمكنك استبدالهما بهذا السطر
If Len(Me.Pname & "") = 0 Then

 

جعفر

 

  • Like 1

Share this post


Link to post
Share on other sites

 استاذى الفاضل essam rabea

ماالكود واين قمت بكتابتة اريد ان اقوم بتطبيقة على فاعدة البيانات الخاصة بى 

مع خالص الشكر

 

Share this post


Link to post
Share on other sites
Posted (edited)
Private Sub w1_Exit(Cancel As Integer)
' اجبار المستخدم على ادخال رقم الوارد
   If IsNull(w1) Or w1 = "" Then
      MsgBox " عفوا ...! يجب اخال رقم الوارد "
      DoCmd.CancelEvent
      w1.SetFocus
    End If
End Sub


هذا هو الكود في حدث On Exit

Edited by midomashakel
  • Thanks 1

Share this post


Link to post
Share on other sites

أول حقل يذهب اليه المؤشر بعد الضغط على إنتر هو TCode .. أذاً لوكتبت كود للتحقق من إسم المريض فى حدث On Got Focus ان كان خاليا ام لا سيفى بالغرض

Private Sub TCode_GotFocus()
If IsNull(Forms!New_Project!Pname) Then
MsgBox "لا يمكن ترك إسم المريض فارغا"
Cancel = True
Forms!New_Project!Pname.SetFocus
End If
End Sub

هذا والله أعلم

تحياتى

  • Like 1

Share this post


Link to post
Share on other sites

استاذتى الافاضل 

اتقدم بخالص الشكر لحضرتكم على مساعدتى شكرا لكم جميعا

Share this post


Link to post
Share on other sites

اخي jo 🙂

 

الآن وقد حصلت على الاجابة والحمدلله 🙂

رجاء تجربة المرفق الذي ارسلته لك ، لأنه فنيا يجب ان يعمل ، واذا ما عمل ، فمعناه ان الاكسس فيه مشكلة !!

 

جعفر

Share this post


Link to post
Share on other sites
Posted (edited)

 استاذى الفاضلjjafferr

قمت بالتجربة ولم يعمل  مع قبل التحديث ولكنة يعمل عند حدث الخروج

ولكن هناك مشكلة اذا اردت اضافة سجل جديد وبعد ذلك تراجعت واردت اغلاق النموذج لا يغلق  او اذا اردت الذهاب للسجل السابق لا ينفذ الامر ويطالبنى بادخال بيانات اريد خل للخروج مرفق البرنامج بعد وضع الكود فى ُEXIT

1041.Database1.accdb.zip

Edited by jo_2010

Share this post


Link to post
Share on other sites

Join the conversation

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

Guest
Reply to this topic...

×   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.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...