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]Pegar a data do computador

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1714
    Registrado : 23/01/2018

    [Resolvido]Pegar a data do computador Empty [Resolvido]Pegar a data do computador

    Mensagem  crysostomo 8/7/2019, 13:16

    Meus amigos, bom dia.
    Como pegar a data de um computador  e inserir na tabela e fazer com que ele subtraia com uma data que eu coloquei na tabela.
    meu objetivo é com que ele seja um sistema de teste. Se eu abrir o sistema ele vai inserir todos dos dias.
    Ou inserir direto sem precisar fazer caixa não acopladas.

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Dim db      As DAO.Database
    Dim sSQL    As String
    Dim dataDoPc
    dataDoPc = Date
      Me.Text4 = dataDoPc
        Set db = CurrentDb
            sSQL = "INSERT INTO verificar"
            'CAMPOS----------------------------------------
            sSQL = sSQL & "("
            sSQL = sSQL & "  data"
            sSQL = sSQL & ")"
            'VALORES -------------------------------------
            sSQL = sSQL & " VALUES"
            sSQL = sSQL & "("
            sSQL = sSQL & "  '" & Trim(Me.Text4) & "'"
            sSQL = sSQL & ")"
            db.Execute sSQL
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3324
    Registrado : 21/04/2011

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  Marcelo David 8/7/2019, 14:28

    A data do pc vc pega com: Time
    Agora para fazer o cálculo, deve usar a função datedif.

    Daí, precisamos saber onde está a data na tabela que será calculada com a data atual,
    para assim montarmos a lógica.


    .................................................................................
    Marcelo David | [Resolvido]Pegar a data do computador LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1714
    Registrado : 23/01/2018

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  crysostomo 13/7/2019, 20:43

    Marcelo, boa tarde.
    Acho que seria melhor pegar a data da internet. essa eu  vou procurar como faz essa lógica que eu não sei.


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  ahteixeira 13/7/2019, 23:09

    Olá a todos,

    Gillard, pode obter a data com a função nativa do Access:

    Date()

    Para operações é como o Amigo Dilson referiu:

    DateDiff ou DateAdd

    Se tiver dúvidas aperte a tecla F1

    Se pretender obter data da internet, veja estemmeu exemplo de ajuda a outro membro:
    https://www.maximoaccess.com/t33653-capturar-obter-data-e-hora-de-website

    Abraço a todos
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1714
    Registrado : 23/01/2018

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  crysostomo 15/7/2019, 23:33

    Não obtive sucesso , e o exemplo que peguei sobre pegar a data da internet demora muito. abrirei outro topico de outra maneira de validade do sistema .
    obg


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1714
    Registrado : 23/01/2018

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  crysostomo 15/7/2019, 23:37

    www.maximoaccess.com/t36301-enserir-e-verificar#248075


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  ahteixeira 17/7/2019, 17:57

    Olá Gillard,

    Não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Pegar a data do computador Empty Re: [Resolvido]Pegar a data do computador

    Mensagem  ahteixeira 18/7/2019, 16:04

    Olá Gilliard,

    Já não é a primeira nem segunda vez quer alerto e para não existir dúvida, confirme:
    https://www.maximoaccess.com/t35471-ocultar-janela-do-access

    Reveja as Regras do Fórum

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE!   Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks").[/b]
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

      Data/hora atual: 14/6/2021, 06:49