rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))
Não estou conseguindo achar o erro.
Obrigado desde já pela ajuda!
- Código:
Private Sub botExibir_Click()
SeDataNula
If Me.BoxTipos = "Pontuação" Then
Dim rstComn As Recordset
Dim SQL_V As String
SQL_V = "SELECT * " + _
"FROM tblComunicados " + _
"WHERE tblComunicados.txt_Situacao <> 'Em Análise'" + _
"AND tblComunicados.txt_Situacao <> 'Cancelado'" + _
"AND tblComunicados.txt_Situacao <> 'Indevido'" + _
"AND tblComunicados.txt_Situacao <> ' Em Análise'" + _
"AND tblComunicados.txt_nomeDemanda <> 'Regularidade Fiscal';"
Set rstComn = CurrentDb.OpenRecordset(SQL_V, dbOpenDynaset)
Do Until rstComn.EOF
Dim rstIrr As Recordset
Dim SQL_I As String
SQL_I = "SELECT * " + _
"FROM tblIrregularidades " + _
"WHERE tblIrregularidades.txt_Irregularidade = '" & rstComn!txt_nomeDemanda & "'"
Set rstIrr = CurrentDb.OpenRecordset(SQL_I, dbOpenDynaset)
rstComn.Edit
rstComn![pontNI] = rstIrr!Gravidade
rstComn.Update
rstComn.Edit
rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))
rstComn.Update
rstComn.MoveNext
Loop
rstComn.OpenRecordset
End If
- Código:
Private Sub botExibir_Click()
SeDataNula
If Me.BoxTipos = "Pontuação" Then
Dim rstComn As Recordset
Dim SQL_V As String
SQL_V = "SELECT * " + _
"FROM tblComunicados " + _
"WHERE tblComunicados.txt_Situacao <> 'Em Análise'" + _
"AND tblComunicados.txt_Situacao <> 'Cancelado'" + _
"AND tblComunicados.txt_Situacao <> 'Indevido'" + _
"AND tblComunicados.txt_Situacao <> ' Em Análise'" + _
"AND tblComunicados.txt_nomeDemanda <> 'Regularidade Fiscal';"
Set rstComn = CurrentDb.OpenRecordset(SQL_V, dbOpenDynaset)
Do Until rstComn.EOF
Dim rstIrr As Recordset
Dim SQL_I As String
SQL_I = "SELECT * " + _
"FROM tblIrregularidades " + _
"WHERE tblIrregularidades.txt_Irregularidade = '" & rstComn!txt_nomeDemanda & "'"
Set rstIrr = CurrentDb.OpenRecordset(SQL_I, dbOpenDynaset)
rstComn.Edit
rstComn![pontNI] = rstIrr!Gravidade
rstComn.Update
rstComn.Edit
rstComn![NotaCom] = ((rstComn!pontNI / 2) / Prazificador(rstComn))
rstComn.Update
rstComn.MoveNext
Loop
rstComn.OpenRecordset
End If
Não estou conseguindo achar o erro.
Obrigado desde já pela ajuda!
Última edição por Bernidios em 19/9/2017, 20:56, editado 1 vez(es)