Private Sub NomePulsante_Click() Me!NomeSottomaschera.SetFocus DoCmd.RunCommand acCmdSelectAllRecords End Sub