One thing I would like the Flexgrid to do is when it loads in an Access file (or whatever) is to increase its column width automatically to the largest width data entry for that column...
For instance if you have a column entitled Bills.
And the largest name under bills is South Louisiana Bank...
Then the width of that column should be no smaller than 20 spaces (the length of the name South Louisiana Bank)
What can I do to make sure that once the FlexGrid program loads in the correct table...how can I have it automatically format those columns?
Here's the program below so far:
(Which works so far!!! - I'm so happy)
The com2 is a command button that whenever the user presses it - the next table is viewed in the data grid!!!!
Tabl(1-Cate) is the actual table...and Cate is assigned 1-(number of tables)
Option Explicit
' Note: 'Dim' will work the same as 'Private' here ...
Private Cate As Integer
Private Tabl() As String
Private Sub Form_Load()
Dim db As Database
Dim td As TableDef
Dim intX As Integer
Set db = OpenDatabase("C:\My Documents\phone1.mdb")
For Each td In db.TableDefs
' There are hidden, system tables in an Access DB
' that start with "MSys", which you want to ignore
If Left$(td.Name, 4) <> "MSys" Then
intX = intX + 1
ReDim Preserve Tabl(1 To intX)
Tabl(intX) = td.Name
End If
Next
'db.Close
Cate = 1
dbPhone.RecordSource = Tabl(1)
End Sub
Private Sub com2_Click()
Cate = Cate + 1
If Cate > UBound(Tabl) Then Cate = 1
dbPhone.RecordSource = Tabl(Cate)
dbPhone.Refresh
End Sub
Thanks very much to all who has helped!!!!
Kind regards,
Stephen
