:س: إستعلام بالمواد التي تتكون من 13 رقما

[الكاشف2020]

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

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

عندي جدول وبه

رقم المادة ---- البعض من المواد تتألف من 13 رقما والبعض الأخر أقل من ذلك

أسم المادة

الآن أريد أن أظهر المواد التي تتألف من 13 رقما على أن يتجاهل الشرطة ( - )

مثلا 1521-1252-15-158

أو 5698764891234

[الدكتور خضر الرجبي]

السلام عليكم

أخي الكاشف2020 ، بارك الله فيك

الحل : هو بعد عدد "-" داخل الرقم وخصمه من طول الرقم الكلي وثم عمل جملة شرطية على النتيجة، وهذا الكود سيساعدك بكل تأكيد.

Private Sub CmdCountingWitOutMinus_Click()
If Not IsNull(id) Then
 m = 0
 For i = 1 To Len(id)
  If Mid(id, i, 1) = "-" Then m = m + 1
 Next i
 If (Len(id) - m) = 13 Then MsgBox "Excellent"
End If
End Sub

مع الاحترام