MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Comparar 2 valores em Form com subform

    hugopanzer
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Comparar 2 valores em Form com subform Empty Comparar 2 valores em Form com subform

    Mensagem  hugopanzer em 6/3/2012, 15:05

    Amigos preciso da vossa ajuda para que num formulario que contem um subform sempre que o campo Seccao (que esta no form) seja diferente do campo Status (que está no suform) apareça uma mensagem de alerta ...
    qualquer coisa tipo isto :

    Private Sub Form_AfterUpdate()
    If Me.Secçao.Value = Me.Status.Value Then
    Msbox "Alerta Job na secção errada"
    Else
    End If
    End Sub

    Tentei e não resultou, alguem pode ajudar?
    Obrigado
    avatar
    Convidad
    Convidado

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  Convidad em 6/3/2012, 15:40


    Pode ser feito, mas o aviso só vai aparecer quando, no subform, um registro onde Status bate com a condição tiver o foco.

    Obs.:
    Não pode se referir a um controle em outro form diretamente, mesmo sendo um subform. Daí precisa ser Me.NomeSubform.NomeControle .
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  hugopanzer em 6/3/2012, 15:54

    Ok Norbs vou testar.
    Obrigado
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  hugopanzer em 6/3/2012, 16:02

    Norbs tentei o seguinte :

    Private Sub Form_AfterUpdate()
    If Me.Secçao.Value = Me.qry1_sub.Status.Value Then
    Msbox "Alerta Job na secção errada"
    Else
    End If
    End Sub

    Nao resultou, desculpa mas ainda sou um leigo em vba...
    avatar
    Convidad
    Convidado

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  Convidad em 6/3/2012, 16:18


    Estando no evento AfterUpdate do form, a mensagem aparece quando ele é salvo.

    Detalhe: na msg 1 vc disse "diferente" e no código colocou = . Se a validação for para "diferente", substitua = por <> .

    Tente no evento Current do subform:


    Private Sub Form_Current()
    If Forms!NomeFormPrincipal.Secçao = Me.Status Then
    Msbox "Alerta Job na secção errada"
    Else
    End If
    End Sub


    Possivelmente terá de colocar código nos eventos AfterUpdate dos campos Secção e Status, para a mensagem aparecer quando eles forem alterados.
    hugopanzer
    hugopanzer
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  hugopanzer em 7/3/2012, 16:22

    Norbs resultou...
    Obrigado pela ajuda e desculpa o atraso na minha resposta.
    Abraço
    avatar
    Convidad
    Convidado

    [Resolvido]Comparar 2 valores em Form com subform Empty Re: [Resolvido]Comparar 2 valores em Form com subform

    Mensagem  Convidad em 7/3/2012, 17:07


    Disponha. Agradecemos o retorno!

      Data/hora atual: 9/8/2020, 12:39