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


3 participantes

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    avatar
    samesdavis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 02/07/2010

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  samesdavis 4/1/2013, 01:28

    Pesseoal,

    Como faço para alterar via VBA nop Access, a chave do registro do Windows XP e/ou Windows 7
    para o formato dd/mm/yyyy

    Eu gostaria de colocar esse possível código quando o meu sistema fosse aberto.

    Sames
    avatar
    Pina
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 19/02/2011

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Sistema Data/Hora

    Mensagem  Pina 4/1/2013, 06:56

    Bom dia Sames
    Para o meu sistema funcionar sempre com o mesmo tipo de Data/Hora faço o seguinte no meu computador:
    Menu Iniciar
    Definições
    Painel de controlo
    Opções regionais e de idioma
    Personalizar (Data)

    Não sei se ajuda
    Pina
    avatar
    samesdavis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 02/07/2010

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Re: [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  samesdavis 4/1/2013, 08:51

    Sim, é isso mesmo, só que desejo que o próprio sistema faça isso de forma automática via VBA editando o registro do windows HKEY alguma coisa...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Re: [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  JPaulo 4/1/2013, 09:21

    Num modulo novo, cole e salve;

    '*************************************************************************
    Option Explicit

    Private Const LOCALE_SDATE = &H1F
    Private Const LOCALE_STIMEFORMAT = &H1003

    Private Const WM_SETTINGCHANGE = &H1A

    Private Const HWND_BROADCAST = &HFFFF&

    Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
    Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

    Public Function SetDateTime() As Boolean
    'função que altera os formatos da data e hora do Regional Settings do Windows
    Dim dwLCID As Long
    dwLCID = GetSystemDefaultLCID()

    'aqui você altera o formato da data para o que desejar "dd-MM-yyyy"
    If SetLocaleInfo(dwLCID, LOCALE_SDATE, "dd-MM-yyyy") = False Then
    SetDateTime = False
    Exit Function
    End If

    'aqui você altera o formato das horas para o que desejar "HH:mm:ss"
    If SetLocaleInfo(dwLCID, LOCALE_STIMEFORMAT, "HH:mm:ss") = False Then
    SetDateTime = False
    Exit Function
    End If

    PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
    SetDateTime = True
    End Function
    '*************************************************************************



    Para chamar a função, por exemplo no abrir do fomulario principal;

    Private Sub Form_Open(Cancel As Integer)
    Call SetDateTime
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new Instruções SQL como utilizar...
    avatar
    samesdavis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 02/07/2010

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Re: [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  samesdavis 4/1/2013, 09:38

    Era exatamente isso!!
    Muito obrigado!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Re: [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  JPaulo 4/1/2013, 10:22

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy Empty Re: [Resolvido]Alterar chave de registro para op formato dd/mm/yyyy

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:20