MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro de conversão de tipos de dados ao passar valor de uma variável para outra

    Compartilhe

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    [Resolvido]Erro de conversão de tipos de dados ao passar valor de uma variável para outra

    Mensagem  Antonybrazil em Sex 14 Mar 2014, 14:17

    Estou obtendo o erro 3421 na linha:  rs("Campo" & i) = Capturar

    Alguma luz? obrigado


    Código:
    Private Sub Comando3_Click()

    Captura0 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT2]) ")
    Captura1 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [Conclusao]='Reagente' ")
    Captura2 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT2]='Inválido' ")
    Captura3 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoSifilis]) ")
    Captura4 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Reagente' ")
    Captura5 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Inválido' ")
    Captura6 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHBsAg]) ")
    Captura7 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Reagente' ")
    Captura8 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Inválido' ")
    Captura9 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHCV]) ")
    captura10 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHCV]='Reagente' ")
    Captura11 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHCV]='Inválido' ")
    Captura12 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante Indígena' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull(  [ResultadoT2]) ")
    Captura13 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [Conclusao]='Reagente' ")
    Captura14 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and [ResultadoT2]='Inválido' ")
    Captura15 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull(  [ResultadoSifilis]) ")
    Captura16 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoSifilis]='Reagente' ")
    Captura17 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoSifilis]='Inválido' ")
    Captura18 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull (  [ResultadoHBsAg]) ")
    Captura19 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHbsAg]='Reagente' ")
    Captura20 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHbsAg]='Inválido' ")
    Captura21 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull (  [ResultadoHCV]) ")
    Captura22 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHCV]='Reagente' ")
    Captura23 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHCV]='Inválido' ")
    Captura24 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante Outras' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull(  [ResultadoT2]) ")
    Captura25 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [Conclusao]='Reagente' ")
    Captura26 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante outras' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante outras' and [ResultadoT2]='Inválido' ")
    Captura27 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull(  [ResultadoSifilis]) ")
    Captura28 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [ResultadoSifilis]='Reagente' ")
    Captura29 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [ResultadoSifilis]='Inválido' ")
    Captura30 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull (  [ResultadoHBsAg]) ")


    CurrentDb.Execute "DELETE * FROM RltMapa;"
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM RltMapa;") 'Abre a tabela

    With rs

        rs.AddNew  'inclui novo registro
        For i = 0 To 30
        Capturar = ("captura" & i)
        rs("Campo" & i) = Capturar
        Next i

        rs.Update  'grava o registro inserido
        rs.Close
    End With
    End Sub

    Gilberto Rocha
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 21/01/2010

    Re: [Resolvido]Erro de conversão de tipos de dados ao passar valor de uma variável para outra

    Mensagem  Gilberto Rocha em Sex 14 Mar 2014, 15:36

    Onde você declarou a variavel Capturar?


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Baixe o sistema Congrega Fácil Online: Baixe aqui
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    Faça Faculdade Teológica Online: Baixe aqui
    [Você precisa estar registrado e conectado para ver este link.]

    Batalha Bíblica, teste gratis!
    [Você precisa estar registrado e conectado para ver este link.]


    Analista de Controladoria

    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    Re: [Resolvido]Erro de conversão de tipos de dados ao passar valor de uma variável para outra

    Mensagem  Antonybrazil em Sex 14 Mar 2014, 17:56

    Se eu fizer como abaixo tb não dá.

    Código:

    Private Sub Comando3_Click()

    Dim Captura1 As Integer
    Dim Captura2 As Integer
    Dim Captura3 As Integer
    Dim Captura4 As Integer
    Dim Captura5 As Integer
    Dim Captura6 As Integer
    Dim Captura7 As Integer
    Dim Captura8 As Integer
    Dim Captura9 As Integer
    Dim Captura10 As Integer
    Dim Captura11 As Integer
    Dim Captura12 As Integer
    Dim Captura13 As Integer
    Dim Captura14 As Integer
    Dim Captura15 As Integer
    Dim Captura16 As Integer
    Dim Captura17 As Integer
    Dim Captura18 As Integer
    Dim Captura19 As Integer
    Dim Captura20 As Integer
    Dim Captura21 As Integer
    Dim Captura22 As Integer
    Dim Captura23 As Integer
    Dim Captura24 As Integer
    Dim Captura25 As Integer
    Dim Captura26 As Integer
    Dim Captura27 As Integer
    Dim Captura28 As Integer
    Dim Captura29 As Integer
    Dim Captura30 As Integer

    Captura0 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT2]) ")
    Captura1 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [Conclusao]='Reagente' ")
    Captura2 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT2]='Inválido' ")
    Captura3 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoSifilis]) ")
    Captura4 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Reagente' ")
    Captura5 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Inválido' ")
    Captura6 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHBsAg]) ")
    Captura7 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Reagente' ")
    Captura8 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Inválido' ")
    Captura9 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHCV]) ")
    captura10 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHCV]='Reagente' ")
    Captura11 = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHCV]='Inválido' ")
    Captura12 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante Indígena' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull(  [ResultadoT2]) ")
    Captura13 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [Conclusao]='Reagente' ")
    Captura14 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and [ResultadoT2]='Inválido' ")
    Captura15 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull(  [ResultadoSifilis]) ")
    Captura16 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoSifilis]='Reagente' ")
    Captura17 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoSifilis]='Inválido' ")
    Captura18 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull (  [ResultadoHBsAg]) ")
    Captura19 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHbsAg]='Reagente' ")
    Captura20 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHbsAg]='Inválido' ")
    Captura21 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and not isnull (  [ResultadoHCV]) ")
    Captura22 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHCV]='Reagente' ")
    Captura23 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante indígena' and  [ResultadoHCV]='Inválido' ")
    Captura24 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante Outras' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull(  [ResultadoT2]) ")
    Captura25 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [Conclusao]='Reagente' ")
    Captura26 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante outras' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante outras' and [ResultadoT2]='Inválido' ")
    Captura27 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull(  [ResultadoSifilis]) ")
    Captura28 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [ResultadoSifilis]='Reagente' ")
    Captura29 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and  [ResultadoSifilis]='Inválido' ")
    Captura30 = DCount("[Populacao]", "Relatorio", " [populacao] = 'Gestante (outras)' and not isnull (  [ResultadoHBsAg]) ")


    CurrentDb.Execute "DELETE * FROM RltMapa;"
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM RltMapa;") 'Abre a tabela

    With rs

        rs.AddNew  'inclui novo registro
        For i = 0 To 30
        rs("Campo" & i) = ("captura" & i)
        Next i

        rs.Update  'grava o registro inserido
        rs.Close
    End With
    End Sub


    Antonybrazil
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 102
    Registrado : 13/04/2011

    Re: [Resolvido]Erro de conversão de tipos de dados ao passar valor de uma variável para outra

    Mensagem  Antonybrazil em Sab 12 Abr 2014, 04:35

    Fica assim para resolver o tópico:

    Código:

    Private Sub Comando3_Click()

    Dim Captura(9) As Variant

    Captura(0) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT1]) ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoT2]) ")
    Captura(1) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [Conclusao]='Reagente' ")
    Captura(2) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT1]='Inválido' ") + DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and [ResultadoT2]='Inválido' ")
    Captura(3) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull(  [ResultadoSifilis]) ")
    Captura(4) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Reagente' ")
    Captura(5) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoSifilis]='Inválido' ")
    Captura(6) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHBsAg]) ")
    Captura(7) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Reagente' ")
    Captura(8) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and  [ResultadoHbsAg]='Inválido' ")
    Captura(9) = DCount("[Populacao]", "Relatorio", " [populacao] = 'maternidade' and not isnull (  [ResultadoHCV]) ")


    With rs

       rs.AddNew  'inclui novo registro
       For i = 0 To 9
       rs("Campo" & i) = Captura(i)
       Next i

       rs.Update  'grava o registro inserido
       rs.Close
    End With
    End Sub


      Data/hora atual: Dom 11 Dez 2016, 00:14