se voce utiliza regras de nomenclatura para os objetos (txtnome, txtend, cbocidade cboestado, etc), fica mais facil:
for each elem in me
x = left(elem.name, 3)
if x = "txt" or x = "cbo" then
if elem.text <> "" then msgbox "campo vazio"
elseif x = "chk" then
if elem.value = 0 then msgbox "checkbox não marcado"
end if
next elem
se voce usa nomes independentes de um padrao (nome, end, cidade, estado) entao pode preencher a propriedade Tag de cada um com algo que o identifique (txt, cbo, chk, etc) e usar o codigo:
for each elem in me
x = elem.tag
if x = "txt" or x = "cbo" then
if elem.text <> "" then msgbox "campo vazio"
elseif x = "chk" then
if elem.value = 0 then msgbox "checkbox não marcado"
end if
next elem
deve ter algum modo de descobrir se o objeto é textbox ou combo e tal que nao seja pelo nome e por uma tag, mas isso eu ainda nao descobri. se alguem souber, posta aí.
