[Resolvido]Atualizar form

Bom dia,
pesquisei dentro do forum e encontrei varios assuntos porem nenhum com que eu conseguisse aplicar diretamente.

A dúvida é a seguinte:

no meu form principal (frmPrincipalCad_defeitos) tenho um caixa de listagem (CxModelo) que busca modelos de outra tabela (modelos). Neste form principal eu tenho um botao que chama um form para cadastrar um novo modelo (frmCad_mod).

Gostaria de saber como faço para atualizar essa caixa de listagem (CxModelo) automaticamente assim que eu adc um novo modelo sem precisar abrir e fechar o form principal.

Ola  veja ai esta função não é de minha autoria foi retirado da qui do forum.

Private Sub Combinação53_NotInList(NewData As String, Response As Integer)
'Com esta função não ha a necessidade de abrir o frm de cadastro.
'porque ja inseri diretamente na tabela.

Dim sql As String
If MsgBox("Defeito não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar.. " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Defeitos") = vbYes Then
DoCmd.SetWarnings False
sql = "INSERT INTO tab_defeitos (defeitos) VALUES ('" & NewData & "')"
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Response = acDataErrAdded
Else
Response = acDataErrDisplay
End If
End Sub

Muito obrigado mano por essa ajuda .. ficou muito bom e valeo por dar um up no campo de porcentagem kkk

Valeu pelo retorno.

Aquela sua conta acho que estava errada kkk
Lembrando dependendo de como deixar o formato do campo é vezes 100.

Sim, a maneira que você fez ficou bem melhor mesmo.