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


2 participantes

    [Resolvido]Proteção de edição dos dados no form

    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Proteção de edição dos dados no form Empty Proteção de edição dos dados no form

    Mensagem  flecha 24/9/2012, 13:46

    Olá,

    Tenho um formulário baseado em uma consulta de duas tabelas.
    Neste formulário cadastro as entrevistas (que é o Ocorrido) e tem um subform que é para cadastro dos Entrevistados.
    No form Principal tem uma umagem a ser preenchida pelo caminho gravado no campo LocalFoto e quando não houver reconhecimento não existe foto e a rotina coloca uma imagem "SemFoto.jpg"

    Acontece que quando o form é aberto, se for editar, esta bloqueado tem que liberar no comando Editar funcionando perfeito, más quando navego pelos registro o bloqueio continua e quando chega no registro que não tem a foto e será preenchido pelo "semfoto.jpg" ele fica desbloqueado cedendo a Edição e não deveria.

    Abaixo a rotina do form para me ajudarem.

    Private Sub Form_Current()


    DoCmd.Maximize
    Me.AllowEdits = False
    Dim MeuCaminho As String
    MeuCaminho = Application.CurrentProject.Path

    If Not IsNull(Me.LocalFoto) And Dir(MeuCaminho & "\" & (Me.RG) & "\foto1.*") <> "" Then
    Me.foto.Picture = Me.LocalFoto
    Else
    Me.LocalFoto = "c:\recofoto\semfoto.jpg"
    Me.foto.Picture = LocalFoto
    End If


    Call reco_AfterUpdate
    If Me.NewRecord Then
    Me.reco = 0
    Me.NumFotoReco = ""
    'Me.RG = ""
    Me.NumFotoReco.Visible = False
    Me.RG.Visible = False
    Else

    Exit Sub
    End If

    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  Silvio 27/9/2012, 12:28

    Bom dia Flecha..

    Já tentou usar o comando .enabled = false, quando abre o formulário ? Eu utilizo esse comando para deixar desabilitados todos so campos do formulário ao ser aberto e depois eu, através de um botão habilito os campos que desejo com o .enabled =true.

    Isso é apenas uma sugestão.

    Abraços


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  flecha 27/9/2012, 16:12

    Agradeço Silvio,

    Estou estudando como fazer, pois acho que é algum erro de lógica, pois não tenho prática e estou "apanhando" para fazer a opreração no registro em edição de alguns campos no Form.

    Achando solução postarei como resolvi.

    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  Silvio 27/9/2012, 18:37

    Também passei por isso e encontrei para mim, pelo menos, na melhor forma o comando enabled.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    flecha
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 304
    Registrado : 11/01/2012

    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  flecha 4/10/2012, 13:13

    Valeu,
    Estou adotando a dica e parece que esta dando certo.

    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5077
    Registrado : 20/04/2011

    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  Silvio 4/10/2012, 13:30

    Olá, Flecha...

    O fórum agradece o teu retorno.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    [Resolvido]Proteção de edição dos dados no form Empty Re: [Resolvido]Proteção de edição dos dados no form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/5/2024, 13:31