[blue]Public Sub SpellCheck(Optional ctl)
Dim flg As Boolean
If IsMissing(ctl) Then
DoCmd.RunCommand acCmdSelectRecord
flg = True
ElseIf ctl.ControlType = acTextBox Then
ctl.SelStart = 0
ctl.SelLength = Len(ctl)
flg = True
End If
If flg Then DoCmd.RunCommand acCmdSpelling
End Sub[/blue]