[بسام محمدغانم]

السلام عليكم
في شاشة الدليل المحاسبي يوجد 2 txtbox
الاول لرقم حساب الاب او حساب الجذر
و الثاني لرقم الحساب
اريد كود يعمل عملية تقييد للارقام التي تحتويها هذة txt

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

مثال 
رقم الحساب الاب =11101
ورقم الحساب المتفرع منة = 11101001

يتم الفحص اذا لم يكن مشتق من رقم الحساب الاب يتم رفض الادخال

وشكرا

[asemshahen5]

ضع تشك بوكس على الحساب الاب اذا كانت ترو تفعل شيء و اذا كانت فالس تفعل شيء اخر .

[ابو انس]

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

كود :

     Dim i As Integer = TextBox1.TextLength

       Dim s As String
       Dim d_text1 As String
       s = TextBox2.Text
       d_text1 = (LSet(s, i))
       If TextBox1.Text <> d_text1 Then
           MsgBox("لقد ادخلت حساب خطأ")
       End If

[بسام محمدغانم]

(28-10-21, 02:00 PM)ابو انس كتب : وعليكم السلام
اظن ان بسام يريد التالي

كود :

     Dim i As Integer = TextBox1.TextLength

       Dim s As String
       Dim d_text1 As String
       s = TextBox2.Text
       d_text1 = (LSet(s, i))
       If TextBox1.Text <> d_text1 Then
           MsgBox("لقد ادخلت حساب خطأ")
       End If

مشكوووووووور اخي ساعدتني كثير