MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    edersantana
    Intermediário
    Intermediário

    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

    Mensagem  edersantana em Ter 29 Mar 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
    TesteEscolhaEmpresa.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (90 Kb) Baixado 16 vez(es)


    Última edição por edersantana em Qui 31 Mar 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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 29 Mar 2016, 16:58

    Olá Eder,
    Via OpenArgs, pode fazer, veja o meu teste abaixo.
    Abraço
    Anexos
    EscolhaEmpresa_OpenArgs_VariavesGlobais.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 24 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 29 Mar 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  edersantana em Ter 29 Mar 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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Ter 29 Mar 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 Qui 31 Mar 2016, 10:14, editado 1 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 31 Mar 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
    [Você precisa estar registrado e conectado para ver esta imagem.]

    resultado:
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Abraço

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 31 Mar 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

      Data/hora atual: Qui 08 Dez 2016, 23:57