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

ظهور رساله عند عدم وجود رقم صحيح ورساله عندما يكون الحقل فارغ


النجاشي

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

السلام عليكم ورحمه الله وبركاته 

احبتي الكرام 

اريد ظهور  الاتي 

1- اذا كان رقم الصنف غير صحيح يعطينا رساله( تاكد من الرقم الصحيح )ويرجع التركيز لنفس حقل رقم الصنف

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

شاكرين لكم احبتي الكرام

مع جزيل الشكر

تحياتي

 

147.rar

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

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

 

1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك 

.

2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو:

keycode=13 or keycode=108

 

جعفر

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

4 دقائق مضت, jjafferr said:

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

 

1. راجع الرابط هذا لإصطياد رقم الخطأ ، ثم بعد الحصول على الخطأ ، مشاركتي التالية تخبرك كيف تعمل رسالة الخطأ الخاصة بك 

.

2. مثل ما عملت في النموذج في الضغط على F2 ، اعمل نفس الشيء في النموذج الآخر ، والرقم الذي تريد هو:


keycode=13 or keycode=108

 

جعفر

جاري العمل استاذي الله يبارك فيك

 

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

استاذي @jjafferr الله يعطيك الصحه

ما قدرت اوصل لحل

عملت الاتي ما دريت اين الغلط

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

KeyCode = 13 Or KeyCode = 108
If IsNull(Me![Rajmsanf]) Then
      MsgBox "قوم بادخل الرقم الحقل فارغ ."
     Cancel = True
     Me.Rajmsanf.Undo
   End If

End Sub

 

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

 

تفضل:smile:

 

Option Compare Database

    Dim Ky As Integer
    
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Ky = KeyCode
End Sub

Private Sub Rajmsanf_LostFocus()

    Dim Rs As DAO.Recordset
    Set Rs = CurrentDb.OpenRecordset("select * from Alsnaf where Rajmsanf = '" & Me.Rajmsanf & "'")

    If Rs.recordcount > 0 Then
        Alwsf = Rs!Alwsf
        Sanf = Rs!Sanf
        ID_Sanf = Rs!ID_Sanf
        Albdil = Rs!Albdil
        Price_Sales = Rs!Price_Sales
    Else
         
        If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then
            MsgBox "عفوا يجب ادخال رقم"
            Me.Alkmiah.SetFocus
            Me.Rajmsanf.SetFocus
            
        ElseIf Len(Me.Rajmsanf & "") <> 0 Then
            MsgBox "عفوا هذا الرقم غير صحيح"
            Me.Alkmiah.SetFocus
            Me.Rajmsanf.SetFocus
        End If
        
    End If
    
    Ky = 0
    
    Rs.Close: Set Rs = Nothing
   
End Sub

 

جعفر

807.147.mdb.zip

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

5 دقائق مضت, jjafferr said:

 

تفضل:smile:

 


Option Compare Database

    Dim Ky As Integer
    
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Ky = KeyCode
End Sub

Private Sub Rajmsanf_LostFocus()

    Dim Rs As DAO.Recordset
    Set Rs = CurrentDb.OpenRecordset("select * from Alsnaf where Rajmsanf = '" & Me.Rajmsanf & "'")

    If Rs.recordcount > 0 Then
        Alwsf = Rs!Alwsf
        Sanf = Rs!Sanf
        ID_Sanf = Rs!ID_Sanf
        Albdil = Rs!Albdil
        Price_Sales = Rs!Price_Sales
    Else
         
        If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then
            MsgBox "عفوا يجب ادخال رقم"
            Me.Alkmiah.SetFocus
            Me.Rajmsanf.SetFocus
            
        ElseIf Len(Me.Rajmsanf & "") <> 0 Then
            MsgBox "عفوا هذا الرقم غير صحيح"
            Me.Alkmiah.SetFocus
            Me.Rajmsanf.SetFocus
        End If
        
    End If
    
    Ky = 0
    
    Rs.Close: Set Rs = Nothing
   
