Unnamed

Public Sub Form_Current()

DoCmd.OpenForm "frmEmployeeInfo", acNormal, , acFormReadOnly
Dim EmplSalary As Decimal
Dim HourlyRate As Decimal

' hide the salary controls for hourly paid employees
' hide the hourly rate controls for salaried employees

If IsNull(EmplSalary) And Not IsNull(HourlyRate) Then
EmplSalary.Visible = False
EmplSalary_Label.Visible = False
Else
HourlyRate.Visible = True
HourlyRate_Label.Visible = True

End If

End Sub