[Resolvido]Como incluir registros em uma caixa de Combinação num formulário?

Prezados colegas,
Estou construindo um formulário onde há uma caixa de Combinação com nomes de instituições de ensino, que estão listadas numa tabela. Como faço para, caso a instituição de ensino não esteja presente na combo, ela seja incluída. Peguei o código abaixo mas não dá certo, pois dá um erro de identificação no formulário criado. Não sei se é pq não compreendi bem as relações entre o formulário a ser criado e a tabela já criada (a minha). Vejam o código abaixo:
Coloque no evento "se nao estiver na lista" o codigo abaixo:

Private Sub NOMEDOCOMBO_NotInList(NewData As String, Response As Integer)
On Error GoTo NOMEDOCOMBO_NotInList_Err

DoCmd.SetWarnings False ' Desativa avisos do Access
If msgbox("A NOMEDOCOMBO " & UCase(NewData) & " não existe. Cadastrar ?", vbQuestion + vbYesNo, "Cadastramento...") = vbNo Then
Response = acDataErrContinue ' Volta ao controle
GoTo NOMEDOCOMBO_NotInList_End
End If
DoCmd.OpenForm "NOMEDEUMFORMULARIO", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre o form para incluir
Response = acDataErrAdded ' <<= Faz a inclusão na combo e atualiza

NOMEDOCOMBO_NotInList_End:
DoCmd.SetWarnings True ' Ativa os avisos do Access
Me!NOMEDOCOMBO.SetFocus ' Volta o foco
Exit Sub

NOMEDOCOMBO_NotInList_Err:
msgbox Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
Resume NOMEDOCOMBO_NotInList_End

End Sub

- Depois faça um formulario neste caso "NOMEDEUMFORMULARIO" e la coloque o campo com o nome da combo, pode ser uma caixa de texto.
- Depois coloque no evento No cronometro assim:
DoCmd.Close

- Depois no evento intervalo no cronometro coloque : 1 (aqui significa que ele abrira 1 segundo e posteriormente fechara automaticamente.)

- na origem do registro do formulario "NOMEDEUMFORMULARIO" faça uma consulta onde esta apenas o campo que a combo pede, pronto é isso.

PS este codigo peguei com outra pessoa que não sabe o autor, se for de autoria de alguem se pronuncie que colocarei os créditos.

Boa noite, teste com este codigo e lembre-se de marcar Limitar a uma lista

Código:

Private Sub SUACOMBO_NotInList(NewData As String, Response As Integer)
Dim sql As String
DoCmd.SetWarnings False
If MsgBox("Item não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar" & UCase(NewData) & "agora?",
vbYesNo, "Cadastro") = vbYes Then
sql = "INSERT INTO SUATABELA (SEUCAMPONATABELA) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub

Veja o form Cliente e tente digitar algo que nao esta na lsta

Cumprimentos.

Olá Fernando, não consegui rodar seu código pois dá erro no If... alterei para:
If MsgBox("Item não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar" & UCase(NewData) & "agora?",
vbQuestion + vbYesNo, "Cadastro") = vbYes Then

mas mesmo assim ainda há erro. Você consegue indentificar o porquê?
Ahh, e obrigado pela rápida resposta.

Valeu pelo código Piloto, funciona certinho, mas eu queria algo mais simplificado, como a inclusão automática na tabela sem que eu tenha que fazer essa inclusão...tipo após a mensagem perguntando se quer incluir, se clicar em sim já alimenta automaticamente a tabela. Vc saberia me dizer como?

O Codigo do Fernando creio que é o que necessita, aguarde a resposta dele.

Cumprimentos.

jfbsantana boa noite..

Fiz esse exemplo usando o codigo que passei, de uma analisada nele.

Qualquer coisa poste seu bd para darmos uma olhada.

Código:

Private Sub Nome_NotInList(NewData As String, Response As Integer)
Dim SQL As String

 If MsgBox("Nome não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar o Nome " & UCase(NewData) & "agora?", vbYesNo, "Cadastro") = vbYes Then
    SQL = "INSERT INTO tblexemplo (Nome) VALUES ('" & NewData & "')"
    DoCmd.SetWarnings False
    DoCmd.RunSQL SQL
    Response = acDataErrAdded
    Else
    Response = acDataErrDisplay
    End If
End Sub


Valeu Fernando!Resolvido!

Não tinha erro no meu código, que copiei do seu. Não estava dando certo, mas foi só mudar o nome da tabela e do campo na tabela para um nome não composto e deu certo! Vai entender!

Muito obrigado pela colaboração!

Legal Fábio,que bom que deu tudo certo.

Sendo assim não esqueça de marcar o tópico como resolvido.

Agradecemos seu retorno.

Esqueceste de marcar como resolvido, desta vez eu coloco.

Bela participação Fernando.

Abraços.

Valeu Piloto e Fernando! Dúvidas no Fórum e no Access sanadas!

Obrigado Piloto, não se compara ao conhecimento de vc's mas estamos ai

aprendendo cada vez mais e ajudando quando possivel.

O Fórum agradece o Retorno.

amigo o outro exemplo que me indicastes estava a dar erro

tentei resolver e fiz isto

queria que desses uma vista de olhos e me desses a tua opinião

Não estou a entender Brito, de que exemplo estás a falar?
O Assunto tem haver com este tópico?

Cumprimentos.

Amigo foi engano essa mensagem não era para ti

Uma pergunta... o que voce falou na mensagem acima sobre o outro exemplo e tal...
O assunto é relacionado com este tópico ou não?

Cumprimentos.

sim o exempço que falei e este

Private Sub Tipo_Material_NotInList(NewData As String, Response As Integer)
Dim SQL As String, X As Integer

X = MsgBox("Esse Tipo de Material não existe. Deseja acrescentar?", vbYesNo)
If X = vbYes Then
SQL = "Insert Into Tipo Material([Nome]) values ('" & NewData & "')"
DoCmd.RunSQL SQL
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If

End Sub

e que o outro estava a dar erro e eu perguntei se podia corrigir por este

Teste com este, se funcionar bem, caso não poste o teu exemplo.

Cumprimentos.