[Resolvido]Caixa de combinação: se não estiver na lista, adicionar à tabela automaticamente sem confirmar.

Boa noite;

No evento Se não estiver na lista coloque o comando abaixo, lembre-se de alterar o nome da tabela e do campo, dessa forma não pede confirmação caso queira uma mensagem de confirmação basta retirar o apóstrofo. Aguardamos.!

Código:

Dim sql As String
 'If MsgBox("Nâo cadastrado, deseja cadastrar  " & UCase(NewData) & " agora?", vbYesNo, "Atenção") = vbYes Then
 DoCmd.SetWarnings False
  sql = "INSERT INTO Tabela1 (nome) VALUES ('" & NewData & "')"
  DoCmd.RunSQL sql
  DoCmd.SetWarnings True
  Response = acDataErrAdded
 'Else
  'Response = acDataErrDisplay
 'End If

Obrigado pela vossa valiosa atenção, JPaulo!

Eu li o tópico passado por você.
Mas, pelo que entendi, aquele código chama um novo formulário para que o dado seja inserido na tabela, não é isso que eu quero. Eu quero um código que insira automaticamente na tabela o dado digitado na ComboBox, se esse dado não estiver na lista, ou seja, na tabela que alimenta a ComboBox.

Agora me deparei com mais um desafio: além de fazer essa inserção automática na tabela, preciso que o dado novo respeite o tamanho do campo daquele determinado campo da tabela. Exemplo: o campo "ServMarcaModelo" possui o tamanho de 50. Quero que se passar desse tamanho o Acess emita um aviso e não insira esse dado na tabela.

Enfim, o negócio está complicado! Ufaaaa! rsrsrsrsrs...

Veja se entende o exemplo;

Download

Tente isso

Código:


Private Sub ServMarcaModelo_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
    rs.FindFirst "ServMarcaModelo = '" & (Me![ServMarcaModelo]) & "'"
    
    If (Len(Me.ServMarcaModelo) > 50) Then
        MsgBox "¡Texto que é muito longo, digite 50 caracteres! ", vbInformation + vbOKOnly, "Mensagem"
        KeyAscii = 0
        Me.ServMarcaModelo = Null
        Me.ServMarcaModelo.SetFocus
        Exit Sub
    End If
    
    If rs.NoMatch Then
          DoCmd.SetWarnings False
          sql = "INSERT INTO TabMarcaModelo (ServMarcaModelo) VALUES ('" & Me.ServMarcaModelo & "')"
          DoCmd.RunSQL sql
          DoCmd.SetWarnings True
    End If
End Sub


Origem da combobox:
SELECT TabMarcaModelo.ServMarcaModelo FROM TabMarcaModelo;

Espero ter ajudado
Saludos desde Bolivia

Você não pode ter a tabela como origem da combo.
Tem de ser SQL (consulta)

O código do amigo FranklinJSP dá o erro "O TEXTO QUE VOCÊ INFORMOU NÃO É UM ITEM DA LISTA".

Arquivo adjunto
Da uma olhada, funciona bem!!!
dropbox.com/s/kv8meigftz9m7bk/Teste.rar?dl=1
Copiar link e colar no navegador

Entre no link "102 Códigos VBA Gratuitos..." da minha assinatura e veja o código "Deteta e Mostra Registros Duplicados"

Também deve usar a busca do forum, pela palavra Duplicidade.

Da uma olhada

https://www.maximoaccess.com/t32352-resolvidose-nao-estiver-na-lista

Que bom!!! Funcionou!!!

   

Apenas uma pequena correção do PASSO 2:

Onde se lê:
Crie uma tabela, que servirá para alimentar a combobox, com dois campos: CodMarcaModelo (tipo Numeração Automática, com chave primária) e MarcaModelo (tipo Texto, tamanho do campo 50). Nomeie-a como "TabMarcaModelo".

Leia-se:
Crie uma tabela, que servirá para alimentar a combobox, com dois campos: CodMarcaModelo (tipo Numeração Automática) e MarcaModelo (tipo Texto, tamanho do campo 50, com chave primária). Nomeie-a como "TabMarcaModelo".

Na propriedade do campo "MarcaModelo" da tabela "TabMarcaModelo", na aba Geral, deixe assim:
Requerido: Não
Permitir comprimento zero: Sim
Indexado: Sim (Duplicação não autorizada)
Compactação Unicode: Sim
Modo IME: Sem Controle
Modo de frase IME: Nenhuma

Se não fizer isso, a combobox irá apresentar itens duplicados na sua lista e não gravará novos registros na tabela TabMarcaModelo.

Abraços.