Início
![[Resolvido]Erro ao inserir códigos VBA Empty](https://2img.net/i/empty.gif)
lidianeSilva 26/3/2018, 13:33Olá pessoal! estou com uma dificuldade pois estou tentando colocar alguns códigos vba e está dando o mesmo erro sempre. Os códigos são simples, mas como sou novata no mundo access não estou sabendo encontrar o erro.
Já pesquisei aqui e em diversos fóruns e não consigo entender o erro.
Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer.
código para excluir
Em ambos dá esse mesmo erro
Já pesquisei aqui e em diversos fóruns e não consigo entender o erro.
Este erro ocorre quando um evento não pôde ser executado porque não foi possível avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], o erro ocorrerá porque espera-se que um nome de evento ou macro seja executado quando o evento acontecer.
- Código:
Private Sub Comando53_Click()
'Verifica se os campos estão preenchidos
If IsNull(NumeroProcesso.Value) Then
MsgBox "O Numero deve ser digitado"
NumeroProcesso.SetFocus
ElseIf IsNull(DataProcesso.Value) Then
MsgBox "O Campo data do processo não pode ficar em branco"
DataProcesso.SetFocus
ElseIf IsNull(Combinação78.Value) Then
MsgBox "O Campo Nome do funcionário não pode ficar em branco"
ElseIf IsNull(DataChegada.Value) Then
MsgBox "O Campo data de chegada não pode ficar em branco"
DataChegada.SetFocus
ElseIf IsNull(solicitacao.Value) Then
MsgBox "O Campo solicitação não pode ficar em branco"
solicitacao.SetFocus
ElseIf IsNull(Combinação95.Value) Then
MsgBox "O Campo solicitação não pode ficar em branco"
ElseIf IsNull(periodo.Value) Then
MsgBox "O Campo periodo não pode ficar em branco"
periodo.SetFocus
ElseIf IsNull(Combinação97.Value) Then
MsgBox "O Campo observação não pode ficar em branco"
Else
DoCmd.GoToRecord , , acNewRec
End If
código para salvar registro
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "Registro apagado", vbInformation, "Excluído"
código para excluir
Em ambos dá esse mesmo erro
Última edição por lidianeSilva em 3/4/2018, 00:42, editado 2 vez(es)
