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

    Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Compartilhe
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 12/06/2017

    Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  neves1 em Seg 19 Jun 2017, 23:55

    boa noite,

    Tentar explicar pouco mais,

    Qdo eu abro meu banco access tenho uma caixa texto para inserir MES e ANO,

    Gostaria de saber como faço essa função para salvar esse MES e ANO para depois qdo abrir formulário inseri-los na tabela na inclusão de novo paciente.

    att.


    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  misaelsp em Ter 20 Jun 2017, 10:22

    Bom dia,

    Salva esses dados em uma tabela

    O se quiser salvar em uma variavel global
    só que na variavel global quando você fechar o sistema e abrir de novo essa informação some.


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 12/06/2017

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  neves1 em Ter 20 Jun 2017, 10:25

    Não tem problema sumir qdo fechar, pois toda vez que o programa fosse aberto digitaria de novo.

    Esse Mes e Ano precisava dele salvo, pois na hora de digitar os pacientes ja teria essa informação ja preenchendo os campos MES e ANO na tabela.

    São varios pacientes com mesma informação de MES e ANO.

    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  misaelsp em Ter 20 Jun 2017, 10:37

    pra salvar estes dados numa varivavel global você precisa criar um módulo

    Ex: mdMesAno
    dai então você declaras as variaveis globais

    ex:
    public varMes as variant
    public varAno as variant

    pronto ja declarou as variaveis
    agora pra atribuir valor a elas é simples

    ex:
    mdMesAno.varMes = 05
    mdMesAno.varAno = 2017

    pronto você ja tem valores nas variaveis

    para retornar estes valores tambem é simples

    ex:

    msgbox mdMesAno.varMes

    esta linha a cima ira retornar este valor em uma mensagem na tela.

    espero ter ajudado. com essas informações nas variaveis você pode tratar elas da forma que necessitar.


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 12/06/2017

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  neves1 em Ter 20 Jun 2017, 10:50

    @misaelsp

    Obrigado atenção, vou tentar explicar pouco mais como eu preciso dessa função,

    Qdo eu abro meu arquivo access vem com 1 janela [formulario] perguntando qual o MES e ANO, ai então em no MES eu digito Maio e no ANO eu digito 2017, feito isso clico em entrar no programa, depois disso vou na parte de inclusão de dados, para digitar novo paciente, estando la tem alguns campos para digitar os dados, tipo nome, prontuario, data internação, mes e ano, ai queria pegar os dados digitados la no formulario do inicio trazendo aqui dentro da inclusão, sem precisa em todos pacientes novos mes e ano, pois nessa inclusão de 30 pacientes seria mesmo mes e ano.

    Espero ter explicado 1 poco mais.

    att.

    [Você precisa estar registrado e conectado para ver este link.]

    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  misaelsp em Ter 20 Jun 2017, 10:59

    Fazendo oque eu falei ja cima explicando como salva estes dados em uma variavel global

    é só você verificar se é um paciente novo quando for fazer o lançamento

    se for você puxa as datas das variaveis. assim toda vez q for lançar um paciente novo o sistema irá puxar as datas ja digitadas


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 12/06/2017

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  neves1 em Ter 20 Jun 2017, 11:05

    Dando erro:

    Private Sub Btn_Loginentrar_Click()
       Public varmes As Variant
       Public varano As Variant
    DoCmd.Close
    DoCmd.OpenForm "Frm_Menu"
    End Sub

    Erro de Compilação:
    Atributo invalido em Sub ou Function

    OBS: Poderia por gentileza montar um ex basico como seria esse modulo, sou meio novato nisso, obrigado atenção.
    avatar
    neves1
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 12/06/2017

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  neves1 em Ter 20 Jun 2017, 13:42

    Alguem puder dar uma força,

    obrigado
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  Silvio em Ter 20 Jun 2017, 15:01

    Uma ideia até que simples.

    No teu formulário de inclusão ( para automatizar ) coloque na fonte de origem ou fonte de dados, da caixa de texto do mês:
    =Month()

    a do ano:
    =Year()

    Ou nos eventos ao abrir, ao carregar

    me.suacaixadetextomes.value = Month()
    me.suacaixadetextoano.value = Year()

    Fazendo isso é um formulário a menos dentro do teu sistema.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    APALOOSA
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 29
    Registrado : 27/06/2017

    Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  APALOOSA em Qua 28 Jun 2017, 08:44

    Olá, talvez se vc for em propriedades do campo na Aba "Dados" e colocar em "Valor Padrão" do campo do formulario ou da tabela  a expressão Data() ou Agora().

      Data/hora atual: Qua 22 Nov 2017, 18:00