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

    [Resolvido]Variável em Módulo

    avatar
    bobperes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/03/2021

    [Resolvido]Variável em Módulo Empty [Resolvido]Variável em Módulo

    Mensagem  bobperes 25/3/2021, 16:36

    Boa tarde caros amigos...
    Sou novo aqui no fórum e já tenho uma questão que não estou conseguindo resolver.. conto com a ajuda dos amigos.

    Tenho um formulário de cadastro de usuários.
    Esse formulário executa um módulo que contem uma variável (Varcampo = login).

    Minha pergunta é:

    Quando a função do módulo é executado, por sinal corretamente, traz a mensagem se quero realmente cadastrar o usuário.. até ai ok.
    Mas não me traz o nome do usuário, campo login do formulário que deveria vir através da variável login. Como posso resolver isso ?

    Desde já agradeço os amigos. Smile

    Segue exemplo como fiz.

    Public Function Gravar()

    Dim varcampo As String
    varcampo = login

    If MsgBox("Deseja cadastrar o usuário: " & varcampo & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
    DoCmd.RunCommand acCmdSaveRecord 'Função salvar
    MsgBox ("Usuário cadastrado com sucesso !"), vbInformation, "Cadastro"

    Else
    DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
    MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"

    End If

    End Function
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7971
    Registrado : 05/11/2009

    [Resolvido]Variável em Módulo Empty Re: [Resolvido]Variável em Módulo

    Mensagem  Alexandre Neves 25/3/2021, 18:45

    Boa tarde e bem-vindo ao fórum
    Leia as regras para facilitar a vivência no fórum
    Sobre a sua dúvida, será isto que pretende:

    Public Function Gravar()
    If MsgBox("Deseja cadastrar o usuário: " & login & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
    DoCmd.RunCommand acCmdSaveRecord 'Função salvar
    MsgBox "Usuário cadastrado com sucesso !", vbInformation, "Cadastro: " & login
    Else
    DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
    MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"
    End If
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    bobperes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/03/2021

    [Resolvido]Variável em Módulo Empty Variável em Módulo

    Mensagem  bobperes 25/3/2021, 22:13

    Boa tarde Alexandre, como vai ?
    Agradeço muito sua resposta em minha questão.

    Com certeza estarei lendo sim as regras do fórum...

    Realizei as alterações conforme você informou mais ainda continua da mesma forma...
    Aparece a mensagem se quero gravar o usuário mais não aparece o usuário digitado no campo login do formulário.

    O que posso estar deixando passar ?


    Lembrando que:
    Se o código estiver dentro do próprio formulário do cadastro o código funciona perfeitamente chamando a variável e aparece o nome na mensagem, mais esse código coloquei dentro de um Módulo e no formulário chamo o código através do Docmd.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7971
    Registrado : 05/11/2009

    [Resolvido]Variável em Módulo Empty Re: [Resolvido]Variável em Módulo

    Mensagem  Alexandre Neves 26/3/2021, 18:32

    Boa tarde
    Não tinha entendido que se tratava de módulo independente

    No módulo:
    Public Sub Gravar(strLogin as string)
    If MsgBox("Deseja cadastrar o usuário: " & strLogin & "?", vbYesNo + vbInformation, "Atenção") = vbYes Then
    DoCmd.SetWarnings False ' Desativa mensagem padrão do Access
    DoCmd.RunCommand acCmdSaveRecord 'Função salvar
    MsgBox ("Usuário cadastrado com sucesso !"), vbInformation, "Cadastro"
    Else
    DoCmd.RunCommand acCmdDeleteRecord 'Função excluir
    MsgBox ("Cadastro cancelado"), vbInformation, "Cancelado"
    End If
    End Sub

    No formulário, passe o argumento Login:
    GoSub Gravar(login)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    bobperes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/03/2021

    [Resolvido]Variável em Módulo Empty Variável em Módulo

    Mensagem  bobperes 31/3/2021, 13:51

    Bom dia Alexandre.

    Perfeito !
    Tudo certo agora.

    Agradeço. Very Happy
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Variável em Módulo Empty Re: [Resolvido]Variável em Módulo

    Mensagem  Noobezinho 31/3/2021, 15:16

    Olá Peres!

    Reforço o convite do nosso amigo Alexandre Neves, em ler as regras do fórum.

    E uma delas é fechar o tópico colocando o Resolvido no título do tópico.

    Para isso, edite qualquer mensagem tua e clique no botão Resolvido situado mais

    abaixo, no lado direito da opção Modificar o título do fórum.

    Boa sorte!

    Balem


    .................................................................................
    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
    bobperes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 23/03/2021

    [Resolvido]Variável em Módulo Empty Variável em Módulo

    Mensagem  bobperes 1/4/2021, 12:33

    Feito Exclamation

      Data/hora atual: 23/6/2021, 06:24