[Resolvido]Combo com mensagem

Boa tarde pessoal!
Tenho um combo num sub form que busca no cadastro de produtos o nome do produto para elaboração de uma proposta.
Porém, gostaria que quando o produto de busca não estiver cadastrado no cadastro de produto, informasse como produto não cadastrado e abrisse o formulário de produtos para efetuar o cadastro e inserir na proposta.

Banco de dados em anexo

Att

Fabiano

Boa noite.
Na sua Combo insira este código no Evento "Se não estiver na lista":

Código:


Response = acDataErrContinue  ' Inibe msg padrão do Access.

  If MsgBox("Produto não cadastrado:  '" & NewData & "'" & vbCrLf & "Deseja Cadastrar?", 32 + vbYesNo, "Informando") = 6 Then

  DoCmd.OpenForm "Frm_Produtos", , , , acFormAdd, acDialog, NewData

  ' A execução deste código fica interrompida aqui até o fechamento do formulário Cadastro de Produtos.

        SetorEmpresa = UCase(NewData) ' Converte o texto para maiúsculas.

        Response = acDataErrAdded

    Else

        Response = acDataErrContinue

    End If



No seu formulário de Cadastro de Produto, insira ente código:

Código:


Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
        Me!nome_produto = UCase(Me.OpenArgs) 'nome_produto é o nome da caixa de texto do produto
    End If
End Sub



Não esqueça de alterar a Propriedade da Combo em "Limitar a uma lista" para Sim
Adapte ao seu sistema.

No aguardo.

Claudio!

Perfeito!

Muito obrigado

Att

Fabiano

Que bom que resolveu.
o fórum agradece o retorno.
Boa sorte!