Empty date field when it is not

[KhallP]

I'm creating a "Database" in Excel, for that I created a Form for users to register

For this Form I created a procedure to check if the fields contain invalid data or if the textboxes are empty

the problem is that even if a specific "Textbox" is not empty, the program displays the error message of that same "Textbox"

Private Sub bt_seguinte_Click()

Dim senha_verify_register

lb_erro_nome_completo.Visible = False
lb_erro_nome_usuario.Visible = False
lb_erro_senha.Visible = False
lb_erro_confirmar_senha.Visible = False

Select Case True

Case Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo) And Trim(txt_nome_usuario) = "" And Trim(txt_senha) = "" And Trim(txt_confirmar_senha) = ""
    If Trim(txt_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True

    ElseIf IsNumeric(txt_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"

    End If

    lb_erro_nome_usuario.Visible = True
    lb_erro_senha.Visible = True
    lb_erro_confirmar_senha.Visible = True
    
    MsgBox "1"
    
    
Case Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo) And Trim(txt_nome_usuario) = "" And Trim(txt_senha) = ""
    If Trim(txt_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True
        
    ElseIf IsNumeric(txt_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"
        
    End If
    
    lb_erro_nome_usuario.Visible = True
    lb_erro_senha.Visible = True
    
    MsgBox "2"

Shouldn't "msgbox" have a value of 2?

 

[KhallP]

I'm creating a "Database" in Excel, for that I created a Form for users to register

For this Form I created a procedure to check if the fields contain invalid data or if the textboxes are empty

the problem is that even if a specific "Textbox" is not empty, the program displays the error message of that same "Textbox"

Private Sub bt_seguinte_Click()

Dim senha_verify_register

lb_erro_nome_completo.Visible = False
lb_erro_nome_usuario.Visible = False
lb_erro_senha.Visible = False
lb_erro_confirmar_senha.Visible = False

Select Case True

Case Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo) And Trim(txt_nome_usuario) = "" And Trim(txt_senha) = "" And Trim(txt_confirmar_senha) = ""
    If Trim(txt_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True

    ElseIf IsNumeric(txt_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"

    End If

    lb_erro_nome_usuario.Visible = True
    lb_erro_senha.Visible = True
    lb_erro_confirmar_senha.Visible = True
   
    MsgBox "1"
   
   
Case Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo) And Trim(txt_nome_usuario) = "" And Trim(txt_senha) = ""
    If Trim(txt_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True
       
    ElseIf IsNumeric(txt_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"
       
    End If
   
    lb_erro_nome_usuario.Visible = True
    lb_erro_senha.Visible = True
   
    MsgBox "2"

Shouldn't "msgbox" have a value of 2?

View attachment 42511

The same is true for this case:

Code:

Case Trim(tb_nome_completo) = "" Or IsNumeric(tb_nome_completo) And Trim(tb_senha) = "" And Trim(tb_confirmar_senha) = ""
    If Trim(tb_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True
        
    ElseIf Not IsNumeric(tb_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"
        
    End If
    
    lb_erro_confirmar_senha.Visible = True
    lb_erro_senha.Visible = True
    MsgBox "5"

 

[RoryA]

You need to bracket your Or conditions if the result of that should be used in the And with the other criteria:

Case (Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo))

As a side note, I see no value in using a Select Case True construct here; nested Ifs would appear more easily understandable to me.

 

[KhallP]

Você precisa colocar suas condições Ou entre colchetes se o resultado disso deve ser usado no E com os outros critérios:

 Case (Trim (txt_nome_completo) = "" Or IsNumeric (txt_nome_completo)) [/ code]

Como uma observação lateral, não vejo nenhum valor em usar uma construção Select Case True aqui; Ifs aninhados pareceriam mais facilmente compreensíveis para mim.
[/QUOTE]
Thnaks man, I used "Case" because the verification is much faster since the "IF" values are confirmed one by one

 

[KhallP]

You need to bracket your Or conditions if the result of that should be used in the And with the other criteria:

Case (Trim(txt_nome_completo) = "" Or IsNumeric(txt_nome_completo))

As a side note, I see no value in using a Select Case True construct here; nested Ifs would appear more easily understandable to me.

a function still doesn't work..

Code:

Case (Trim(tb_nome_completo) = "" Or IsNumeric(tb_nome_completo)) And Trim(tb_senha) = ""
    If Trim(tb_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True
        
    ElseIf Not IsNumeric(tb_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"
        
    End If
    
    lb_erro_senha.Visible = True
    MsgBox "4"
    
    
    
    
Case (Trim(tb_nome_completo) = "" Or IsNumeric(tb_nome_completo)) And Trim(tb_senha) = "" And Trim(tb_confirmar_senha) = ""
    If Trim(tb_nome_completo) = "" Then
        lb_erro_nome_completo.Visible = True
        
    ElseIf Not IsNumeric(tb_nome_completo) Then
        lb_erro_nome_completo.Visible = True
        lb_erro_nome_completo.Caption = "*Caracteres Inválidos"
        
    End If
    
    lb_erro_confirmar_senha.Visible = True
    lb_erro_senha.Visible = True
    MsgBox "11"

the program should display "11"

 

[RoryA]

Why? It matches the first set of criteria since nome completo and senha are both empty.

 

[KhallP]

Por quê? Ele corresponde ao primeiro conjunto de critérios, pois nome completo e senha estão vazios.

tb_confirmar_senha is empty too

 

[KhallP]

Why? It matches the first set of criteria since nome completo and senha are both empty.

will i have to change the order of the code oui is it an error in the code?

 

[RoryA]

You need to change the order since the code will stop with the first matching set of criteria.

 

[KhallP]

Você precisa alterar o pedido, pois o código irá parar com o primeiro conjunto de critérios correspondente.

ok man, thank u very much again