GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    OldValue

Moderators: Alexandre Minato, Luiz Cláudio C. V. Rocha, Sampaio Lima
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
JBSR
Analista Sênior

Figura de JBSR
postado
Estou utilizando o proprio exemplo do F1 do access para verificar se houve mudanças no registro.


Dim ctlTextbox As Control
For Each ctlTextbox In Me.Controls
If ctlTextbox.ControlType = acTextBox Then
ctlTextbox.Value = ctl.OldValue
End If
Next ctlTextbox


O que ocorre é que está apresentando erro 424 (Objeto é obrigatorio) na seguinte linha:

ctlTextbox.Value = ctl.OldValue

Algume saberia me dizer aonde está o erro neste código?


"Conhecimento é poder."

Aprenda compilar um executavel para o seu MDB.
http://www.compraja.com.br/anuncio.asp?id=193404
Suporte e treinamento em MS Access.
www.kartoffel.com.br
www.websuporte.kartoffel.com.br
 
Postagens: 1694 | Localização: Belo Horizonte | Registrado: 15 July 2003Reply With QuoteReport This Post
Renato Santos
Analista Sênior

Figura de Renato Santos
postado Hide Post

Não seria?
ctlTextbox.Value = ctlTextbox.OldValue
 
Postagens: 1705 | Localização: Belo Horizonte | Registrado: 22 November 2002Reply With QuoteReport This Post
JBSR
Analista Sênior

Figura de JBSR
postado Hide Post
Sabe o que é engraçado Renato? O exemplo é o do help do Access. Quantos mais códigos a MS não teria passado errado.

Mais uma vez valeu.


"Conhecimento é poder."

Aprenda compilar um executavel para o seu MDB.
http://www.compraja.com.br/anuncio.asp?id=193404
Suporte e treinamento em MS Access.
www.kartoffel.com.br
www.websuporte.kartoffel.com.br
 
Postagens: 1694 | Localização: Belo Horizonte | Registrado: 15 July 2003Reply With QuoteReport This Post
Renato Santos
Analista Sênior

Figura de Renato Santos
postado Hide Post

Conterrâneo,

A rotina postada serve para desfazer as alterações efetuadas nas caixas de texto do formulário.
Para apenas verificar, crie em um novo módulo a função abaixo:

Function Alterou(Formulario As Form) As Boolean
    Dim ctl As Control
    
    For Each ctl In Formulario.Controls
    If ctl.ControlType = acTextBox Then
        If ctl.Value <> ctl.OldValue And Alterou = False Then
            Alterou = True
        End If
    End If
    Next ctl

End Function

Para utilizá-la em um form faça:

    If Alterou(Me) = True Then
        MsgBox "Alterou"
    End If

Abraços. Feliz
 
Postagens: 1705 | Localização: Belo Horizonte | Registrado: 22 November 2002Reply With QuoteReport This Post
  Powered by Social Strata  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    OldValue

©