Estou obtendo o erro 3421 na linha: rs("Campo" & i) = Capturar
Alguma luz? obrigado
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