Se não estiver na lista

Isto pode não ser uma novidade, mas não encontrei nenhum exmplo que faça isto;
adiciona um novo nome na tabela "geralmente a de cadastro"sem presisar digitar no form de cadastro.


Formato tradicionar

Private Sub cmbNome_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue  ' Inibe msg padrão do Access.
   If MsgBox("Nome não cadastrado:  '" & NewData & "'" & vbCrLf _
       & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
       DoCmd.OpenForm "SeuForm", , , , acFormAdd, _
          acDialog, NewData
       ' A execução deste código fica interrompida aqui até o
       ' fechamento do formulário SeuFormCadastro.
       
       Response = acDataErrAdded
   Else
       Response = acDataErrContinue
   End If
   
End Sub


Um jeito que fiz sem ter que digitar no form de cadastro novamente


Private Sub cmbNome_NotInList(NewData As String, Response As Integer)
' "Scandinavo" 01/09/10
Response = acDataErrContinue  ' Inibe msg padrão do Access.
   If MsgBox("Nome não cadastrado:  '" & NewData & "'" & vbCrLf _
       & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then

         
          DoCmd.OpenForm "seuform", , , , acFormAdd, acHidden
         
          Forms!seuform.seucampo = NewData 'pega o arquivo
     
          DoCmd.Close acForm, "seuform"

       Response = acDataErrAdded
   Else
       Response = acDataErrContinue
   End If

End Sub

Olá, como o post não tem nenhum bd como exemplo, transferi-o para essa seção.

Eu estou criando uma aplicação na qual fiz algo semelhante, mas usando DLookUp no evento "Após atualizar" do campo:

Private Sub cboPaís_AfterUpdate()

If IsNull(DLookup("NomePaís", "tblPaíses", "NomePaís='" & Me!cboPaís & "'")) Then

If MsgBox("Não existe nenhum país com o nome """ & Me.cboPaís & """ cadastrado no sistema." & vbCrLf & "Verifique se digitou o nome corretamente ou clique em ""Sim"" para cadastrá-lo agora." & vbCrLf & vbCrLf & "Deseja cadastrar o país """ & Me.cboPaís & """ no sistema?", vbYesNo, "País """ & Me.cboPaís & """ inexistente") = vbYes Then

Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("tblPaíses", dbOpenTable)
RS.AddNew

RS("NomePaís") = Me.cboPaís

RS.Update
RS.Close
Set RS = Nothing
Set DB = Nothing

Else

Me.cboPaís = Null
Me.txtNome.SetFocus
Me.cboPaís.SetFocus

End If

End If

End Sub

e o nome digitado na combo permanece lá para que seja salvo na tabela tblClientes normalmente.

Legal
Agora ja temos mais uma opção.

Eu uso este e de tanto funcionar no perfeito, nem penso em trocá-lo

Dim sql As String
If MsgBox("SeuCampo não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar este Campo " & 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


Coloque no evento: Se não estiver na lista
No Limitar a uma lista coloque "Sim"