Olá, em um form tem um cadastro de certificados de cursos realizados pelos funcionários(tbCertificados) e cada tipo de certificado tem um número de pontos: aperfeiçoamento= 1 ponto; ensmédio=25;técnico=30;etc. Em outro form tem um "boletim de avaliação" , e tem os campos que se referem aos certificados cadastrados para cada funcionário que serve para uma soma total de avaliação funcional para posterior promoção de classe no cargo.
Como se faz um "SELECT" na tabela com a soma de pontos? E o valor da soma é carregado em um textbox...Pode ser um de exemplo, ou seja, vou usar um select para "aperfeiçoamento", outro para "ensinomedio", outro para "técnico", e assim por diante. O que preciso é algo semelhante ao VB6 abaixo, mas escrito em VBA para ACCESS.
ComandoSQL = "SELECT SUM ([nroPontos]) AS [Soma] " & _
"From tbCertificado " & _
"WHERE (((tbCertificado.nroPontos)=1))AND tbCertificado.codMatricula=" & txtMatriculaFunc
rs.Open ComandoSQL, conn, adOpenStatic
txtAperfeicoa.Text = rs!Soma
ALAN
Como se faz um "SELECT" na tabela com a soma de pontos? E o valor da soma é carregado em um textbox...Pode ser um de exemplo, ou seja, vou usar um select para "aperfeiçoamento", outro para "ensinomedio", outro para "técnico", e assim por diante. O que preciso é algo semelhante ao VB6 abaixo, mas escrito em VBA para ACCESS.
ComandoSQL = "SELECT SUM ([nroPontos]) AS [Soma] " & _
"From tbCertificado " & _
"WHERE (((tbCertificado.nroPontos)=1))AND tbCertificado.codMatricula=" & txtMatriculaFunc
rs.Open ComandoSQL, conn, adOpenStatic
txtAperfeicoa.Text = rs!Soma
ALAN