End Sub

 

جعفر

807.147.mdb.zip

بارك الله فيك وزادك الله علما

تسلم يديك ابو الجعافر 

حلو جدا  الله يعطيك العافيه 

الف تحيه اليك :fff::clapping:

 

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

 السام عليكم

استاذي @jjafferr الله يعطيك الصحه والعافيه

كيف نتخلص من هذا الرسايل عندما اعمل اغلاق  للنموذج من الاكس 

تحياتي حبيبنا جعفر

رساله بثلاث شرزط بنموج الاضافه.rar

1.jpg

2.jpg

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

2 ساعات مضت, jjafferr said:

وعليكم السلام اخي وضاح

 

في الصورة الاولى ، الظاهر انك واضع شرط في الجدول ان لا يحفظ السجل بدون ذلك الحقل ،

 

 

جعفر

السلام عليكم  استاذي جعفر

اسال الله ان يوفقك بجميع اعمالك ويعطيك الصحه والعافيه

نعم كما قلت كانت المشكله في الجدول الله يسعدك 

تحياتي اليك يابو الجعافر

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

السلام عليكم استاذي @jjafferr

ربي يحفظك 

نقلت الاكواد لنموذجي الاساسي

واشتغلت الرساله  في حاله يكون الرقم خطاء تمام 

اما في حاله اذا خرجت من رقم الصنف وهو فارغ وظغت انتر ينتقل الموشر و لم تشتغل الرساله 

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

فاين المشكله رغم اننا نسخت الكود كامل 

تحياتي اليك

 

951.rar

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

2 دقائق مضت, jjafferr said:

هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث

 

2 دقائق مضت, jjafferr said:

هذه الاسطر مافيها فائدة بدون السطر اللي فوقها ، اللي فوق جميع الاحداث

 

18 دقائق مضت, ابو زاهر said:

السلام عليكم استاذي @jjafferr

ربي يحفظك 

نقلت الاكواد لنموذجي الاساسي

واشتغلت الرساله  في حاله يكون الرقم خطاء تمام 

اما في حاله اذا خرجت من رقم الصنف وهو فارغ وظغت انتر ينتقل الموشر و لم تشتغل الرساله 

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

فاين المشكله رغم اننا نسخت الكود كامل 

تحياتي اليك

 

951.rar

حاولت اطبق بالسطر الذي  فوق جميع الاحداث ولم استطيع القي نظره للقاعده الجديد بالمشاركه المعدله951.rar

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

الحمدلله استاذي كما قلت السطر الاول فوق الاحداث  هو الفايده

كان نسخته بالغلط 

الحمدلله تم النسخ 

واليكم القاعده للفايده 

89888.rar

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

49 دقائق مضت, مرشدعلي said:

كلام الاخ جعفر صحيح

انظر

951.rar

الله يجزيك خير استاذي  ابو ياسين انت والاستاذ جعفر 

ربنا يعطيكم الصحه ولكن بقي ملاحظه بسيطه بعد اصلاح الشرط  بالجدول بشان رساله الاكسس الذي كلمنا عليه الاستاذ جعفر 

برفعه اليكم بعد شويه 

 

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

بقت معي ذي المشكله  موضحه بالصوره

عندما يكون في اصناف بالفاتوره 

واعمل خروج من الاكس او زر رجوع تظهر رساله 

فهل لها علاج نهائي 

علما بانه عند فتح النموذج  واغلاقه طبيعي ما تظهر رساله المشكله بعد ما ادرج اصناف بالفاتوره واجي اعمل اغلاق او رجوع تظهر الرساله

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

شاكرين 

مقدرين 

تحياتي احبتي

 

3211.rar

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

12 دقائق مضت, مرشدعلي said:

اتفضل اخي ابو زاهر

عند الخروج  بدون رساله

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

3211.rar

استاذي ابو ياسين الله يعطيك العافيه الف شكر وتحيه وتقدير اليك

