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


    [Resolvido]Formulario com 3 subform

    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]Formulario com 3 subform Empty Formulario com 3 subform

    Mensagem  matutano 17/5/2012, 22:59

    olá boa noite a todos, tenho um form principal com 3 subform, no form principal tenho um campo chamado situação a ajuda que peço era a seguinte, quando o campo situaçao fosse preenchido com a palavra Suspenso os 3subform ficassem bloqueados ou ocultos é possivel?

    obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  Convidad 17/5/2012, 23:06

    Private Sub Sitação_AfterUpdate()
    If Me.Sitação.Value= "Suspenso" Then
    Me.NomeSubform1.Visible = False
    Me.NomeSubform2.Visible = False
    Me.NomeSubform3.Visible = False
    Else
    Me.NomeSubform1.Visible = True
    Me.NomeSubform2.Visible = True
    Me.NomeSubform3.Visible = True
    End If
    End Sub
    avatar
    Convidad
    Convidado


    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  Convidad 17/5/2012, 23:10


    Vi que o colega postou antes, mas vale a dica.

    Private Sub NomeCampoSituacao_AfteUpdate()
    If Me.NomeCampoSituacao = "Suspenso" Then
    Me.NomeSubform1.Locked = True
    Me.NomeSubform2.Locked = True
    Me.NomeSubform3.Locked = True
    Else
    Me.NomeSubform1.Locked = False
    Me.NomeSubform2.Locked = False
    Me.NomeSubform3.Locked = False
    End If
    End Sub

    Coloque o mesmo código no evento NoAtual do formulário.
    Para deixar oculto substitua Locked por Visible.

    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  matutano 17/5/2012, 23:49

    Miguel o seu codigo não funcionou de qualquer forma obrigado, o do Norberto funga mas não é assim que eu queria.
    o que está acontecer é que quando abro o form prncipal abre com os subform ocultos e eu pertendia que os subform oculta-se depois do form receber a palavra suspensa
    obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  Convidad 17/5/2012, 23:59


    Se está ocultando, então está usando o código do Miguel.
    E lembrei a você que deveria colocar o código também no evento Current do Form, pois cada registro deve exibir/ocultar ou bloquear/desbloquear conforme o valor da textbox.
    E observe os nomes dos campos e do valor da textbox. Vc já se referiu a ela como suspenso e suspensa.

    Private Sub Form_Current()
    If Me.NomeCampoSituacao = "Suspenso" Then
    Me.NomeSubform1.Locked = True
    Me.NomeSubform2.Locked = True
    Me.NomeSubform3.Locked = True
    Else
    Me.NomeSubform1.Locked = False
    Me.NomeSubform2.Locked = False
    Me.NomeSubform3.Locked = False
    End If
    End Sub

    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  matutano 18/5/2012, 00:10

    Não é suspenso mas sim suspensa, peço desculpa. Este é cod que estou a utilizar form principal

    Private Sub Form_Current()
    If Me.txSitua = "Suspensa" Then
    Me.subfrm_mao_obra.visible = True
    Me.subfrm_material.visible = True
    Me.subfrm_transportes.visible = True
    Else
    Me.subfrm_mao_obra.visible = False
    Me.subfrm_material.visible = False
    Me.subfrm_transportes.visible = False
    End If
    End Sub

    e este no campo txSitua Após atualizar

    Private Sub txSitua_AfteUpdate()
    If Me.txSitua = "Suspensa" Then
    Me.subfrm_mao_obra.visible = True
    Me.subfrm_material.visible = True
    Me.subfrm_transportes.visible = True
    Else
    Me.subfrm_mao_obra.visible = False
    Me.subfrm_material.visible = False
    Me.subfrm_transportes.visible = False
    End If
    End Sub

    e o que está acontecer quando abro form principal os subform já estão ocultos
    avatar
    matutano
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 358
    Registrado : 16/05/2011

    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  matutano 18/5/2012, 00:29

    Bingo Norberto, já está a bloquear os subform os codigos estavam mal aplicados estavam como no poste acima peço desculpa e muito Obrigado ao sr e também ao Miguel.
    obrigado
    avatar
    Convidad
    Convidado


    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  Convidad 18/5/2012, 00:32


    Você está repetindo o evento Current.
    Editei seu código na mensagem anterior.
    Teste novamente.

    Estava digitando e vi que respondeu.

    Bom que funcionou!


    Conteúdo patrocinado


    [Resolvido]Formulario com 3 subform Empty Re: [Resolvido]Formulario com 3 subform

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 13:29