تعديل كود رساله تنبيه

[النجاشي]

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

احبتي هذا الكود شغال معي تمام

فغيرت حقلID_Sanf من رقم الي نص بعدها لم يشتغل معي التنبيه

المطلوب تعديل الكود 

    Dim Rs As DAO.Recordset
    Set Rs = Forms!frmSales!SubSales.Form.RecordsetClone

    Rs.FindFirst "[Rjmfatwra] = '" & Me.Rjmfatwra & "' And ID_Sanf =" & Me.ID_Sanf
    If Rs.NoMatch = False Then
    MsgBox " الرقم مكرر" & "  ", , "تـنـبـيـه"
      GoTo No_Records
    Else

 

[النجاشي]

للرفع

[عبد الله قدور]

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

Dim Rs As DAO.Recordset
    Set Rs = Forms!frmSales!SubSales.Form.RecordsetClone

    Rs.FindFirst "[Rjmfatwra] = '" & Me.Rjmfatwra & "' And ID_Sanf =" & Me.ID_Sanf
    If Rs.NoMatch = False Then
    MsgBox " الرقم مكرر" & "  ", , "تـنـبـيـه"
      GoTo No_Records
    Else

 

السلام عليكم

اخي الكريم

من خلال نظرة سريعة للكود هناك خطأ بسيط وهو ان الامر if يحتاج الى انهاء هذا الامر ب

end if

 

[النجاشي]

7 دقائق مضت, عبد الله قدور said:

السلام عليكم

اخي الكريم

من خلال نظرة سريعة للكود هناك خطأ بسيط وهو ان الامر if يحتاج الى انهاء هذا الامر ب

end if

 

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

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

تحياتي اليك يالغالي 

55.rar

[عبد الله قدور]

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

 

[النجاشي]

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

ممكن تدخل رقم الصنف مباشره وليكن 11111-11111او22222-22222 

الشرطه بين الارقام لاتكتبها

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

66.rar

تم تعديل يوليو 9, 2018 بواسطه ابو زاهر

[عبد الله قدور]

ما ظهر عندي اي رسالة خطا

 

[النجاشي]

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

تم تعديل يوليو 9, 2018 بواسطه ابو زاهر

[النجاشي]

للرفع