Título da Dica: Limpando todos os ComboBox do Form
Postada em 25/11/2002 por Alisson
alisonbeloti@bol.com.br
'Para utilizar coloque esta função no Form ou em um Módulo 'Adicione pelo menos um ComboBox no Form.
Private Sub Form_Load()
LimpaCombos Me
End Sub
Public Sub LimpaCombos(frm As Form)
Dim ctrl As Object 'Procedimento para limpar todos os combos do formulário For Each ctrl In frm.Controls If TypeOf ctrl Is ComboBox Then ctrl.Clear End If Next