من زر الرجوع صار تمام 

بقي معنا كذا  عند الخروج من الاكس (X) براس النموذج  نكون خلصنا من هذا الموضوع 

ولاننسا ان نقدم لاستاذنا الحبيب @jjafferr

الف تحيه وشكر وتقدير 

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

في ١٧‏/١٢‏/٢٠١٧ at 13:39, ابو زاهر said:

استاذي ابو ياسين الله يعطيك العافيه الف شكر وتحيه وتقدير اليك

من زر الرجوع صار تمام 

بقي معنا كذا  عند الخروج من الاكس (X) براس النموذج  نكون خلصنا من هذا الموضوع 

ولاننسا ان نقدم لاستاذنا الحبيب @jjafferr

الف تحيه وشكر وتقدير 

للرفع

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

17 ساعات مضت, ابو زاهر said:

بقت معي ذي المشكله  موضحه بالصوره

عندما يكون في اصناف بالفاتوره 

واعمل خروج من الاكس او زر رجوع تظهر رساله 

3211.rar

 

انا استعملت هذا المرفق ،

واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر x لخروج من النموذج ، وفي كلتا الحالتين لم احصل على رسالة خطأ!!

 

اخبرني خطوات الحصول على الخطأ لوسمحت:smile:

 

جعفر

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

37 دقائق مضت, jjafferr said:

 

انا استعملت هذا المرفق ،

واضفت قيم للنموذج الفرعي ، ثم استعملت زر "خروج" واستعملت زر x لخروج من النموذج ، وفي كلتا الحالتين لم احصل على رسالة خطأ!!

 

اخبرني خطوات الحصول على الخطأ لوسمحت:smile:

 

جعفر

انظر للصوره استاذي 

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

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

فانت ممكن عملت خروج  وموجود قيم بنموذج الاضافه  اسمه frmEdrajSenf يكون يخرج طبيعي

لكن اذا  ادرجت صنف للنموذج الفرعي وعملت خروج بعد الادارج للصنف  ستظهر لك الرساله 

تحياتي اليك

 

 

 

32.jpg

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

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

والحل هو تبع الاخ جعفر

فقط انا سويت في حدث عند الخروج من الادراج ky=0

3211.rar

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

54 دقائق مضت, مرشدعلي said:

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

والحل هو تبع الاخ جعفر

فقط انا سويت في حدث عند الخروج من الادراج ky=0

3211.rar

السلام عليكم استاذي ابو ياسين الله يعطيك العافيه نعم هو المطلوب

والاستاذ@jjafferr ابو الجعافر ربنا يعطيه الصحه استاذنا وحبيبنا دوما وهو في المواقف الصعيبه الله  لا يحرمنا من لمساته و اسميه بعالم الاكسس  صراحه مع شهاده شكر تقدير

رغم اني عانيت من هذا الموضوع قبل فتره ولم نوصل لحل  فجزاه الله خير الجزاء باذن الله نصير زي استاذنا جعفر 

والعيب منا كمبتدي  عندما لا  استطيع اوصل السوال بطريقه علميه 

الف تحيه للاستاذ جعر 

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

الله يجزيكم كل خير

 

 

 

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

السلام عليكم:smile:

 

شكرا أخي مرشد على المساعدة:smile:

كان المفروض اعمل الشرح للكود ، علشان يكون واضح عمله ، واللي منه اخوي مرشد فهم بيت القصيد ، واستعمله:

'مؤقتا احفظ هذا المتغير في الذاكرة    
Dim Ky As Integer


'كلما نضغط على اي زر ، اريد حفظه مؤقتا للحدث التالي
Ky = KeyCode


'اذا الصنف فارغ ، والزر الذي تم الضغط عليه هو
'Enter او TAB
'فقم بالكود التالي
If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then


'احذف معلومات آخر زر تم الضغط عليه
Ky = 0

.

جعفر

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

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