|
|
|
|
|
|
|
Postada em 22/10/2007 12:56 hs
Vc está fazendo em VB ou VBA? |
|
|
|
|
|
Postada em 22/10/2007 14:44 hs
To fazendo no VB6.... a funçao ta no GENERAL... Agora quando eu chamo a funcao, dá um erro: ARGUMENT NOT OPTIONAL, isso se eu so coloco LIMPARCAMPOS quando eu coloco LIMPARCAMPOS ME... ai nao dá erro, mas tambem nao limpa nada.... |
|
|
|
|
|
Postada em 22/10/2007 14:48 hs
No caso dá erro pois tem parâmetros a serem passados que não são opcionais. Isso tá me parecendo erro de referência... Veja se existe isso: vb.textbox Caso exista tente isso: IF TypeOf ctrl Is vb.checkbox Then ... Endif Caso não dê certo vá no debug do vb e, em tempo de execução (óbvio né :P desculpa), e faça a comparação qdo a sub for chamada: ? TypeOf ctrl Is TextBox veja o que ele retorna ? TypeOf ctrl Is Control veja o que ele retorna Só no "kick" :P |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 22/10/2007 15:37 hs
no general do form que vc vai usar, cria i]uma SUB e nao funcao... SUB LimpaChecks
Dim ctrl As Control
For Each ctrl In frm.Controls
If TypeOf ctrl Is CheckBox Then
ctrl.Value = 0
End If
Next
End Sub tenta agora.... |
|
|
|
KoRn
|
SAO PAULO
SP - BRASIL
|
|
Postada em 22/10/2007 15:52 hs
entao é isso que o kerplunk falou |
|
|
|
