none
como faço RRS feed

  • Pergunta

  • eu tenho esse codigo:

      Set Area = DBEngine.CreateWorkspace("NewWordspcase", "Admin", "")
        Set Banco = OpenDatabase(App.Path & "\central.mdb")
        Set VVerifica = Banco.OpenRecordset("Dados123", dbOpenTable)

    If VVerifica.RecordCount <> 0 Then
    If VVerifica![VALOR] Then vvvalor = "" Else vvvalor = VVerifica![VALOR]


    soma = vvvalor 
    Label1.Caption = soma
    End If

    End If

    End Sub

     e eu queria que no label1 quando VVerifica![Valor] estiver vazio (banco de dados ) apresente o numero 0, porem o" If VVerifica![VALOR] Then " apresenta uma mensagem que nao ha arquivos, e eu queria que ele mostrasse o 0.

    OBS ja fiz tudo que podia imaginar, se alguem tiver uma luz, PFV ajude 

    • Editado HELPMEÉ sexta-feira, 30 de junho de 2017 13:21
    sexta-feira, 30 de junho de 2017 13:19

Respostas

Todas as Respostas

  • Boa tarde, HELPMEÉ<abbr class="affil"></abbr>.

    Tudo bem com você?

    Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    sexta-feira, 30 de junho de 2017 13:35
    Moderador
  • consegui resolver 

    If VVerifica.RecordCount <> 0 Then  vvvalor = "0"

    • Marcado como Resposta HELPMEÉ sexta-feira, 30 de junho de 2017 14:02
    sexta-feira, 30 de junho de 2017 14:02