Gostaria que o formulário solicite o cadastro automático caso não conste o cnpj na tabela empresa Copiei a rotina abaixo mas ele pede para cadastrar a empresa MESMO ela já estando cadastrada na tabela empresa. Imagino que deva ter um If (CNPJ) = false Como faço?? De novo agradeço a ajuda Response = acDataErrContinue ' Inibe msg padrão do Access. If MsgBox("Empresa Não cadastrada: '" & NewData & "'" & vbCrLf _ & "Deseja Cadastrar?", 32 + vbYesNo, " Delivery II") = 6 Then DoCmd.OpenForm "nome do formulário", , , , acFormAdd, _ acDialog, NewData Response = acDataErrAdded Else Response = acDataErrContinue End If