Private Sub Job_Class_n_AfterUpdate() Dim icount As Integer Dim strgsql As String If Job_Class_n.Value = "Electrical" Then List238.Visible = False List225.Visible = True strgsql = "SELECT JOR.[JOR No], JOR.ID, JOR.[Req'g Dep't], JOR.[Machine Ident'n], JOR.DateR, JOR.[JOR Remarks], JOR.[Job Class'n], JOR.Category, JOR.[Description of Request], JOR.Remarks FROM JOR WHERE (((JOR.[JOB Class'n]) = 'Electrical')) ORDER BY JOR.[JOR No];" With List225 .RowSourceType = "Table/Query" .RowSource = strgsql .ColumnCount = 10 .ColumnWidths = ".7in;.35in;.6in;.7in;.65in;.65in;.6in;.6in;3in" .ColumnHeads = True .FontSize = 8 .Requery End With Label226.Caption = "Electrical" For icount = 0 To (List225.ListCount - 1) List225.Selected(icount) = True JOR_No.Value = Right(List225.ItemData(icount), 4) + 1 Next icount End if End Sub