Removing specific text using chkBox 1

[darinmc]

Hi
I have a check box, that when clicked it inserts "t/s " at the beginning of a text box keeping other comments that may be in already...

When I uncheck the box, I dont want the text box to be null, I want it to remove just the specific part, "t/s "

Is this possibe? and how?

Private Sub chkTsh_Click()
If Me.chkTsh = True Then
Me.tInvNote = "t/s " & Me.tInvNote
Else
'Me.tInvNote = Null
End If
End Sub

Thx
Darin

 

[Remou]

Perhaps:

Private Sub chkTsh_Click()
If Me.chkTsh = True Then
Me.tInvNote = "t/s " & Me.tInvNote
Else
If Left(Me.tinvnote,4)="t/s " Then
   Me.tInvNote=Mid(Me.tInvNote,5)
End If
'Me.tInvNote = Null
End If
End Sub

 

[darinmc]

That wont work as i have 2 check boxes
1 inserts "t/s "
the other
inserts "e/t "

these can be in any order, therefore i need it to find the specific keywords to remove

Thx
DArin

 

[Remou]

If you feel it is safe to do so, you can use Replace. It often a good idea to mention complications in the initial question.

 

[darinmc]

Thx, i looked up the replace and found a simple example...
Code below works

Private Sub chkTsh_Click()
If Me.chkTsh = True Then
Me.tInvNote = "t/s " & Me.tInvNote
Else
Me.tInvNote = Replace(Me.tInvNote, "t/s ", "")
End If
End Sub

Sample code found
'Dim MyString
' A binary comparison starting at the beginning of the string.
MyString = Replace(Me.tInvNote, "t/s ", "")
Me.tInvNote = MyString
'MyString = Replace("XXpXXPXXp", "p", "Y")
' Returns "XXYXXPXXY".

'If Left(Me.tInvNote, 4) = "t/s " Then
' Me.tInvNote = Mid(Me.tInvNote, 5)
'End If
'Me.tInvNote = Null

http://msdn.microsoft.com/en-us/library/bt3szac5.aspx

Thx
Darin

 

[PHV]

A safer way:

Private Sub chkTsh_Click()
If Me!chkTsh = True Then
  If InStr(Me!tInvNote, "t/s ") = 0 Then
    Me!tInvNote = "t/s " & Me!tInvNote
  End If
Else
  Me!tInvNote = Replace(Me!tInvNote, "t/s ", "")
End If
End Sub

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886