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


4 participantes

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

    neves1
    neves1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  neves1 20/6/2017, 03: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.

    avatar
    misaelsp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  misaelsp 20/6/2017, 14: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 Very Happy
    neves1
    neves1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  neves1 20/6/2017, 14: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.
    avatar
    misaelsp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  misaelsp 20/6/2017, 14: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 Very Happy
    neves1
    neves1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  neves1 20/6/2017, 14: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.

    Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access Entrad10
    avatar
    misaelsp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  misaelsp 20/6/2017, 14: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 Very Happy
    neves1
    neves1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  neves1 20/6/2017, 15: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.
    neves1
    neves1
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  neves1 20/6/2017, 17:42

    Alguem puder dar uma força,

    obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 20/6/2017, 19: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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    APALOOSA
    Novato
    Novato


    Respeito às regras : 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 Empty Novo Registro, Inserir MES e ANO de uma Caixa Texto digitada qdo abre access

    Mensagem  APALOOSA 28/6/2017, 12: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().

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 05:39