[Resolvido]Erro 13 - Compatibilidade

Boa Tarde!

Estou com um problema de compatibilidade do meu código e necessito de uma orientação para solução do problema, onde tenho um lista de valores multivalores, com duas opções (Consumidor e Retém), e três condições (Consumidor, Retém ou Consumidor; Retém) onde habilitaram campos específicos, porém, o meu código esta apresentando um erro de compatibilidade 13.

Segue o código:

Código:

Private Sub txt_tipo_amostra_AfterUpdate()
If Me.txt_tipo_amostra.Value = "RETÉM" Then
'HABILITA
Me.txt_dt_envio_amostra_consumidor.Enabled = False
Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
Me.txt_dt_envio_amostra_retem.Enabled = True
Me.txt_dt_conclusao_amostra_retem.Enabled = False
ElseIf Me.txt_tipo_amostra.Value = "CONSUMIDOR" Then
'HABILITA
Me.txt_dt_envio_amostra_consumidor.Enabled = True
Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
Me.txt_dt_envio_amostra_retem.Enabled = False
Me.txt_dt_conclusao_amostra_retem.Enabled = False
ElseIf Me.txt_tipo_amostra.Value = "CONSUMIDOR; RETÉM" Then
'HABILITA
Me.txt_dt_envio_amostra_consumidor.Enabled = True
Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
Me.txt_dt_envio_amostra_retem.Enabled = True
Me.txt_dt_conclusao_amostra_retem.Enabled = False
Else
'HABILITA
Me.txt_dt_envio_amostra_consumidor.Enabled = False
Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
Me.txt_dt_envio_amostra_retem.Enabled = False
Me.txt_dt_conclusao_amostra_retem.Enabled = False
End If
End Sub

Agradeço a ajuda e atenção.

Boa tarde,

Veja se atende a sua necessidade:

Código:

Private Sub txt_tipo_amostra_AfterUpdate()
If Nz([Forms]![SeuForm]![txt_tipo_amostra].Column(0)) = "RETÉM" Then
    'HABILITA
    Me.txt_dt_envio_amostra_consumidor.Enabled = False
    Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
    Me.txt_dt_envio_amostra_retem.Enabled = True
    Me.txt_dt_conclusao_amostra_retem.Enabled = False

ElseIf Nz([Forms]![SeuForm]![txt_tipo_amostra].Column(0)) = "CONSUMIDOR" Then
        'HABILITA
        Me.txt_dt_envio_amostra_consumidor.Enabled = True
        Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
        Me.txt_dt_envio_amostra_retem.Enabled = False
        Me.txt_dt_conclusao_amostra_retem.Enabled = False

ElseIf Nz([Forms]![SeuForm]![txt_tipo_amostra].Column(0)) <> "CONSUMIDOR" And Nz([Forms]![SeuForm]![txt_tipo_amostra].Column(0)) <> "RETÉM" Then
            'HABILITA
            Me.txt_dt_envio_amostra_consumidor.Enabled = True
            Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
            Me.txt_dt_envio_amostra_retem.Enabled = True
            Me.txt_dt_conclusao_amostra_retem.Enabled = False
Else
                'HABILITA
                Me.txt_dt_envio_amostra_consumidor.Enabled = False
                Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
                Me.txt_dt_envio_amostra_retem.Enabled = False
                Me.txt_dt_conclusao_amostra_retem.Enabled = False
End If
End Sub

caiosouza,

Mestre, não habilita os campos de modo separado para cada uma das opções.

Código:

Private Sub txt_tipo_amostra_AfterUpdate()
If Nz([Forms]![Frm_IRM_Investigação]![txt_tipo_amostra].Column(0)) = "RETÉM" Then
    'HABILITA
    Me.txt_dt_envio_amostra_consumidor.Enabled = False
    Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
    Me.txt_dt_envio_amostra_retem.Enabled = True
    Me.txt_dt_conclusao_amostra_retem.Enabled = False

ElseIf Nz([Forms]![Frm_IRM_Investigação]![txt_tipo_amostra].Column(0)) = "CONSUMIDOR" Then
        'HABILITA
        Me.txt_dt_envio_amostra_consumidor.Enabled = True
        Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
        Me.txt_dt_envio_amostra_retem.Enabled = False
        Me.txt_dt_conclusao_amostra_retem.Enabled = False

