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]Alterar o exemplo Quem Introduziu, Quem Alterou

    Compartilhe
    avatar
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  hugopanzer em Qui 31 Mar 2011, 16:03

    Boa tarde Jpaulo,
    Este exemplo que foi colocado aqui no repositório é muito bom... Tentei fazer alguma alteraçoes no seu codigo para que eu o pudesse adaptar à minha base de dados mas a ideia é poder registar tambem no Histórico todos os dados inseridos. Nos testes que efectuei nao consegui que as alteraçoes que fiz tivessesm sucesso. Pode dar-me uma ajuda?

    Obrigado e Abraço
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  JPaulo em Qui 31 Mar 2011, 19:33

    Compile esse exmplo com este e terá o resultado desejado;

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



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

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

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  hugopanzer em Sex 01 Abr 2011, 09:44

    Bom dia JPaulo,
    Obrigado pela sua resposta. Fiz o download da base dados que postou mas o seu exemplo apenas regista no histórico as alteraçoes. Ainda não consegui perceber em que parte do seu codigo devo mexer para que alem das alteraçoes fiquem tambem registados no historico todos os dados que são inseridos (mesmo que nao tenham sido alterados).
    Ou seja:
    strUser = GetUserName_TSB
    If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
    Exit Sub
    Se for um novo registo eu nao queria que o codigo parasse aqui mas sim que registase esse novo registo tambem na tabela log da base dados Histórico.

    Mais uma vez obrigado
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  JPaulo em Sex 01 Abr 2011, 10:13

    Então delete essas linhas:

    If Me.NewRecord Then 'verifica se é um novo registro, se for morre aqui
    Exit Sub


    Delete o ultimo End If

    E acrescente aqui

    If Me.NewRecord Or ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then


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

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

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  hugopanzer em Sex 01 Abr 2011, 10:31

    Amigo JPaulo desculpe a minha insistencia, tenho dificuldade em usar codigo VB no access....
    fiz a alteraçao que me indicou mas ainda nao consegui que ficasse registado os novos dados introduzidos no frmexemplo na tabel log no historico no campo "valor actual".
    Efectuei a alteraçao da seguinte maneira

    On Error Resume Next
    strUser = GetUserName_TSB

    If Me.NewRecord Or ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
    strChekaDiferente = False

    For Each ctl In Me.Controls
    ' Percorre todos os tipos de controles
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

    If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
    'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
    strChekaDiferente = True
    'e registra na tabela do Log
    DoCmd.SetWarnings False
    strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual) IN 'C:\Documents and Settings\Vijdioni\Ambiente de trabalho\Nova\Historico.mdb'" & _
    "Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "')"
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    'termina e volta a colocar a variável de chekar alterações como False
    strChekaDiferente = False
    Else
    Cancel = True
    End If

    End Select
    Next ctl
    End If
    'Salva tudo o que foi feito
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End Sub

    Obrigado pela sua paciencia Wink
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  JPaulo em Sex 01 Abr 2011, 11:12

    Abri um novo tópico para não estar a carregar o tópico do Exemplo inicial.

    Coloque num site publico o seu exemplo para analisarmos.

    Pode colocar zipado aqui:

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



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

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

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  JPaulo em Sex 01 Abr 2011, 11:18

    Veja este exemplo de 18-Outubro-2010

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


    Está no final deste post:

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


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

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

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 182
    Registrado : 16/11/2010

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  hugopanzer em Sex 01 Abr 2011, 11:40

    É isto mesmo... o exemplo que colocou de 18-Outubro-2010 Smile
    Era isto que eu procurava

    Muito obrigado JPaulo pela sua ajuda
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  JPaulo em Sex 01 Abr 2011, 12:01

    Obrigado pelo retorno o forum agradece.


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

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

    Sucesso e Bons Estudos
    Success and Good Studies

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

    mirandela
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 11/04/2014

    Link Quebrado

    Mensagem  mirandela em Sex 01 Set 2017, 02:28

    Amigo JPaulo,

    Este arquivo de 18/Out/2010 o qual menciona ainda pode ser encontrado? O link esta quebrado!

    Grato!
    avatar
    pcnet
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 237
    Registrado : 16/12/2015

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  pcnet em Sex 01 Set 2017, 18:38

    Boa tarde,

    Fica aqui o exemplo do mestre JPaulo

    Cumprimentos
    Anexos
    RegistraAlteracoes_II_JPaulo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 5 vez(es)

    mirandela
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 11/04/2014

    Re: [Resolvido]Alterar o exemplo Quem Introduziu, Quem Alterou

    Mensagem  mirandela em Ter 05 Set 2017, 21:51

    Muito Obrigado PCNET!

      Data/hora atual: Sab 18 Nov 2017, 01:10