Instead of repeating that block of code each time, you create a sub like:
Code:
Sub Trucks(t As Long)
Dim i As Long, j As Long
For i = 1 To 17
For j = 1 To 10
Me(Chr(64 + j) & i).Enabled = t >= j
Next
Next
End Sub
and assuming Me.NumTrucks returns 0 when empty, then call the Trucks sub with code like:
Code:
Call Trucks(Me.NumTrucks)
Alternatively, if Me.NumTrucks doesn't return 0 when empty, you might call the Trucks sub with code like:
Code:
Call Trucks(CLng(Me.NumTrucks))
or, failing that:
Code:
Dim t As Long
If IsNull(Me.NumTrucks) Then
t = 0
Else
t = Me.NumTrucks
End If
Call Trucks(t)
PS: For Access related discussions, you should visit AccessForum.net:
Microsoft Access Forums