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]VBA para Controle de Subform

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]VBA para Controle de Subform Empty VBA para Controle de Subform

    Mensagem  MarceloSilva Seg 01 Out 2012, 08:09

    Bom dia Caros amigos

    Estou com uma dúvida a respeito de form e subform

    Como faço para que quando for carregado meu Form, uma vba bloqueia o subformulário dentro dele.

    ou seja, como utilizar ao carregar o form as funções dentro do subform?

    AllowEdits
    AllowDeletions
    AllowAdditions

    Não estou tendo sucesso.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  Silvio Seg 01 Out 2012, 08:25

    Olá bom dia....

    Ao carregar teu form principal coloque:

    seusubform.enabled=false

    E para liberar o mesmo, um botão com a instrução:

    seusubform.enabled=true

    Espero que seja isso.

    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."
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  MarceloSilva Seg 01 Out 2012, 09:36

    Olá silvio

    Essa seria uma opção sim....

    Porem não me expresei bem. Ao carreda o form ele utiliza uma função em um módulo global que está configurado para administração de bloqueios.

    Ou seja, a possibilidade de configuração para o usuário não excluir, porem poderá editar....e assim sucessivamento.

    A maior parte do cógido está pronto.

    Só preciso configurar para que ao carrega o form ele bloqueia as opções parametriozadas.

    Por isso do uso:
    AllowEdits
    AllowDeletions
    AllowAdditions

    só não tive sucesso no código:

    A função é assim, mas não está dando certo:

    Private Sub Form_Load()
    Dim filtro As String
    On Error Resume Next

    Call fncPermissões(Me)

    filtro = "objeto = '" & Me.Name & "'"
    filtro = "Idfuncao = " & Nz(DLookup("idFuncao", "tblFunções", filtro), 0) & " AND idUsuario =" & CLng(login.id)

    If Nz(DLookup("Opçãoexcluir", "tblpermissõesUsuários", filtro), "false") = False Then
    meusubfrm.AllowEdits.enabled=false
    Else
    meusubfrm.AllowEdits.enabled=true
    End If

    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  Silvio Seg 01 Out 2012, 10:17

    Uma dica.....

    f Nz(DLookup("Opçãoexcluir", "tblpermissõesUsuários", filtro), "false") = False Then
    meusubfrm.AllowEdits =false
    Else
    meusubfrm.AllowEdits =true
    End If


    .................................................................................
    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."
    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  MarceloSilva Seg 01 Out 2012, 11:07

    Obrigado Silvio

    Meu deu a luz para o Problema.....
    Só faltou o .Form em seu exemplo, mas já consegui resolver meu erro. Ficando assim....

    f Nz(DLookup("Opçãoexcluir", "tblpermissõesUsuários", filtro), "false") = False Then
    meusubfrm.Form.AllowEdits =false
    Else
    meusubfrm.Form.AllowEdits =true
    End If


    Projeto Funcionando.

    Obrigado Silvio.....
    Estou encerrando....até mais..
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  Silvio Seg 01 Out 2012, 11:14

    Valeu Marcelo,o fórum agradece o teu retorno.

    Bom trabalho !


    .................................................................................
    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]VBA para Controle de Subform Empty Re: [Resolvido]VBA para Controle de Subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 08 Nov 2024, 15:52