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.
Alguma sugestão? Não temos permissão para colocar um access mais atualizado.
O campo da tabela é memorando.
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.