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]Não consigo fazer que a Variável receba um valor para usar no Projeto

    edersantana
    edersantana
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 23/07/2012

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  edersantana 29/3/2016, 16:49

    Bom dia Pessoal!

    Tenho um projeto só que eu não consigo fazer a variável receber o valor para poder ser usado no projeto.

    1-na primeira tela a pessoa escolhe a empresa
          1.1-esse valor vai para um caixa de texto na segunda tela

    2-na segunda tela vem com a empresa que a pessoa escolheu e depois eu escolho receitas e despesas para aquela empresa
       2.1-Isso tudo para poder trabalhar com 2 empresas no mesmo sistema sem ter que fazer varias planilhas para separa 2,3 ou 4 empresas

    na hora que eu quiser mudar de empresa...

    "NomeEmpresa = 0
    docmd.close
    docmd.openform "escolha_empresa",acnormal"



    Se alguém tiver uma outra forma de trabalhar com varias empresas, sem ter que multiplicar o banco de dados aceito sugestão

    Obrigado!
    Anexos
    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto AttachmentTesteEscolhaEmpresa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 17 vez(es)


    Última edição por edersantana em 31/3/2016, 16:25, editado 1 vez(es)


    .................................................................................
    "O importante não e o quanto você aguenta bater e sim o quanto você aguenta apanhar porque ninguém bate mais forte que a vida!" Rock Balboa
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Alvaro Teixeira 29/3/2016, 16:58

    Olá Eder,
    Via OpenArgs, pode fazer, veja o meu teste abaixo.
    Abraço
    Anexos
    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto AttachmentEscolhaEmpresa_OpenArgs_VariavesGlobais.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 59 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Alvaro Teixeira 29/3/2016, 18:02

    Olá Eder,
    Actualizei exemplo acima, com o seguinte código também podemos fazer via variável global:
    Código:
    Option Compare Database
    Option Explicit
    ' AHTEIXEIRA 2016 para MaximoAccess
    ' Access definição variáveis globais
    Global GBL_Empresa As String

    Public Function SetGBL_Empresa(strEmpresa As String)
       GBL_Empresa = strEmpresa
    End Function

    Public Function GetGBL_Empresa()
       GetGBL_Empresa = GBL_Empresa
    End Function
    Abraço
    edersantana
    edersantana
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 23/07/2012

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  edersantana 29/3/2016, 18:33

    Olá Teixeira!
    Eu sou bem noob nesse negocio de programação e tem algumas coisas que eu não to entendendo no codigo se puder me explicar eu agradeço


    Option Compare Database
    Option Explicit
    ' AHTEIXEIRA 2016 para MaximoAccess
    ' Access definição variáveis globais
    Global GBL_Empresa As String ' aqui declara a variavel texto

    Public Function SetGBL_Empresa(strEmpresa As String) 'Porque SET e declara que é texto
      GBL_Empresa = strEmpresa 'variavel texto é igual variavel texto
    End Function

    Public Function GetGBL_Empresa() ' porque GET sem declarar nada
      GetGBL_Empresa = GBL_Empresa 'variavel texto e igual a variavel texto
    End Function

    e na hora de de falar empresa e igual a quem????

    empresa = gbl_empresa

    se eu quiser declara outra variavel tipo funcionario
    vai ser mais ou menos assim?
    -------------------------------------------------------------------------------------------------------------------
    Option Compare Database
    Option Explicit
    ' AHTEIXEIRA 2016 para MaximoAccess
    ' Access definição variáveis globais
    Global GBL_Empresa As String ' aqui declara a variavel texto
    global GBL_Funcionario as string

    Public Function SetGBL_Empresa(strEmpresa As String) 'Porque SET e declara que é texto
      GBL_Empresa = strEmpresa 'variavel texto é igual variavel texto
      GBL_Funcionario = ?????? 'fiquei sem saber o que fazer kk
    End Function

    Public Function GetGBL_Empresa() ' porque GET sem declarar nada
      GetGBL_Empresa = GBL_Empresa 'variavel texto e igual a variavel texto
    End Function
    --------------------------------------------------------------------------------------------------------------------

    Novamente Obrigado.


    .................................................................................
    "O importante não e o quanto você aguenta bater e sim o quanto você aguenta apanhar porque ninguém bate mais forte que a vida!" Rock Balboa
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Alvaro Teixeira 29/3/2016, 20:03

    Olá, estou no telemóvel mas vamos a isso.

    Neste caso pediu para EMPRESA, entao num modulo criamos a definição da variavel pretendida:

    GBL_Empresa

    Depois foram criadas duas funções, uma para atribuir a empresa à variável global (SETGBL_Empresa) e outra para obter (GETGBL_Empresa).

    Assim no seu programa, sempre que desejar atribuir ou buscar a empresa, chama pela função.

    Estude o exemplo.

    Quanto ao funcionário, sim , terá que fazer o mesmo.
    Abraço e já sabe com o MaximoAccess é sempre aprender.
    cheers


    Última edição por ahteixeira em 31/3/2016, 10:14, editado 1 vez(es)
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Alvaro Teixeira 31/3/2016, 10:12

    Olá, Com funcionário:
    Código:
    Option Compare Database
    Option Explicit
    ' AHTEIXEIRA 2016 para MaximoAccess
    ' Access definição variáveis globais
    Global GBL_Empresa As String
    Global GBL_Funcionario As String


    Public Function SetGBL_Empresa(strEmpresa As String)
      GBL_Empresa = strEmpresa
    End Function

    Public Function GetGBL_Empresa()
      GetGBL_Empresa = GBL_Empresa
    End Function

    Public Function SetGBL_Funcionario(strFuncionario As String)
      GBL_Funcionario = strFuncionario
    End Function

    Public Function GetGBL_Funcionario()
      GetGBL_Funcionario = GBL_Funcionario
    End Function


    Uma explicação adicional, eu uso esta técnica do SET (atribuir à variável) e GET (obter da variável), pois assim também funciona em consultas, veja
    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto 281wr5d

    resultado:
    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto 2jcwvwk

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Alvaro Teixeira 31/3/2016, 15:30

    Olá Eder,
    O tópico foi dividido, não devemos misturar temas.
    Compreendeu o exemplo das variáveis?
    Os utilizadores do fórum agradecem o retorno.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto Empty Re: [Resolvido]Não consigo fazer que a Variável receba um valor para usar no Projeto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 17:36