[Resolvido]Caixa de combinação adicionar dados na tabela

Bom dia

Eu vim a criar esse tópico para tirar um duvida.

O que eu quero saber se tem com uma caixa de combinação não acoplada adicionar dados a tabela.

Ou seja tenho uma caixa de combinação com os cliente cadastrados na tabela tbl_clientes, no formulário pedidos, quando eu digitar um cliente na caixa de combinação e se o cliente não estiver cadastrado ao clicar do botão adicionar o cliente na tabela.

Você precisará de um identificador único, como o CPF por exemplo, para poder verificar:

Código:

If DCount("*", "NomeTabela", "CPF='" & Me.NomeDoCampo.Value & "'") < 1 Then
    If MsgBox("Cliente não cadastrado. Deseja castrá-lo?", vbYesNo + vbQuestion, "Atenção") = vbYes Then
        CurrentDb.Execute "INSERT INTO NomeDaTabela(Campo1, Campo2, Campo3) VALUES('" & Me.Campo1DoForm & "', '" & Me.Campo2DoForm & "', '" & Me.Campo3DoForm & "')"
    Else
        'Ação a ser tomada para o caso de não querer cadastrar o cliente
    End If
End If

Boa Tarde criquio, muito obrigado pela atenção.

Mais quando eu clico no botão aparece a mensagem "O texto que você informou não é um item da lista.".

Coloque no evento "Se não estiver na lista" e logo após essas linhas, coloque:

acResponse = acDataErrContinue

Valeu criquio agora deu certo. Muito Obrigado.

Grato pelo retorno. Só faltou colocar o Resolvido.

  ops!!