|
|
Postada em 07/02/2006 11:30 hs
Olá.
Tenho um aplicativo que roda normalmente na máquina onde está instalado o VB 5 Professional (com Windows XP Prof). O aplicativo roda tanto clicando em F5 no project como diretamente do executável. Todavia, ao rodar no cliente (sob Windows98SE), o acesso a uma das rotinas de registro de dados dá o seguinte erro: "Run-time error '3426' This action was cancelled by an associeted object".
Não sei onde pode estar o erro, já que, em casa, tanto no project como no executável, o programa roda normalmente. Abaixo, trecho do código onde é gerado o erro (no cliente):
(evento LostFocus da textbox <Valor>):
...
ElseIf cmbTipo = "Devolução serviço" Then
Devolução = InputBox("Digite abaixo a ordem de serviço. No" & Chr(13) & _
"campo <Valor>, digite a quantia que o" & Chr(13) & _
"técnico recebeu no acerto de contas.", "Devolução de serviço - parte do técnico")
While Len(Devolução) > 5
MsgBox "Você digitou " & Devolução & "!..."
Devolução = InputBox("Digite o número da Ordem de serviço devolvida.", "Devolução de serviço")
If Len(Devolução) = 0 Then Exit Sub
Wend
lblDevolvido.Caption = Devolução
Exit Sub
'Rotina do botão <Gravar>
Private Sub cmdGravar_Click()
Data1.Recordset.Update
Frame1.Enabled = False
cmdIncluir.Enabled = True
cmdAlterar.Enabled = True
cmdExcluir.Enabled = True
cmdGravar.Enabled = False
mnuClassificarDataFinal_Click
mnuClassificarDataInicial.Enabled = True
mnuClassificarDataFinal.Enabled = False
Data1.Refresh 'Grava e vai para o final do arquivo
Se alguém souber onde pode estar o bug, agradeço.
Chico.
|
|
|
|
|
|
|
|
Postada em 07/02/2006 11:45 hs
Dá pra saber em qual linha acontece o erro?? Ficaria mais fácil de saber se soubermos qual o comando q está gerando este erro...
Já aconteceu comigo só q no meu caso dava erro somente no executável e tive que improvisar um "debugger" se é q podemos chamar assim... antes de cada comando colocava um "msgbox" para saber qual em qual linha estava e qual o comando q estava dando problema.
De pronto não sei o q pode estar acontecendo... t+ |
|
|
|
Erico
|
SALVADOR
BA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/02/2006 16:32 hs
Chico, Esse valor tem centavos? se sim coloca o que pra separar eles , ou . Como está as configurações regionais do micro? Já vi esse erro parecido acontecer e a causa foi que foi colocado um texto com 40 caracteres e o campo do arquivo tava com 30. Deve ter alguma coisa errada com os text_bos associados ao adc. Alias não aconselho a acessar o banco assim para gravar.
A.Erico S.Peixoto -------------------- Analista de Sistemas
|
|
|
|
|
|
Postada em 07/02/2006 17:51 hs
Ghost, não sei qual a linha que dá o tilt. Como falei, só dá pau quando roda no cliente, onde não há VB instalado. Em casa, rodando o .exe ou direto do project, funciona direitinho.
Erico, o campo de valor está compatível com o registro na base de dados (tamanho). Agora, vc me chamou a atenção para um detalhe: as configurações regionais do micro no cliente (o HD foi formatado recentemente). Vou dar uma olhada lá. Qq coisa retorno. Quanto ao data, estava com preguiça para programar via D.A.O. (não tenho ADO. Meu VB é a versão 5. Ainda não troquei para a 6, pois a minha é uma cópia legal (com NF e tudo mais). E, embora tenha tentado várias vezes, não consegui ainda adquirir uma licença para o VB6 (não tenho grana para comprar uma licença do .NET).
|
|
|
|
|
|
Postada em 08/02/2006 06:21 hs
O erro acontece no evento LostFocus do textbox e também no click do Botão cmdGravar??? |
|
|
|
|
|
Postada em 08/02/2006 06:26 hs
Olá ghost. O erro só aparece quando o botão <Gravar> é acionado. Quando a textbox de valor perde o foco, o label lblValorLíquido é automaticamente preenchido. Somente na gravação dá o crepe... |
|
|
|
