Argumento inválido

xoxe 19/4/2016, 16:35

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº1

Argumento inválido

Mensagem xoxe 19/4/2016, 16:35

Boa tarde!

Criei um arquivo no meu trabalho e em alguns momentos o access aparece a mensagem "Argumento inválido" ao executar a consulta de acréscimo.
Testei no access 2013 e não ocorreu nenhum problema, apenas no Access 2000.
Verifiquei em consulta no Google uma possível solução https://support.microsoft.com/pt-br/kb/302495 mas o setor de tecnologia não tem permissão para essa atualização.

Código:: Private Sub ConfirmarLancamento_Click() On Error GoTo Err_ConfirmarLancamento_Click Dim stDocName As String If IsNull(Chavetxt) = True Or IsNull(Servicotxt) = True Or IsNull(DataLigacaotxt) = True Or IsNull(HoraLigacaotxt) = True Then MsgBox "Preencha todos os campos", vbInformation, "Campos vazios" Exit Sub End If If BotaoEtica = True Then stDocName = "AcresEtica" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoCordialidade = True Then stDocName = "AcresCordialidade" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoInteresse = True Then stDocName = "AcresInteresse" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoDisponibilidade = True Then stDocName = "AcresDisponibilidade" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoProntidao = True Then stDocName = "AcresProntidao" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoObjetividade = True Then stDocName = "AcresObjetividade" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoConducao = True Then stDocName = "AcresConducao" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoPerfilVocal = True Then stDocName = "AcresPerfilVocal" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoLinguagem = True Then stDocName = "AcresLinguagem" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoIdentificacao = True Then stDocName = "AcresIdentificacao" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoPersonalizacao = True Then stDocName = "AcresPersonalizacao" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoSeguranca = True Then stDocName = "AcresSeguranca" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoPausas = True Then stDocName = "AcresPausas" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoSondagem = True Then stDocName = "AcresSondagem" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoAbordagem = True Then stDocName = "AcresAbordagem" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoArgumentacao = True Then stDocName = "AcresArgumentacao" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoInfCorreta = True Then stDocName = "AcresInfCorretas" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoInfCompletas = True Then stDocName = "AcresInfCompletas" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoRegistros = True Then stDocName = "AcresRegistro" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoProcedimentos = True Then stDocName = "AcresProcedimentos" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoEquipamentos = True Then stDocName = "AcresEquipamentos" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoPositiva = True Then stDocName = "AcresPositiva" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If If BotaoGramatica = True Then stDocName = "AcresGramatica" DoCmd.OpenQuery stDocName, acNormal, acEdit refresh End If Exit_ConfirmarLancamento_Click: Exit Sub Err_ConfirmarLancamento_Click: MsgBox Err.Description Resume Exit_ConfirmarLancamento_Click End Sub

Alguma sugestão? Não temos permissão para colocar um access mais atualizado.

O campo da tabela é memorando.

**Alvaro Teixeira** 19/4/2016, 18:24

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº2

Re: Argumento inválido

Mensagem Alvaro Teixeira 19/4/2016, 18:24

Olá Jorge Candido,
O problema é da versão 2000 que tem um Update. Segundo a indicação sugere a instalação do Microsoft Office 2000 SR-1/SR-1a.
O departamento de TI deveria querer o parque atualizado, pois é uma versão antiga que já nem tem suporte (supostamente).
Na minha opinião não vejo razão de alterar o seu código para funcionar numa versão obsoleta.
Alternativa, instalar Runtime versão superior.
Abraço e boa sorte com os colegas de TI

xoxe 19/4/2016, 19:21

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº3

Re: Argumento inválido

Mensagem xoxe 19/4/2016, 19:21

Mas existe alguma alteração no código para não ocorrer esse argumento inválido?

**Alvaro Teixeira** 19/4/2016, 21:55

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº4

Re: Argumento inválido

Mensagem Alvaro Teixeira 19/4/2016, 21:55

Olá, sabe onde está a ocorrer o erro?
Se não tiver no pc que dá erro o Access, tera que colocar algumas msgbox numeradas no código numa versão para testar.
Abraço

xoxe 19/4/2016, 22:04

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº5

Re: Argumento inválido

Mensagem xoxe 19/4/2016, 22:04

Me ajude como fazer isso?

Imagino onde seja o erro..

**Alvaro Teixeira** 26/4/2016, 15:01

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº6

Re: Argumento inválido

Mensagem Alvaro Teixeira 26/4/2016, 15:01

Olá, não tem nada de especial fazer a caixas de mensagem numeradas, veja:

