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

    [Resolvido]Data da Internet

    Compartilhe
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3661
    Registrado : 06/11/2009

    [Resolvido]Data da Internet

    Mensagem  Assis em 9/12/2018, 13:03

    Bom dia Amigo Teixeira

    Apliquei o seu exemplo da data da internet, para usar como data num campo, para não deixar registar com datas futuras.

    Como ontem estive por momentos sem internet, o Formulario dava erro por não ter a data, devolvia um valor assim "00:00:00" sem aspas claro.

    Como vou resolver o assunto para quando não tiver internet mesmo que por pouco tempo ?

    Obrigado


    http://www.maximoaccess.com/t33653-captura-obter-data-e-hora-de-website


    .................................................................................
    *** Só sei que nada sei ***
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 540
    Registrado : 11/11/2009

    Re: [Resolvido]Data da Internet

    Mensagem  scandinavo em 9/12/2018, 16:05

    Pegue a do computador......
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Data da Internet

    Mensagem  ahteixeira em 9/12/2018, 23:23

    Olá a todos,

    Assis, realmente pode falhar o acesso à internet.

    Na minha opinião poderia antes de ir verificar a data da internet verificar se tem internet (existe exemplos no fórum).
    Caso não esteja a funcionar pode usar a data do computador ou a mesma data do último movimento ou pura e simplesmente não deixar emitir documentos até ter internet.
    Pode sempre personalizar conforme for mais conveniente.

    Fica a minha sugestão.
    Abraço a todos
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3661
    Registrado : 06/11/2009

    Re: [Resolvido]Data da Internet

    Mensagem  Assis em 10/12/2018, 00:25

    Bom dia

    Pegando as Vossas dicas scandinavo e Teixeira , funciona.

    DataNet é o nome do campo que pega a data da internet.

    No início a minha dúvida era o valor que o campo DataNet recebia quando não tinha internet, que era 00:00:00


    Dim xData As Date
    xData = fncDataHoraNet()
    Me.DataNet = Left(xData, 10)

    If DataNet = "00:00:00" Then
    DataNet = Date
    Else
    End If

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Data da Internet

    Mensagem  ahteixeira em 10/12/2018, 13:57

    Olá a todos,

    Assis, obrigado pelo retorno, o fórum agradece.

    Abraço

      Data/hora atual: 23/1/2019, 08:11