Try this
Private Sub addRecord_Click()
On Error GoTo Err_addRecord_Click
Dim ctrl As Control
DoCmd.GoToRecord , , acNewRec
Me.subfrm_slideDetails.SetFocus
For Each ctrl In Me.Controls
If ctrl.ControlType = acTextBox Then
ctrl.Enabled = True
End If...