none
erro de em tempo de execução "13" RRS feed

  • Pergunta

  • Boa tarde , tudo bem?
    preciso de uma ajuda de vocês, estou apreendendo um pouco de VBA e estou com uma dificuldade numa expressão quando eu coloco a data retirada e depois colocoa data devolução, ele mostra a qtde de diárias e me mostra no campo "tipo" a mensagem "VIAGEM" quando for < que 14 dias e se for > mostra " COLABORADOR NOVO"
    ele faz e visualiza normal a quantidade das diárias e a mensagem "VIAGEM" ou "Colaborador Novo", mas quando salvo o registro ele mostra erro de depuração na linha "<14".

    Private Sub txtdiarias_Change()
    Dim tipo As String
    tipo = txtdiarias.Value
     If tipo < 14 Then
        txttipo = "VIAGEM"


        End If

        If tipo > 15 Then
        txttipo = "COLABORADOR NOVO"
        End If


    End Sub 

    onde estou errando?



    Abs,

    Kpastre
    quinta-feira, 1 de abril de 2021 19:32

Respostas

  • Tente assim.

    Se te ajudou, por gentileza, marque como resposta e util.

    Private Sub txtdiarias_Change()
    Dim tipo As Integer
    tipo = txtdiarias.Value
     If tipo < 14 Then
        txttipo = "VIAGEM"


        End If

        If tipo > 15 Then
        txttipo = "COLABORADOR NOVO"
        End If


    End Sub


    MARIANO1776

    • Marcado como Resposta kpastre segunda-feira, 5 de abril de 2021 20:33
    quinta-feira, 1 de abril de 2021 22:49

Todas as Respostas

  • Tente assim.

    Se te ajudou, por gentileza, marque como resposta e util.

    Private Sub txtdiarias_Change()
    Dim tipo As Integer
    tipo = txtdiarias.Value
     If tipo < 14 Then
        txttipo = "VIAGEM"


        End If

        If tipo > 15 Then
        txttipo = "COLABORADOR NOVO"
        End If


    End Sub


    MARIANO1776

    • Marcado como Resposta kpastre segunda-feira, 5 de abril de 2021 20:33
    quinta-feira, 1 de abril de 2021 22:49
  • Boa tarde Mariano1776! Muito obrigado, resolveu
    segunda-feira, 5 de abril de 2021 20:37