ALERTA DE CAMPO EM BRANCO NO FORMULARIO.

MARCOSSFERREIRA 10/08/2011 16:46:57
#381286
Boa tarde galera, criei um formulario em visual basic 2008 .net, a qual o usuario é obrigado a preencher todos os campos, como eu faço para que ao clicar em salvar caso haja um campo em branco o usario receba a seguinte mensagem: [Ô] O documento não pode ser salvo por que o campo [Ô]XXX[Ô] encontra-se em branco, favor preencha o mesmo e salve seu documento.[Ô]

E com isso não salve ate que todos os campos sejam preenchidos.

Obrigado.
MGALDINO 10/08/2011 17:09:46
#381289
If Text1.text = [Ô][Ô] then
msgbox [Ô]O documento não pode ser salvo por que o campo [Ô]XXX[Ô] encontra-se em branco[Ô]
end if
ALTAIR148 10/08/2011 17:15:53
#381290
Boa tarde,

Olhe esse exemplo, vc adiciona a tag nos campos e ele varre todas a tags e seta o campo que esta em branco.

http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=58923

Até mais.
MARCOSSFERREIRA 10/08/2011 17:16:00
#381291
Sim, mas tenho que fazer isso com todos os text, não teria uma forma como usar um comando que abrangesse todos?
ALTAIR148 10/08/2011 17:20:30
#381292
Adiciona a tag em todos, se tem outra forma eu desconheço.
FABIOPAGANINI 10/08/2011 22:26:36
#381311
estou com preguiça de abrir o VS, mas caso nao funcione vc me fala que melhoro o código, mas é possivel sim.
o que vc tem que especificar é se os campos vao ser sempre textbox, ou vao ter outros tipos de imputs sem ser textbox, caso afirmativo, me fale que tbm implemento. segue:

  


Public Function VerificaControles(Controle As Control) As Boolean
        For Each item As Control In Controle.Controls
            If (TypeOf (item) Is TextBox) Then
                If (DirectCast(item, TextBox).Text.Trim() = [Ô][Ô]) Then
                    MsgBox([Ô]O campo [Ô] + item.AccessibleName + [Ô] não foi informado.[Ô])
                    Return False
                End If
            End If
        Next
        Return True
    End Function


no botao salvar, faça algo assim:

If VerificaControles(Me) Then
MsgBox([Ô]Salvo[Ô])
End If


ah, nao esqueça de informar um nome UserFriendly na propriedade Asseciblename dos textbox.
FABIOPAGANINI 10/08/2011 22:31:28
#381312
nota: Este codigo funciona apenas se todos os textbox estiverem largados dentro do form, mas caso um controle esteja dentro de um panel ou de um group panel nao funcionaria. mas de qualquer forma uma simpels implementação faria com que funcionasse. veja a seguir o que verifica até os controles dentro de outros controles:



Public Function VerificaControles(Controle As Control) As Boolean
        For Each item As Control In Controle.Controls
            If (TypeOf (item) Is TextBox) Then
                If (DirectCast(item, TextBox).Text.Trim() = [Ô][Ô]) Then
                    MsgBox([Ô]O campo [Ô] + item.AccessibleName + [Ô] não foi informado.[Ô])
                    Return False
                End If
            else
                        if  (verificacontroles(item) != true) then return false;
            End If
        Next
        Return True
    End Function
MARCOSSFERREIRA 11/08/2011 08:38:15
#381339
Bom dia pessoal eu tentei os comandos que me passaram mas não funcionaram acho que não entendi muito bem, tenho apenas textBox em formulario e estas estão dentro de uma TabPage e nesta TabPage tem uma GroupBox e nesta GroupBox encontram-se as TextBox, o que gostaria é quando a pessoa clicar em salvar a mensagem de campo em branco apareça indicando o nome do campo e impedindo que seja salvo.

Muitissimo Obrigado.
RODRIGOFERRO 11/08/2011 09:19:00
#381345
Ta mas nao funcionou como ?
voce debugou o codigo pra ver o que deu errado ?

Abraços
MARCOSSFERREIRA 11/08/2011 09:27:20
#381347
Quando vou chamar a função pelo btosalvar diz que o argumento não foi especificado.
FABIOPAGANINI 11/08/2011 13:44:41
#381387
testei o codigo aqui meu amigo. Funcionou. Mostra que na faculdade, o escrever códigos apenas no papel realmente é util. heheheh.

mas voltando ao seu problema:
nos poste aqui a função contida dentro do seu btnSalvar.
se possivel coloque um breackpoint neste função e veja a onde o erro está ocorrendo.
Página 1 de 2 [16 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar