Solved

VB6 TRIM all textbox in form

Posted on 2013-06-24
14
417 Views
Last Modified: 2013-06-25
Hello all

I normally use this code to TRIM a textbox
Text1.text = TRIM(Text1.text)

Open in new window


I would like to know how i can TRIM all testbox in my form in one single code instead of multiple code under all textbox separatly.

Is that possible?

How can i do that?

Thanks again for your help
0
Comment
Question by:Wilder1626
  • 8
  • 6
14 Comments
 
LVL 45

Expert Comment

by:Martin Liss
Comment Utility
Dim ctl As Control

For Each ctl In Controls
    If TypeOf ctl is Textbox Then
        Trim(ctl)
    End If
Next

Open in new window

0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
Hi MartinLiss

When i use that code, i still have a space in textbox. Look in State field

space
0
 
LVL 45

Expert Comment

by:Martin Liss
Comment Utility
I don't see a space (is it at the end?) but I believe you. Can you attach your workbook?
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
Since i copy from excel and past it into a MSHFlexgrid, i wonder if i should TRIM it when i past into the grid instead of the textbox.

Can i trim all  cell in the MSHFlexgrid?

Paste function
    Dim sText As String
    Dim nFixedRows As Long
    Dim nFixedCols As Long
    Dim nRows As Long
    Dim nCols As Long

    nFixedRows = 1
    nFixedCols = 1

    sText = Clipboard.GetText

    nRows = UBound(Split(sText, vbCr)) + 1

    'Dim vRows As Variant
    'vRows = Split(sText, vbCr)
    'nCols = UBound(Split(vRows(0), vbTab)) + 1
    nCols = UBound(Split(Split(sText, vbCr)(0), vbTab)) + 1
    'Debug.Print nCols

    With MSHFlexGrid1
        .FixedRows = nFixedRows
        .FixedCols = nFixedCols

        .Rows = .FixedRows + nRows
        .Cols = .FixedCols + nCols
        .Row = .FixedRows
        .Col = .FixedCols  '(or whatever value you like)

        .RowSel = .Rows - 1
        .ColSel = .Cols - 1

        .Clip = Replace(sText, vbLf, "")
    End With

Open in new window

0
 
LVL 45

Expert Comment

by:Martin Liss
Comment Utility
Okay so it may not be a space that you need to remove. The first thing to try is to replace vblf in the Clip statement with vbcrlf (or do both)
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
Ok, i have tried : .Clip = Replace(sText, vbcrlf , ""), but i still have the same space in the State field.

So strange
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
If you copy all excel cell in yellow from the excel file and use the past function in the project in attachment, one of the cell will show in the Text1. You will see the empty space at the end.

Text1.text= Trim(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2))
excel-file-to-copy.zip
0
What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

 
LVL 45

Expert Comment

by:Martin Liss
Comment Utility
Assuming that the space is at the end of the textbox, please put this someplace in your code  (substituting the name of your textbox) where it will execute. What does it tell you?
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
I have  a Compile error: Expected Sub, Function, or Property when i use:
substituting Text1

Open in new window

0
 
LVL 45

Accepted Solution

by:
Martin Liss earned 500 total points
Comment Utility
I'm sorry. I left out a very important line in my request.

Assuming that the space is at the end of the textbox, please put the following  someplace in your code  (substituting the name of your textbox) where it will execute. What does it tell you?

MsgBox Asc(Right(Text1, 1))

so perhaps in some command button code if the name of the textbox is MyTextBoxName you would put

MsgBox Asc(Right(MyTextBoxName, 1))
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
Hi

It give me the result : 160
0
 
LVL 11

Author Comment

by:Wilder1626
Comment Utility
So let me try this then:

Text1.Text = Replace(Text1.Text, Chr(160), "")
0
 
LVL 11

Author Closing Comment

by:Wilder1626
Comment Utility
Many thanks again for your help.

Now it works and it remove the empty spaces.

I will trim and replace char(160) also.
0
 
LVL 45

Expert Comment

by:Martin Liss
Comment Utility
You're welcome and I'm glad I was able to help.

Select the 'About Me' tab in my profile and you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2013
0

Featured Post

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

771 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now