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]COMPARAÇÃO DE 02 CAMPOS

    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty COMPARAÇÃO DE 02 CAMPOS

    Mensagem  irailson 7/9/2010, 15:54

    Olá amigos, sou novato no forum, e também em Acces.
    Minha dúvida é o seguinte:

    Antes de atualizar o Form:

    "Se A = "A" e B for vázio, retornar para B para preencher o campo.

    no momento fiz o seguinte:

    Private Sub Form_BeforeUpdate(Cancel As Integer)

    If Me.A = "A" & B <> "" Then
    MsgBox "O campo B não pode ser vázio .", vbInformation, "Alerta!"
    Me.B.SetFocus
    Else
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  JPaulo 7/9/2010, 16:09

    Ola seja bem vindo ao fórum;

    Funfa mas no evento VBA ao saír do campo 'B'

    Private Sub B_Exit(Cancel As Integer)
    If Me.A = "A" And IsNull(B) Then
    MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
    DoCmd.CancelEvent
    Me.B.SetFocus
    Else
    Exit Sub
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Instruções SQL como utilizar...
    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: COMPARAÇÃO DE 02 CAMPOS

    Mensagem  irailson 7/9/2010, 19:19

    Olá JPaulo obrigado pela saudação, saiba que é um imenso prazer ser aceito por este "Clube" de "accissistas".
    No mais...
    Obrigado pela atenção.
    Sua resposta funcionou perfeitamente.
    Adaptei para o "antes do atualizar do formulário" e funfou.
    PORÉM quando abro o registro para edição ele permite "editar" com campo B = vazio.

    Como resolvo?

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  JPaulo 7/9/2010, 19:51

    Coloque no evento VBA ao alterar do Campo 'A'

    Private Sub A_Change()
    If Me.A = "A" And IsNull(B) Then
    MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
    DoCmd.CancelEvent
    Me.B.SetFocus
    Else
    Exit Sub
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Instruções SQL como utilizar...
    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: COMPARAÇÃO DE 02 CAMPOS

    Mensagem  irailson 7/9/2010, 20:31

    Olá JPaulo.

    No modo de novo registro esta OK!

    Porém, abrindo o resgistro depois eu consigo alterar e colocar 'A= "A" e B = ""

    é o que não quero!


    como posso resolver isto?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  JPaulo 7/9/2010, 20:51

    teste assim;


    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.A.Value <> Me.A.OldValue And IsNull(B) Or Me.A = "A" And IsNull(B) Then
    MsgBox "O campo B não pode ser vazio .", vbCritical, "Alerta!"
    Me.Undo
    DoCmd.CancelEvent
    Me.B.SetFocus
    Else
    Exit Sub
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Instruções SQL como utilizar...
    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: COMPARAÇÃO DE 02 CAMPOS

    Mensagem  irailson 7/9/2010, 21:10

    olá JPaulo,

    não funfou.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  JPaulo 7/9/2010, 22:13

    Coloque aqui o seu banco ou parte dele para analise e resolução.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Instruções SQL como utilizar...
    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty RESOLVIDO

    Mensagem  irailson 14/9/2010, 16:25

    Olá JPaulo,
    posto aqui minhas desculpas por não ter informado em tempo hábil que a sua ultima instrução resolveu a questão.

    Muito Obrigado.

    Abraços...........
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  JPaulo 14/9/2010, 17:59

    Obrigado pelo retorno, amigo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]COMPARAÇÃO DE 02 CAMPOS Empty Re: [Resolvido]COMPARAÇÃO DE 02 CAMPOS

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 21:45