[Resolvido]Como cadastrar sem precisar abrir outra tela

Boa Noite,

Graça ao usuário Giberlanio deste fórum aprendi a cadastrar um item sem precisar ir ao Menu e depois entrar em "Cadastro Ramo de Atividade".

Mas gostaria de saber se é possível digitar direto sem precisar abrir um tela e depois ter que fechar ela.

A sequência do programa ficou assim:

1) Digito um item que não existe.
O programa pergunta se deseja cadastrar um novo item Varejo? Sim.

2) Após isso. Automaticamente abre outra tela já com o nome Varejo cadastrado e o código.
Mas preciso fechar essa tela aberta para o item Varejo entrar no campo Ramo de Atividade do Pedido de Compra.

3) Pronto. O item foi inserido no local desejado após ter fechado a tela aberta.

Código VBA usado no Formulário Cadastro de Ramo de Atividade2

Código VBA usado no Formulário Pedido de Compras

Tom

Essa tela é de uma msgbox() obrigatória do aplicativo perguntando ao usuário, se é para cadastrar ou não.

Cadastrar e editar num mesmo formulário vai precisa da mensagem para o aplicativo saber o que fazer, e para isso

tem que apertar o botão sim ou não.

Isso é uma automatização, quando não tem o registro ele pergunta e abre o formulário próprio para cadastrar esse

novo registro na tabela pertinente.

O outro caminho é mais penoso, se não tiver o produto registrado, ele simplesmente dirá que não tem e não deixará seguir

em frente, então você terá sair desse formulário, e abrir o formulário de cadastro, só que manualmente (através do menu) para cadastrar

e depois retornar ao primeiro formulário para refazer a operação que foi interrompida por falta do registro em questão.

Concluindo, o que foi programado pelo colega Giberlanio é o mais sensato possível.

[ ]'s

Boa Tarde, Noobezinho

Obrigado pela resposta.

A tela que abre perguntando seu deseja cadastrar um novo item não é o meu problema.

O que eu gostaria é que após eu apertar sim o item fosse inserido automaticamente no campo desejado não precisando abrir um nova tela para depois obrigatoriamente ter que fechar ela.

Eu já usei um programa de banco de dados do Access que fazia esta função de cadastrar um item desta forma.

Mas da forma que o Giberlanio ensinou já ajudou muito.

Entendi Tom

Experimente esse código na  propriedade Se não estiver na lista da combobox:

A propriedade Limitar a uma lista dessa combo deve estar como: Sim

código:

Private Sub cbo_Atividade_NotInList(NewData As String, Response As Integer)
Dim rs As Recordset

If NewData = "" Then Exit Sub

If MsgBox("Este item não está registrado." & vbCrLf & "Deseja cadastrar?" _
         , vbQuestion + vbYesNo, "Novo item") = vbYes Then
  Response = acDataErrContinue
 
  strSQL = "Insert Into tbl_Atividade ([Atividade]) " & _
                "values ('" & NewData & "');"
  CurrentDb.Execute strSQL, dbFailOnError
  Response = acDataErrAdded
Else
  Response = acDataErrContinue
 
End If
Me.cbo_Atividade = Null
Me.cbo_Atividade.Requery

End Sub

[ ]'s

Noobezinho,

Obrigado pela ajuda e paciência.

Sou iniciante no uso do Access e VBA.

Este código que você indicou não deu certo.

Fiz o seguinte:

1) Tentativa:
Usei este código junto com outro tudo na mesma tela. Deu erro.

2) Tentativa:
Apaguei o código VBA antigo e só deixei o indicado por você. Também deu erro.

Observação:
Eu corrigir o seu código indicado na seguinte frase:
cbo_Atividade para CboRamoAtividade

Mas também deu erro.
(O item que você informou não é um item da lista).

Esse código eu criei e testei antes de postar.

Veja que vc tem que substituir os nomes dos controles para o

os o nomes dos teus controles, são eles:

tbl_Atividade= nome da tua tabela atividade.

cbo_Atividade = onde vai a atividade e é onde vai o código que passei. ( CboRamoAtividade?)

Se mudou o nome da combo, ela ficou sem a propriedade "Se não estiver na lista", refez essa propriedade para esse novo nome?

Se ainda não conseguir, anexe parte do teu aplicativo com as tabelas e formulários afins.

Boa Noite, Noobezinho

Obrigado pela ajuda.

Seguem em anexo o teste do programa com os código ensinado pelo Giberlanio, mas preciso fechar a tela aberta para salvar o novo cadastro.

Boa Noite, Noobezinho

Obrigado pela ajuda.

Seguem em anexo o teste do programa com os código ensinado por você Noobezinho, mas deu errado. Por favor, me ajudar.

O exemplo que enviou não tem nada haver com o que estamos trabalhando.

Preciso dos formulários e tabelas pertinentes exibidos nas imagens 2 e 3 da tua primeira mensagem.

No exemplo que enviou não vai funfar mesmo, pois está faltando tabela(s) e formulário(s).

Bom Dia, Noobezinho

Segue em anexo o arquivo pedido por você.

Obrigado pela ajuda.

Tom

Taí o exemplo modificado.

Veja a propriedade Se não estiver na lista da combobox cboRamoAtividade.

[ ]'s

Boa Tarde, Noobezinho

Deu 100% certo agora.

Era isso mesmo que eu precisava.

Muito obrigado pela ajuda.

Ótimo!

Valeu pelo retorno

Boa sorte!