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]Erro 13 - Compatibilidade

    Compartilhe

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Seg 28 Ago 2017, 17:29

    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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Seg 28 Ago 2017, 18:56

    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


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Seg 28 Ago 2017, 19:14

    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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Seg 28 Ago 2017, 20:00

    Boa tarde,

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


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Ter 29 Ago 2017, 12:39

    Mestre,

    Segue o banco de dado em anexo.

    Agradeço a ajuda e atenção.
    Anexos
    TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (130 Kb) Baixado 2 vez(es)
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Ter 29 Ago 2017, 15:25

    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:
    Anexos
    TESTE.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (147 Kb) Baixado 1 vez(es)


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Ter 29 Ago 2017, 16:10

    caiosouza,

    Você é fera mesmo. Deu certo, Muito obrigado pela ajuda.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Ter 29 Ago 2017, 16:12

    Que bom amigo, obrigado pelo retorno.

    Bons estudos!


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Qua 30 Ago 2017, 15:07

    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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Qui 31 Ago 2017, 15:30

    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


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Qui 31 Ago 2017, 20:22

    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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Qui 31 Ago 2017, 20:39

    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.


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Qui 31 Ago 2017, 20:54

    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.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  caiosouza em Ter 12 Set 2017, 13:25

    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.


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 224
    Registrado : 25/05/2015

    Re: [Resolvido]Erro 13 - Compatibilidade

    Mensagem  Maurício Bruno em Ter 12 Set 2017, 13:41

    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.

      Data/hora atual: Sab 18 Nov 2017, 01:04