FUN?ÃO RIGHT$ DANDO ERRO DO NADA

WEBIER 16/11/2016 13:31:27
#468957
Tenho um sistema em VB6/SQL

Hj do nada ao executar o projeto deu erro em encontrar o caminho, apontando para o comando Right.

Revisei toda a linha e nao foi mudada nada nesse modulo.
O caminho está correto...

Public Sub Main()
ChDir App.path                         [ô]Muda o diretório padrão para onde está o sistema
appPathApp = App.path                  [ô]Armazena o diretório do sistema
NormalizePath appPathApp               [ô]Normaliza o diretório
End Sub


Public Sub NormalizePath(ByRef FullPath As String)
   If Right$(FullPath, 1) <> [Ô]\[Ô] Then FullPath = FullPath & [Ô]\[Ô]
End Sub
JABA 16/11/2016 13:59:49
#468958 Resposta escolhida
Tente assim:

Public Sub NormalizePath(ByRef FullPath As String)
   If [txt-color=#e80000]VBA.[/txt-color]Right$(FullPath, 1) <> [Ô]\[Ô] Then FullPath = FullPath & [Ô]\[Ô]
End Sub
WEBIER 16/11/2016 15:55:45
#468964
Amigo, deu certo, porem apareceu erro em outro lugar mencionando acima

Porque antes não precisava colocar esse [Ô]vba[Ô] antes? e do nada agora tem q colocar... esse erro no date ai como resolvo ?
JABA 16/11/2016 16:22:06
#468967
Essas funções fazem parte da biblioteca do VBA, e as vezes acontece de dar conflito com outras bibliotecas no seu projeto. No segundo problema, tente assim:

VBA.Format([txt-color=#e80000]VBA[/txt-color].Date, [Ô][Ô]dd/mm/yy[Ô])
WEBIER 16/11/2016 16:35:34
#468968
Obg, JABA

Deu certo!
Tópico encerrado , respostas não são mais permitidas
Voltar