التحقق من الصحة

[ملهم عسكر]

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

ارجو المساعدة في حل هذه المشكلة

لدي نموذج يحوي

مربع قائمة يعرض مجموعة من الارقام الغير متسلسلة مثال :1 -2 3-4-100-200-300

ومربع نص 

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

 

ملهم.rar

تم تعديل ديسمبر 3, 2018 بواسطه ملهم عسكر
ارفاق ملف

[Shivan Rekany]

8 ساعات مضت, ملهم عسكر said:

 

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

استخدم هذا

Private Sub test_BeforeUpdate(Cancel As Integer)
    Dim i As Integer
    Dim MewcodOrNo As Integer
    If Len(Me.test & vbNullString) = 0 Then Exit Sub
    For i = 1 To Me.MyList.ListCount
        If Me.test = Me.MyList.Column(1, Me.MyList.ItemData(i)) Then
            MewcodOrNo = MewcodOrNo + 1
        If MewcodOrNo > 0 Then Exit Sub
        End If
        Next i
        If MewcodOrNo = 0 Then MsgBox "الرقم غير موجود"
End Sub

 

ملهم.rar

[ملهم عسكر]

شكرا اخي Shivan Rekany ولكن هناك مشكلة تظهر لي عند ادخال الرقم 100 ثم الرقم 101 يكون الكود يعمل ولكن عند العودة لادخال الرقم 100 مرة اخرى يعطي الرقم غير موجود

تم تعديل ديسمبر 4, 2018 بواسطه ملهم عسكر
خطا باكتابة

[Shivan Rekany]

12 ساعات مضت, ملهم عسكر said:

ولكن هناك مشكلة تظهر لي عند ادخال الرقم 100 ثم الرقم 101 يكون الكود يعمل ولكن عند العودة لادخال الرقم 100 مرة اخرى يعطي الرقم غير موجود

اذا اليك هذا

Private Sub test_BeforeUpdate(Cancel As Integer)
    Dim i As Integer
    Dim MewcodOrNo As Integer
    If Len(Me.test & vbNullString) = 0 Then Exit Sub
    Me.MyList.Selected(0) = True
    For i = 0 To Me.MyList.ListCount
        If Me.test = Me.MyList.Column(1, Me.MyList.ItemData(i)) Then
            MewcodOrNo = MewcodOrNo + 1
            Me.MyList.Selected(i + 1) = True
        If MewcodOrNo > 0 Then Exit Sub
        End If
        Next i
        If MewcodOrNo = 0 Then MsgBox "الرقم غير موجود"
End Sub

 

ملهم.rar

[ملهم عسكر]

شكرا اخي الكريم Shivan Rekany  

البرنامج يعمل بشكل صحيح

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