MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Antonybrazil 14/3/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
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Gilberto Rocha 14/3/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!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Antonybrazil 14/3/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

    avatar
    Antonybrazil
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Antonybrazil 12/4/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


    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 21:32