حذف اسطر معينه فى آداه text box

تفضل اخي :)

هذا الكود يعمل اللي تريده:

Private Sub Remove_Line(N As String)

    'N is the wor that is sent from the command button,
    'we need to remove the line that starts with this word
    
    Dim x() As String
    
    'split the Me.Info para at the Carriage Return Line Feed
    x = Split(Me.Info, vbCrLf)
    
    'loop from the Lower Bound of x, to the Upper Bound
    For i = LBound(x) To UBound(x)
        
        'check the left of each line, to see if it matches the sent Word
        If Left(x(i), Len(N)) = N Then
            
            'the last line will not have CrLf, so ignore it
            If i = UBound(x) Then
                'just take away this line, and replace it with nothing
                Me.Info = Replace(Me.Info, x(i), "")
            Else
                Me.Info = Replace(Me.Info, x(i) & vbCrLf, "")
            End If
            
            'done, get out
            Exit Sub
        End If
    Next i
    
End Sub


Private Sub cmd_Country_Click()

    Call Remove_Line("Country")
End Sub

Private Sub cmd_Name_Click()

    Call Remove_Line("Name:")
End Sub

وهذه الصورة ايضاح لما في النموذج:

ولم ارفق لك البرنامج ، لانه لا ضرورة له :)

جعفر

أخى العزيز

بارك الله فيك

و زادك علماً و جعلها الله فى ميزان حسناتك

لقد عمل معى و هذا فعلاً ما أريده

شكراً جزيلاً

:)