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]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?


    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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)
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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?
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    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 22 Set 2017, 07:24