ElseIf Nz([Forms]![Frm_IRM_Investigação]![txt_tipo_amostra].Column(0)) <> "CONSUMIDOR" And Nz([Forms]![Frm_IRM_Investigação]![txt_tipo_amostra].Column(0)) <> "RETÉM" Then
            'HABILITA
            Me.txt_dt_envio_amostra_consumidor.Enabled = True
            Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
            Me.txt_dt_envio_amostra_retem.Enabled = True
            Me.txt_dt_conclusao_amostra_retem.Enabled = False
Else
                'HABILITA
                Me.txt_dt_envio_amostra_consumidor.Enabled = False
                Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
                Me.txt_dt_envio_amostra_retem.Enabled = False
                Me.txt_dt_conclusao_amostra_retem.Enabled = False
End If
End Sub

Desde já agradeço a ajuda e atenção.

Boa tarde,

Favor nos enviar parte da aplicação, para melhor analise do problema.

Mestre,

Segue o banco de dado em anexo.

Agradeço a ajuda e atenção.

Bom dia,

Basicamente tive que fazer com que o código pegasse valores individuais, duplos e nulos! e também defini o campo "Tipo_Amostra" como REQUERIDO na tabela de origem para tratar quando for Nulo.

Código:

Private Sub txt_tipo_amostra_AfterUpdate()
Dim TipoAmostra As String
TipoAmostra = Nz(Me.txt_tipo_amostra.Column(1))

On Error GoTo TrataNulo
Form.Requery

If TipoAmostra = "RETÉM" Then
    'HABILITA - "RETÉM"
    Me.txt_dt_envio_amostra_consumidor.Enabled = False
    Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
    Me.txt_dt_envio_amostra_retem.Enabled = True
    Me.txt_dt_conclusao_amostra_retem.Enabled = False
    Exit Sub
ElseIf TipoAmostra = "CONSUMIDOR" Then
        'HABILITA - "CONSUMIDOR"
        Me.txt_dt_envio_amostra_consumidor.Enabled = True
        Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
        Me.txt_dt_envio_amostra_retem.Enabled = False
        Me.txt_dt_conclusao_amostra_retem.Enabled = False
        Exit Sub
Else
            'HABILITA - "RETÉM; CONSUMIDOR"
            Me.txt_dt_envio_amostra_consumidor.Enabled = True
            Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
            Me.txt_dt_envio_amostra_retem.Enabled = True
            Me.txt_dt_conclusao_amostra_retem.Enabled = False
            Exit Sub
End If

TrataNulo:
                '"NULO"
                Me.txt_dt_envio_amostra_consumidor.Enabled = False
                Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
                Me.txt_dt_envio_amostra_retem.Enabled = False
                Me.txt_dt_conclusao_amostra_retem.Enabled = False
End Sub

Segue exemplo para teste:

caiosouza,

Você é fera mesmo. Deu certo, Muito obrigado pela ajuda.

Que bom amigo, obrigado pelo retorno.

Bons estudos!

Mestre,

Tudo bem? Novamente venho buscar ajuda..rsrs

Quando eu colocamos "Tipo_Amostra" como REQUERIDO na tabela, detectei um problema agora na hora de salvar algum dado no formulário ele me obriga o preenchimento do "Tipo_Amostra", e nem sempre iri preenche-lo.

Ai testei retirar o REQUERIDO, porém, aquela funcionalidade de habilitar o campo para de funcionar.

Desde já agradeço a sua ajuda e atenção.

Bom dia,

Remova o REQUERIDO do campo na tabela e atualize seu código com o seguinte:

Código:

Private Sub txt_tipo_amostra_AfterUpdate()
Dim TipoAmostra As String
TipoAmostra = Nz(Me.txt_tipo_amostra.Column(1))

If TipoAmostra = "RETÉM" Then
    'HABILITA - "RETÉM"
    Me.txt_dt_envio_amostra_consumidor.Enabled = False
    Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
    Me.txt_dt_envio_amostra_retem.Enabled = True
    Me.txt_dt_conclusao_amostra_retem.Enabled = False
    Exit Sub
ElseIf TipoAmostra = "CONSUMIDOR" Then
        'HABILITA - "CONSUMIDOR"
        Me.txt_dt_envio_amostra_consumidor.Enabled = True
        Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
        Me.txt_dt_envio_amostra_retem.Enabled = False
        Me.txt_dt_conclusao_amostra_retem.Enabled = False
        Exit Sub
Else
            'HABILITA - "RETÉM; CONSUMIDOR" E NULL
            Me.txt_dt_envio_amostra_consumidor.Enabled = True
            Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
            Me.txt_dt_envio_amostra_retem.Enabled = True
            Me.txt_dt_conclusao_amostra_retem.Enabled = False
            Exit Sub
End If
End Sub

Mestre,

Não funcionou... Ele habilita e funciona normal quando flego a opção de maneira individual, quando eu flego as duas opções e desmarco elas não funciona, habilita e desabilita de forma errada.

Grato pela ajuda e atenção.

Seguinte, isso acontece pelo fato de quando tem-se os dois valores: CONSUMIDOR; RETÉM está reconhecendo como Nulo.
No meu código anterior, fiz a questão do requerido justamente para tratar esse erro.

Se o valor for Nulo então ele acusa que o campo é REQUERIDO, nesse caso deixa inativo todos campos.
Quando o valor que receber for diferente de RETEM, CONSUMIDOR e REQUERIDO, automaticamente passa a ser os dois: CONSUMIDOR; RETÉM.

Entendeu?

No seu exemplo a impressão que dar é que antes de preencher os proximos campos o tipo_amostra deve estar com algum valor.

caiosouza,

O campo esta inativo e não foi preenchido ainda, entretanto, quando eu peço para editar no formulário mesmo ele inativo me obriga o preenchimento e não me deixa grava sem o preenchimento do tipo_amostra, apresenta um erro "3314: Você deve digitar um valor no campo Tipo de Amostra (Amostra)".

O que você sugere que eu faço?

Agradeço a ajuda e atenção.

Atualize seu código:

Código:

Private Sub txt_tipo_amostra_AfterUpdate()

Dim individual, duplo As String
individual = Forms!Frm_IRM_Investigação!txt_tipo_amostra.Column(1) 'RETÉM ou CONSUMIDOR
duplo = Forms!Frm_IRM_Investigação!txt_tipo_amostra.Column(0, 0) & Forms!Frm_IRM_Investigação!txt_tipo_amostra.Column(0, 1) 'RETÉM; CONSUMIDOR


If individual = "RETÉM" Then
    'HABILITA
    Me.txt_dt_envio_amostra_consumidor.Enabled = False
    Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
    Me.txt_dt_envio_amostra_retem.Enabled = True
    Me.txt_dt_conclusao_amostra_retem.Enabled = False


ElseIf individual = "CONSUMIDOR" Then
        'HABILITA
        Me.txt_dt_envio_amostra_consumidor.Enabled = True
        Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
        Me.txt_dt_envio_amostra_retem.Enabled = False
        Me.txt_dt_conclusao_amostra_retem.Enabled = False

ElseIf duplo = "" Or IsNull(duplo) Then
                'HABILITA
                Me.txt_dt_envio_amostra_consumidor.Enabled = False
                Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
                Me.txt_dt_envio_amostra_retem.Enabled = False
                Me.txt_dt_conclusao_amostra_retem.Enabled = False

Else
                If duplo = "  " Or duplo = "ÿÿ" Or duplo = "??" Then
                'HABILITA
                Me.txt_dt_envio_amostra_consumidor.Enabled = True
                Me.txt_dt_conclusao_amostra_consumidor.Enabled = False
                Me.txt_dt_envio_amostra_retem.Enabled = True
                Me.txt_dt_conclusao_amostra_retem.Enabled = False
                End If
End If
End Sub

O único problema é que na hora que vc coloca os dois valores: RETÉM; CONSUMIDOR é necessário clicar novamente no Ok da sua lista de valores.

caiosouza,

Primeiramente quero agradecer muito pela ajuda.

Mestre, apliquei o código na minha no meu projeto conforme orientado. Retirei o Requerido na Tabela e colei o código, quando clico de forma individual funciona, quando clico nas duas opções ele não habilita o outro campo de data somente um. Outra situação que notei foi quando eu desmarco as opções o campo continua habilitado.

Desculpe o transtorno, este código esta de rosca desde aquele dia estou tentando aqui também.