MaximoAccess

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

Obrigado

Administração do MaximoAccess

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!

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/1/2020, 22:00