ABC RecordS

[Teeboy]

I have a simple form that displays a set of records sorted alpha. This is based on a query. Currently i just scroll through them.What i want to do is to be able to seperate the records into a b c etc in a tab control on a form. each page would be headed A, B, C.. etc. how would i do this?

regards.

 

[tonnic]

Hi,

i would make Filter-Buttons named 'A';'B''; .... and on click you set a filter like this one:

Private Sub A_Click()

'vars
Dim strFilt As String

'Name is the column to filter
strFilt = "[Name] like 'A*'"

'set filter
DoCmd.ApplyFilter , strFilt

End Sub

Then you only see all Records which are starting with A

 

[Norie]

Why not create an unbound combobox which contains A-Z?

Then as tonnic suggested create a command button that filters on the value in the combobox.

Or write code for the change event of the combobox.

Private Sub Combo1_Change()
Dim Flt As String
    Me.FilterOn = False
    Select Case Combo1.Value
        
        Case "ALL"
            ' do nothing
        Case Else
            Flt = "Contractor Like '" & Combo1.Value & "*'"
            Me.Filter = Flt
            Me.FilterOn = True
    End Select
                        
End Sub

This uitilises a combobox with Row Source Type set to Value List and Row Source set to ALL;A;B;C;D;E;F;G;H;I;J;K;L;M;N;O;P;Q;R;S;T;U;V;W;X;Y;Z.

Change Contractor to your field name.