Option Compare Database
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
DoCmd.GoToRecord , , acNewRec
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
Private Sub Command2_Click()
Frame6.Visible = True
End Sub
Private Sub Command20_Click()
If Option8.Value = True Then
Accidents.Show
End If
If Option10.Value = True Then
Car Details.Show
End If
If Option12.Value = True Then
Employee Details.Show
End If
If Option14.Value = True Then
Fuel Details.Show
End If
If Option16.Value = True Then
Service.Show
End If
If Option18.Value = True Then
Transaction.Show
End If
End Sub