RUN TIME ERROR 13 SO EM UM PC

ROBSON2011 21/12/2011 22:45:52
#391811
Ola pessoal,
gostaria de saber porque quando vou executar um programa feito em vb6 em outro computador que nao seja o que tem o vb instalado , esse erro run time error 13 e fecha o programa , alias nem abre

obs os arquivos mdb sao no access 97 e o pc que tento usar o sistema é office2000 , teria haver ??

obrigado desde ja
LUIZCOMINO 22/12/2011 08:32:59
#391817
Amigo isso parece problemas de dll ou ocx, copie todas as ocx junto ao exe e teste novamente, quando enviar email, de uma pesquisada aqui no fórum tem alguns exemplos de como enviar email.
MORDENTI 22/12/2011 08:49:59
#391818
Bom dia,


Na verdade erro 13 é tipo mysmatch posta o teu load para agente over o que pode estar acontecendo.


Abraços,
ROBSON2011 22/12/2011 09:54:48
#391820
oi gente obrigado a todos .. segue o form load do formulario principal


tid = ObtemEndMAC

tpw = alock1.Password
alock1.Password = tpw & tid

If alock1.LastRunDate > Now Then

MsgBox [Ô]Ocorreu uma alteração na data do sistema operacional [Ô] _
& vbCrLf & [Ô] O programa será encerrado.[Ô], vbOKOnly + vbCritical, [Ô]Erro de sistema[Ô]

End
End If

If Not alock1.RegisteredUser Then
Me.Caption = [Ô]SISMEGA 1.0 VERSÃO PARA TESTAR[Ô]




If (alock1.UsedDays > 30) Then
MsgBox [Ô]Você já executou a versão trial ..[Ô] & alock1.UsedDays & [Ô] Dias ![Ô]


MsgBox alock1.SoftwareCode
Form13.Show vbModal
Else

[ô] MsgBox [Ô]Você já executou a versão Trial ..[Ô] & alock1.Counter & [Ô] Vezes ![Ô]
[ô] End
End If

[ô] End
Else
Me.Caption = [Ô]PROGRAMA PARA MEGASENA SISMEGA 1.0 VERSÃO REGISTRADA [Ô]
Command1.Visible = False
[ô]lblaviso.Visible = False
[ô] Form13.Show
[ô]Form13.Show.vbModal
End If
ROBSON2011 22/12/2011 10:09:47
#391822
obrigado vou tentar aqui ! tenha um otimo dia
ROBSON2011 22/12/2011 10:34:41
#391823
pessoal o erro ta acontecendo entre essas 2 linhas ....

If (alock1.UsedDays > 30) Then
MsgBox [Ô]Você já executou a versão trial ..[Ô] & alock1.UsedDays & [Ô] Dias ![Ô]

eu botei um depurador e o sistema rodou ate antes dessas linhas


o que pode esta acontecendo ???

obrigado desde ja a todos
MARCELO.TREZE 22/12/2011 10:46:39
#391826 Resposta escolhida
faça um teste e veja se alock1.UsedDays esytá retornando algum valor

antes da linha que ocorre o erro coloque um msgbox

MsgBox alock1.UsedDays

e veja se este está retorando valor, se der error, verifique se useddays esta escrito corretamente
MARCELO.TREZE 22/12/2011 11:04:47
#391828
bom alock deve ser uma ocx de segurança que está usando verifique se a mesma foi registrada corretamente, se não registre-a manualmente
ROBSON2011 22/12/2011 11:06:37
#391829
Marcelo , fiz isso porem o erro esta acontecendo justamente nela na alock1.usedDays

nao chega a executar o msgbox da o erro direto

obrigado to tentando aqui, a sintaxe esta correta
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar