Olá, meninos
Antes de salvar no BD, quero que o usuário receba uma mensagem caso ele tenha esquecido de preencher algum dado.
Criei uma classe pra fazer isso com as caixas de texto do formulários. Graças ao bom-senhor-jesus-cristo, o código funciona. Agora quero uma classe que verifique se dentro do frame há algum option button selecionado, ou seja, ele só vai emitir mensagem se dentro do frame TODOS os options estiverem c/ value=false. Se eu tiver 200 opts e 1 deles estiver selecionado, nada acontece.
Código para os textbox 'que funciona :)
Public Sub verificaDados(nomeForm As Form)
Dim i, cont As Integer
cont = 0
For i = 1 To nomeForm.Controls.Count - 1
If TypeOf nomeForm.Controls(i) Is TextBox Then
If nomeForm.Controls(i).Text = "" Then
cont = cont + 1
End If
End If
Next i
If cont > 0 then
mensagem.preencherDados
end if
Tentei fazer o mesmo com os OptionButtons, mas a mensagem só pára de ser emitida quando tenho todos os options selecionados.
For i = 1 To nomeForm.Controls.Count - 1
If TypeOf nomeForm.Controls(i) Is OptionButton Then
If nomeForm.Controls(i).Value = False Then
cont = cont + 1
End If
End If
Next i
if cont > 0 then
mensagem.preencherDados
endif
anyway, bom fim de semana à todos
