Validar Campo em Branco

Question

[size=2][font=sans-serif]Algu&eacute;m consegue me ajudar, pois n&atilde;o sei mais onde estou errando nesse c&oacute;digo...[/font][/size]
[size=2][font=sans-serif]O c&oacute;digo checa se as textbox que s&atilde;o obrigadas a serem preenchidas est&atilde;o preenchidas, e caso n&atilde;o esteja uma imagem aparece ao lado sinalizando que &eacute; obrigat&oacute;rio.[/font][/size]
[size=2][font=sans-serif]Ent&atilde;o foi adicionado um asterisco * nas tag das textbox que s&atilde;o obrigas a preencher.[/font][/size]
[size=2][font=sans-serif]Porem quando eu depuro o c&oacute;digo, ele est&aacute; checando um n&uacute;mero maior do que tenho, como se n&atilde;o entendesse que &eacute; somente as textbox, e n&atilde;o est&aacute; identificando as textbox vazias.[/font][/size]
[size=2][font=sans-serif]Se algu&eacute;m puder me dar uma luz![/font][/size]

Answer

Segue uma alternativa que n&atilde;o usa a Function existente.

Private Sub CommandButton1_Click()
 Dim Ctrl As Control
  For Each Ctrl In Me.Controls
  If TypeName(Ctrl) = TextBox And Ctrl.Tag = * Then
    Me.Controls(Erro & Ctrl.Name).Visible = Ctrl.Text = 
    If Ctrl.Text =  Then Exit Sub
  End If
  Next Ctrl
End Sub

Voc&ecirc; precisa adequar os nomes das Labels, conforme abaixo:

ErrortxtNome1 >>> ErrotxtLaboratorista
ErrotxtNome2 >>> ErrotxtTemperatura
ErrotxtNome3 >>> ErrotxtSlope

Answer

[quote=GuimeM, post: 8567833, member: 1263505]Segue uma alternativa que n&atilde;o usa a Function existente.

Private Sub CommandButton1_Click()
 Dim Ctrl As Control
  For Each Ctrl In Me.Controls
  If TypeName(Ctrl) = TextBox And Ctrl.Tag = * Then
    Me.Controls(Erro & Ctrl.Name).Visible = Ctrl.Text = 
    If Ctrl.Text =  Then Exit Sub
  End If
  Next Ctrl
End Sub

Voc&ecirc; precisa adequar os nomes das Labels, conforme abaixo:

ErrortxtNome1 &gt;&gt;&gt; ErrotxtLaboratorista
ErrotxtNome2 &gt;&gt;&gt; ErrotxtTemperatura
ErrotxtNome3 &gt;&gt;&gt; ErrotxtSlope[/quote]
&lrm;Obrigada GuimeM!

Ferramentas

Mover Tópico