como faço

Question

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 

Answer 1

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.

Answer 2

consegui resolver 

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