MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Como cadastrar sem precisar abrir outra tela

    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Como cadastrar sem precisar abrir outra tela Empty [Resolvido]Como cadastrar sem precisar abrir outra tela

    Mensagem  tombr 14/4/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:

    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


    Última edição por tombr300 em 1/6/2018, 17:26, editado 2 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 14/4/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



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 14/4/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.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 14/4/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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 15/4/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).
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 15/4/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.











    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 15/4/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.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 15/4/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 16/4/2018, 20:47, editado 1 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 15/4/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).


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 15/4/2018, 14:33

    Bom Dia, Noobezinho

    Segue em anexo o arquivo pedido por você.

    Obrigado pela ajuda.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 15/4/2018, 15:02

    Tom

    Taí o exemplo modificado.

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

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    tombr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  tombr 15/4/2018, 15:35

    Boa Tarde, Noobezinho

    Deu 100% certo agora.

    Era isso mesmo que eu precisava.

    Muito obrigado pela ajuda.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 15/4/2018, 15:47

    Ótimo!

    Valeu pelo retorno

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 01:22