أريد طريقة أو كود لعدم الذهاب الى newRecord اذا كان يساوي قيمة معينة

[rey360]

السلام عليكم أعضاء المنتدي الكرام أريد أن اسأل عن طريقة أو كود لعدة انتقال الى سطر جديد اذا كان مثلا المجموع يساوي 0 وذلك لانه لم يدخل الكمية وشكر 

[Barna]

58 دقائق مضت, rey360 said:

السلام عليكم أعضاء المنتدي الكرام أريد أن اسأل عن طريقة أو كود لعدة انتقال الى سطر جديد اذا كان مثلا المجموع يساوي 0 وذلك لانه لم يدخل الكمية وشكر 

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

If IsNull(Me.Namex) Then
' Namex هو اسم مربع نص الكمية
MsgBox "ادخل بيانات", vbCritical, "dATA"
DoCmd.CancelEvent
End If

 

[ابو جودي]

في ١٤‏/٩‏/٢٠١٩ at 14:55, rey360 said:

السلام عليكم أعضاء المنتدي الكرام أريد أن اسأل عن طريقة أو كود لعدة انتقال الى سطر جديد اذا كان مثلا المجموع يساوي 0 وذلك لانه لم يدخل الكمية وشكر 

على اعتبار ان حقل المجموع اسمه = txtQuantity

ضع هذا الكود على زر الامر جديد 

    Select Case Nz(txtQuantity, "")
    Case ""
        MsgBox "Quantity is empty, include the Quantity please"
    Case Is <= 0
        MsgBox "Quantity is zero or less, include the Quantity please"
    Case Is > 0
        DoCmd.GoToRecord , , acNewRec
    End Select

 

[rey360]

شكرا أستاذ Barna وشكرا لك أستاذ ابا جودى الطريقتين تعملان و بفعلية شكرا جزيلا

 

[ابو جودي]

في ١٤‏/٩‏/٢٠١٩ at 15:56, Barna said:

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

If IsNull(Me.Namex) Then
' Namex هو اسم مربع نص الكمية
MsgBox "ادخل بيانات", vbCritical, "dATA"
DoCmd.CancelEvent
End If

 

عذرا استاذى الفاضل واخى الحبيب  والله لم انتبه لمشاركتكم واعتذر جدا جدا جدا جدا لا اعرف كيف حدث ذلك

[Barna]

30 دقائق مضت, ابا جودى said:

عذرا استاذى الفاضل واخى الحبيب  والله لم انتبه لمشاركتكم واعتذر جدا جدا جدا جدا لا اعرف كيف حدث ذلك

اهلا بك بشمهندس ... بالعكس كثرة و تنوع الردود يثري الموضوع ... لا داعي للاعتذار انا استفدت من ردك ... لان هذه الردود تمثل عصف ذهني لمجموعة متحاورة ولسنا في سباق ... بارك الله فيك اخي الفاضل ... اسأل الله العظيم ان يديم علينا جميعا بالصحة والعافية ⚘⚘