MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]BLOCO IF COM E

    Compartilhe

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sex 15 Jul 2016, 04:27

    Pessoal não estou conseguindo realizar essa condição abaixo;


    Private Sub ARTEPESCA_AfterUpdate()
    If ARTEPESCA = "MALHADEIRA" And TIPOBARCO = "RABETA" Then
    Me.SISTEMA = "RABETA LINHAS"
    End If
    End Sub

    se o campo artepesca=MALHADEIRA e o campo tipobarco=rabeta preciso que automaticamente meu campo sistema pesca seja preenchido com "RABETA LINHAS.

    Onde está o erro?



    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sex 15 Jul 2016, 06:34

    Tente assim.

    Código:


    Private Sub ARTEPESCA_BeforeUpdate(Cancel As Integer)
    If ARTEPESCA = "MALHADEIRA" And TIPOBARCO = "RABETA" Then
    Me.SISTEMA = "RABETA LINHAS"
    End If
    End Sub


    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sex 15 Jul 2016, 22:28

    tentei dessa forma também não funcionou
    Anexos
    sistema de pesca.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 3 vez(es)

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sab 16 Jul 2016, 00:03

    Tente o código abaixo...

    Código:

    Sub acresentar()
        If ARTEPESCA = "MALHADEIRA" And TIPOBARCO = "RABETA" Then
            Me.SISTEMA = "RABETA LINHAS"
        End If
    End Sub

    Private Sub ARTEPESCA_AfterUpdate()
        Call acresentar
    End Sub

    Private Sub TIPOBARCO_AfterUpdate()
        Call acresentar
    End Sub

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sab 16 Jul 2016, 01:14

    wellingtoneo,

    Funcionou! Só que preciso utilizar 4 campos. poderia me dar uma ajuda? não estou conseguindo


    Sub acresentar()
     
    If DESCRCAOARTEPESCA1 = "MALHADEIRA" And DESCRICAOARTEPESCA2 = "LINHA E ANZOL" Then
           Me.COMBINACAO = "LINHAS"
       End If
           If COMBINACAO = "LINHAS" And TIPOBARCO = "RABETA" Then
           Me.SISTEMA = "RABETA LINHAS"
       End If
    End Sub

    Private Sub TIPOBARCO_AfterUpdate()
       Call acresentar
    End Sub

    Private Sub DESCRICAOARTEPESCA1_AfterUpdate()
       Call acresentar
    End Sub

    Private Sub DESCRICAOARTEPESCA2_AfterUpdate()
       Call acresentar
    End Sub
    Anexos
    sistema de pesca - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 2 vez(es)

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sab 16 Jul 2016, 01:50

    o que você não está conseguindo fazer? E qual o problema? Tipo você está preenchendo os campos e não está atualizando... Da um erro...
    O que está acontecendo?
    No aguardo!

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sab 16 Jul 2016, 01:54

    Ele não está acrescentando nos campos combinação e sistema
    Anexos
    sistema de pesca - Cópia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 0 vez(es)

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sab 16 Jul 2016, 02:02

    Muda DESCRICAOARTEPESCA1 para ARTEPESCA no seu código e me fala se vai dar certo!

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sab 16 Jul 2016, 02:12

    DEU CERTO! MAIS PORQUE É PRECISO FAZER ESSA ALTERAÇÃO? TEM COMO MANTER O NOME DESCRICAOARTEPESCA1?

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sab 16 Jul 2016, 02:20

    Tem sim, mas você de ir no seu formulário, clicar no objeto caixa de texto, ir na folha de propriedade, guia outra, Nome, e alterar o nome ARTEPESCA para DESCRICAOARTEPESCA1. E depois altero o seu código novamente.

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sab 16 Jul 2016, 02:34

    Deu certo!

    cara nem sei como lhe agradecer!

    Esse fórum tem sido de grande utilidade!

    Muito obrigado boa noite

    wellingtoneo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 30/07/2012

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  wellingtoneo em Sab 16 Jul 2016, 02:39

    Por nada! Estamos aqui para isso...
    Por favor dei o tópico como resolvido. Obrigado e boa noite!

    FRANCISCORIBEIRO
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 28/06/2016

    Re: [Resolvido]BLOCO IF COM E

    Mensagem  FRANCISCORIBEIRO em Sab 16 Jul 2016, 02:50

    ok muito obrigado

      Data/hora atual: Sex 09 Dez 2016, 07:38