[Resolvido]Ajuda com código

Ajuda chave:


Private Sub Comando36_Click()
If Me.Caixadecombinação743 = "Apresentado neste Posto" Or Me.Caixadecombinação743 = "Elaborado neste Posto" Then
DoCmd.OpenForm "produtos acresdados", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]
End If
If Not Me.Caixadecombinação743 = "Apresentado neste Posto" Or Me.Caixadecombinação743 = "Elaborado neste Posto" Then
DoCmd.OpenForm "produtos acresdados_3", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]
End If
End Sub


Onde é que errei?


If Me.Caixadecombinação743 = "Apresentado neste Posto" Funciona na perfeição
If Not Me.Caixadecombinação743 = "Apresentado neste Posto" também funciona

Mas:

Or Me.Caixadecombinação743 = "Elaborado neste Posto" não funciona porque abre: "produtos acresdados" e "produtos acresdados_3" e só queria que abrisse "produtos acresdados"

Não fiz os testes mais tente assim se dê erro veja se consegue corrigir.


Private Sub Comando36_Click()
If (Caixadecombinação743 = "Apresentado neste Posto) Then
DoCmd.OpenForm "produtos acresdados", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

ElseIf (Caixadecombinação743 = "Elaborado neste Posto) Then
DoCmd.OpenForm "produtos acresdados", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

Else
DoCmd.OpenForm "produtos acresdados_3", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

End If

End Sub

Estive a ver o teu código, resultou assim:

Private Sub Comando36_Click()

If Caixadecombinação743 = "Apresentado neste Posto" Then
DoCmd.OpenForm "produtos acresdados", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

ElseIf Caixadecombinação743 = "Elaborado neste Posto" Then
DoCmd.OpenForm "produtos acresdados", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

Else
DoCmd.OpenForm "produtos acresdados_3", acNormal, , "[CódigoDoProduto] = " & [CódigoDoProduto]

End If

End Sub

valeu pelo retorno.