Código:: Private Sub ConfirmarLancamento_Click() On Error GoTo Err_ConfirmarLancamento_Click Dim stDocName As String MsgBox "1", vbCritical, "ConfirmarLancamento_Click" If IsNull(Chavetxt) = True Or IsNull(Servicotxt) = True Or IsNull(DataLigacaotxt) = True Or IsNull(HoraLigacaotxt) = True Then MsgBox "Preencha todos os campos", vbInformation, "Campos vazios" Exit Sub MsgBox "2", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "3", vbCritical, "ConfirmarLancamento_Click" If BotaoEtica = True Then stDocName = "AcresEtica" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "4", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "5", vbCritical, "ConfirmarLancamento_Click" If BotaoCordialidade = True Then stDocName = "AcresCordialidade" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "6", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "7", vbCritical, "ConfirmarLancamento_Click" If BotaoInteresse = True Then stDocName = "AcresInteresse" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "8", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "9", vbCritical, "ConfirmarLancamento_Click" If BotaoDisponibilidade = True Then stDocName = "AcresDisponibilidade" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "10", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "11", vbCritical, "ConfirmarLancamento_Click" If BotaoProntidao = True Then stDocName = "AcresProntidao" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "12", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "13", vbCritical, "ConfirmarLancamento_Click" If BotaoObjetividade = True Then stDocName = "AcresObjetividade" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "14", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "15", vbCritical, "ConfirmarLancamento_Click" If BotaoConducao = True Then stDocName = "AcresConducao" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "16", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "17", vbCritical, "ConfirmarLancamento_Click" If BotaoPerfilVocal = True Then stDocName = "AcresPerfilVocal" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "18", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "19", vbCritical, "ConfirmarLancamento_Click" If BotaoLinguagem = True Then stDocName = "AcresLinguagem" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "20", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "21", vbCritical, "ConfirmarLancamento_Click" If BotaoIdentificacao = True Then stDocName = "AcresIdentificacao" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "22", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "23", vbCritical, "ConfirmarLancamento_Click" If BotaoPersonalizacao = True Then stDocName = "AcresPersonalizacao" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "24", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "25", vbCritical, "ConfirmarLancamento_Click" If BotaoSeguranca = True Then stDocName = "AcresSeguranca" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "26", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "27", vbCritical, "ConfirmarLancamento_Click" If BotaoPausas = True Then stDocName = "AcresPausas" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "28", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "29", vbCritical, "ConfirmarLancamento_Click" If BotaoSondagem = True Then stDocName = "AcresSondagem" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "30", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "31", vbCritical, "ConfirmarLancamento_Click" If BotaoAbordagem = True Then stDocName = "AcresAbordagem" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "32", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "33", vbCritical, "ConfirmarLancamento_Click" If BotaoArgumentacao = True Then stDocName = "AcresArgumentacao" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "34", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "35", vbCritical, "ConfirmarLancamento_Click" If BotaoInfCorreta = True Then stDocName = "AcresInfCorretas" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "36", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "37", vbCritical, "ConfirmarLancamento_Click" If BotaoInfCompletas = True Then stDocName = "AcresInfCompletas" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "38", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "39", vbCritical, "ConfirmarLancamento_Click" If BotaoRegistros = True Then stDocName = "AcresRegistro" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "40", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "41", vbCritical, "ConfirmarLancamento_Click" If BotaoProcedimentos = True Then stDocName = "AcresProcedimentos" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "42", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "43", vbCritical, "ConfirmarLancamento_Click" If BotaoEquipamentos = True Then stDocName = "AcresEquipamentos" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "44", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "45", vbCritical, "ConfirmarLancamento_Click" If BotaoPositiva = True Then stDocName = "AcresPositiva" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "46", vbCritical, "ConfirmarLancamento_Click" End If MsgBox "47", vbCritical, "ConfirmarLancamento_Click" If BotaoGramatica = True Then stDocName = "AcresGramatica" DoCmd.OpenQuery stDocName, acNormal, acEdit Refresh MsgBox "48", vbCritical, "ConfirmarLancamento_Click" End If Exit_ConfirmarLancamento_Click: Exit Sub Err_ConfirmarLancamento_Click: MsgBox Err.Number & " - " & Err.Description, vbCritical, "Erro" Resume Exit_ConfirmarLancamento_Click End Sub

Crie uma versão com o código acima e teste na maquina, deverá aparecer caixas de mensagem de 1 até 48.
Teste
Abraço

xoxe 7/5/2016, 12:44

xoxe

xoxe: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 241
Registrado : 27/03/2016

Mensagem nº7

Re: Argumento inválido

Mensagem xoxe 7/5/2016, 12:44

Tem momentos que ocorre a mensagem argumento inválido, momentos que vai de boas!
Realmente é versão do Access que acontece isso, pois no Runtime 2013 vai tranquilamente!!

Porém ainda gostaria de uma alternativa para o uso do access 2000 e não acontecesse essa situação..

.................................................................................

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja AQUI.
Não esqueça de clicar no Joinha Argumento inválido 001_1810

para agradecer a dica que solucionou seu problema.

**Alvaro Teixeira** 8/5/2016, 09:25

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº8

Re: Argumento inválido

Mensagem Alvaro Teixeira 8/5/2016, 09:25

Olá é necessário saber qual o comando o acção que o seu programa está a fazer para dar o erro "argumento inválido".
Você também conhece o programa e deve ter mais ou menos uma ideia em que parte é que está a dar o erro.

Efetuou a minha sugestão, testou e deu o erro? entre que numeros?

Abraço

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº9

Re: Argumento inválido

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

Argumento inválido

Argumento inválido

Re: Argumento inválido

Re: Argumento inválido

Re: Argumento inválido

Re: Argumento inválido

Re: Argumento inválido

Re: Argumento inválido

"Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos." - Albert Einstein

Re: Argumento inválido

Re: Argumento inválido

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada