MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Como cadastrar sem precisar abrir outra tela

    Compartilhe

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Sab 14 Abr 2018, 02:34

    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:

    Aqui contém imagens, clique para visualiza-las:

    1)
    Digito um item que não existe.
    O programa pergunta se deseja cadastrar um novo item Varejo? Sim.
    [Você precisa estar registrado e conectado para ver esta imagem.]



    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.
    [Você precisa estar registrado e conectado para ver esta imagem.]



    3) Pronto. O item foi inserido no local desejado após ter fechado a tela aberta.
    [Você precisa estar registrado e conectado para ver esta imagem.]



    Código VBA usado no Formulário Cadastro de Ramo de Atividade2
    [Você precisa estar registrado e conectado para ver esta imagem.]



    Código VBA usado no Formulário Pedido de Compras
    [Você precisa estar registrado e conectado para ver esta imagem.]


    Última edição por tombr300 em Sab 14 Abr 2018, 15:19, editado 1 vez(es)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Sab 14 Abr 2018, 15:09

    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



    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Sab 14 Abr 2018, 16:06

    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.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Sab 14 Abr 2018, 21:28

    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 - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Dom 15 Abr 2018, 00:56

    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).
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Dom 15 Abr 2018, 01:10


    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.











    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Dom 15 Abr 2018, 06:49

    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.

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Dom 15 Abr 2018, 07:01

    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.




    Última edição por tombr300 em Seg 16 Abr 2018, 20:47, editado 1 vez(es)
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Dom 15 Abr 2018, 11:35

    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).


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Dom 15 Abr 2018, 14:33

    Bom Dia, Noobezinho

    Segue em anexo o arquivo pedido por você.

    Obrigado pela ajuda.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Dom 15 Abr 2018, 15:02

    Tom

    Taí o exemplo modificado.

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

    [ ]'s


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

    tombr300
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 48
    Registrado : 08/04/2018

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr300 em Dom 15 Abr 2018, 15:35

    Boa Tarde, Noobezinho

    Deu 100% certo agora.

    Era isso mesmo que eu precisava.

    Muito obrigado pela ajuda.
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

    Re: [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  Noobezinho em Dom 15 Abr 2018, 15:47

    Ótimo!

    Valeu pelo retorno

    Boa sorte!


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

      Data/hora atual: Qua 25 Abr 2018, 19:13