[Resolvido]Na esta na lista

Boa noite amigos

estou a fazer um formulario "Viaturas" em que um dos campos e uma caixa de combinação e esta limitado a uma tabela "Marcas"
pretendia que se não estivesse na lista abri-se o formulario "Marcas"
cria a nova marca nesse formulario e depois inseri-lo no formulario "viaturas"
o que eu já fiz foi

Private Sub Marca_NotInList(NewData As String, Response As Integer)

If MsgBox("Marca não criada pretende criar ?" & NewData, vbYesNo) = vbYes Then
   
   DoCmd.OpenForm "Marca", , , , acFormAdd, acDialog, NewData
   Me.Marca.Requery
       
Else
   
 Response = acDataErrContinue
 SendKeys "{ESC}"

End If

       
End Sub

Brito

Private Sub Marca_NotInList(NewData As String, Response As Integer)


Dim sql As String
If MsgBox("SeuCampo não cadastrado" & Chr(13) & Chr(13) & "Marca não criada pretende criar ? " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO SuaTabela (SeuCampo) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If

Amigo já fiz a correcção e dá erro

Brito

Aonde dá erro.

Alterou os dados a vermelho para o nome correto ?

If MsgBox("SeuCampo não cadastrado" & Chr(13) & Chr(13) & "Marca não criada pretende criar ? " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Campo") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO SuaTabela (SeuCampo) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay

Quer postar a BD para o ajudar ?

aqui vai amigo

Não veio nada ....

aqui vai

Eis

Obrigado amigo

Obrigado pelo retorno...
Estamos por aqui .....