Hi AMTodd72!
This is my proposal:
Code:
Option Compare Database
Option Explicit
Private Sub MachineUpCount(ByVal intMachineID As Integer, Optional ByVal fReset As Boolean)
'Common procedure for all machines.
'Set the current machine's counter.
With Me.Controls("Machine" & intMachineID & "Counter")
If fReset Then
'Called from "Reset" button.
.Value = 0
Else
'Called from "Up" button.
.Value = Nz(.Value, 0) + 1
End If
End With
End Sub
Private Sub Machine1CLEAR_Click()
MachineUpCount 1, True
End Sub
Private Sub Machine1UP_Click()
MachineUpCount 1
End Sub
Private Sub Machine2CLEAR_Click()
MachineUpCount 2, True
End Sub
Private Sub Machine2UP_Click()
MachineUpCount 2
End Sub
Private Sub Machine3CLEAR_Click()
MachineUpCount 3, True
End Sub
Private Sub Machine3UP_Click()
MachineUpCount 3
End Sub
Private Sub Machine4CLEAR_Click()
MachineUpCount 4, True
End Sub
Private Sub Machine4UP_Click()
MachineUpCount 4
End Sub
Private Sub Machine5CLEAR_Click()
MachineUpCount 5, True
End Sub
Private Sub Machine5UP_Click()
MachineUpCount 5
End Sub
Cheers,
John