Consulta Update

Bom dia,


É a primeira vez que estou a mexer com o comando Update na alteração de registos na tabela e não sei se este será o melhor procedimento ou se falta alguma coisa.

A função faz uma análise às tabelas, verifica se há registos que estão mal preenchidos, deve fazer a correção com o Updade.
Funciona na perfeição. Mas não sei se é preciso fechar mais alguma coisa.

-----------------------------------------------

Private Sub corrigir_erro_Click()
 Dim BD As DAO.Database
 Dim leitura_dados As DAO.Recordset
 Dim var, i As Integer
 Dim consulta As String
 
 
 consulta = "SELECT Offer_Classes.Code_Classe, Offer_Classes.Code_Discipline FROM ((Offer_Classes LEFT JOIN Classes ON Offer_Classes.Code_Classe = Classes.CodeClasse) LEFT JOIN Assigned_Classes_discipline ON (Offer_Classes.Code_Discipline = Assigned_Classes_discipline.Code_Discipline) AND (Offer_Classes.Code_Classe = Assigned_Classes_discipline.Code_Classe)) LEFT JOIN Teachers ON Assigned_Classes_discipline.Code_Teacher = Teachers.Code_teacher WHERE (((Teachers.Name_Teacher) Is Null) AND ((Offer_Classes.Assigned)=Yes));"
   
 Set leitura_dados = CurrentDb.OpenRecordset(consulta, dbOpenDynaset)
   

 With leitura_dados
   While Not .EOF
   
     CurrentDb.Execute ("UPDATE Offer_Classes SET Assigned = False WHERE Code_Classe=" & leitura_dados!Code_Classe & " AND Code_Discipline='" & leitura_dados!Code_Discipline.Value & "'")
   
     .MoveNext
   
   Wend
   .Close
   
 End With
   Set leitura_dados = Nothing
 
End Sub


Obrigado!

Olá amigo,

Teria que ter um exemplo do DB, para analisarmos.

É um sistema de Gestão Escolar?

Att
Jomar
5573988619303