- 17 Nov 2015 às 20:28
#5138
baixei o modelo de cadastro com banco em Access e comecei a inserir alguns campos porém me deparei com o erro:
"Erro em tempo de execução '94'. Uso de Null inválido."
Logo pensei que esse erro era tinha ocorrido depois que eu inseri alguns campos então comecei a procurar, quando preenchi os campos manualmente no Access percebi que tudo funcionou normalmente, porém esses campo não são obrigatórios e podem sim ficar vazios.
Como faço pro VBA não informar esse erro quando o campo da tabela estiver vazio?
Segue anexo com a planilha e a base(com um campo vazio) em anexo.
O problema ocorre nesta parte do código:
If Not IsNull(.Fields(0)) Then
Me.txtCodigoFornecedor.Value = .Fields(0)
Me.txtNomeEmpresa.Text = .Fields(1)
Me.txtNomeContato.Value = .Fields(2)
Me.txtCargoContato.Value = .Fields(3)
Me.txtEndereco.Value = .Fields(4)
Me.txtCidade.Value = .Fields(5)
Me.txtRegiao.Value = .Fields(6)
Me.txtCEP.Value = .Fields(7)
Me.txtPais.Value = .Fields(8)
Me.txtTelefone.Value = .Fields(9)
Me.txtFax.Value = .Fields(10)
Me.txtHomePage.Value = .Fields(11)
End If
"Erro em tempo de execução '94'. Uso de Null inválido."
Logo pensei que esse erro era tinha ocorrido depois que eu inseri alguns campos então comecei a procurar, quando preenchi os campos manualmente no Access percebi que tudo funcionou normalmente, porém esses campo não são obrigatórios e podem sim ficar vazios.
Como faço pro VBA não informar esse erro quando o campo da tabela estiver vazio?
Segue anexo com a planilha e a base(com um campo vazio) em anexo.
O problema ocorre nesta parte do código:
If Not IsNull(.Fields(0)) Then
Me.txtCodigoFornecedor.Value = .Fields(0)
Me.txtNomeEmpresa.Text = .Fields(1)
Me.txtNomeContato.Value = .Fields(2)
Me.txtCargoContato.Value = .Fields(3)
Me.txtEndereco.Value = .Fields(4)
Me.txtCidade.Value = .Fields(5)
Me.txtRegiao.Value = .Fields(6)
Me.txtCEP.Value = .Fields(7)
Me.txtPais.Value = .Fields(8)
Me.txtTelefone.Value = .Fields(9)
Me.txtFax.Value = .Fields(10)
Me.txtHomePage.Value = .Fields(11)
End If
Você não está autorizado a ver ou baixar esse anexo.
