Tab alignment

[myworkzone]

Hi,

I really need some help aligning my records. I am using the code below to fill up my listbox. But since each field lenth varies from record to record the alignment gets messed up. How do i do it so that each field starts in the right place all the time and end at a certain point before the next field is listed so that they are all aligned.

Thanks.

Sub Fill_HistoryList()

With rs

List2.Clear

Do While Not rs.EOF
formatDate = rs!Date
FormatTime = rs!Time
formatDate = (Format(formatDate, "Medium Date"))
FormatTime = (Format(FormatTime, "Medium Time"))

List2.AddItem " " & rs!ID & " " & formatDate & " " &
FormatTime & " " & rs!Name & " " & rs!History
rs.MoveNext
Loop

End With

End Sub

[si_the_geek]

This is what I would do (it will need a slightly wider listbox)

Sub Fill_HistoryList()
 
   'commented out this bit because you don't use it (& isn't really needed!)
' With rs                
 
 List2.Clear
 
  Do While Not rs.EOF
               'No point putting these into the variables first
    'formatDate = rs!Date
    'FormatTime = rs!Time
 
    formatDate = (Format(rs!Date, "Medium Date"))
    FormatTime = (Format(rs!Time, "Medium Time"))
  
'NB: the _ at the end tells VB that it is really just one line (easier to read!)
    List2.AddItem "   " & rs!ID & " " & vbtab _
                        & formatDate & " " & vbtab _
                        & FormatTime & " " & vbtab _
                        & rs!Name & " " & vbtab _
                        & rs!History
    rs.MoveNext
  Loop
  
' End With
 
End Sub

[myworkzone]

Hi,

I tried that but the results are almost the same.
You see, the User name varies in lengh ie some people have short name while others have long names so the History that comes after that starts at different positions.

Is there anyway, that i can make the name take up a fixed length before the history is displayed. I just want each colomn to start at a certain position and end at a certain position before the next field is displayed.

Any ideas on how to do this.

[si_the_geek]

assuming the ID's are fixed length, something like this should do it:

List2.Clear
 
  max_len = [b]{length of longest string that can be returned for rs!Name}[/b]
 
  Do While Not rs.EOF
...
    List2.AddItem "   " & rs!ID & " " & vbtab _
                        & formatDate & " " & vbtab _
                        & FormatTime & " " & vbtab _
                        & rs!Name [b]& space ((max_len-rs!Name)*3) [/b]& " " & vbtab _
                        & rs!History
...

This isn't the most accurate way of doing it, but unless you only have a few rows of data it is the best you can do in a list box (you could always use a grid instead!)