[Resolvido]BLOCO IF COM E

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?

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



tentei dessa forma também não funcionou

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


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

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!

Ele não está acrescentando nos campos combinação e sistema

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

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

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.

Deu certo!

cara nem sei como lhe agradecer!

Esse fórum tem sido de grande utilidade!

Muito obrigado boa noite

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

ok muito obrigado