Início
pedrohgb7 26/10/2017, 22:54Boa noite,
Estou tentando atualizar vários registros de uma vez.. com esse SQL mesmo tendo vários registros que atendem esse criterio, só atualiza o primeiro registro. Como atualizar todos que atendem esse critério?
Obrigado
Estou tentando atualizar vários registros de uma vez.. com esse SQL mesmo tendo vários registros que atendem esse criterio, só atualiza o primeiro registro. Como atualizar todos que atendem esse critério?
- Código:
Private Sub bt_Limpar_Click()
Dim d As Database
Dim r As Recordset
Dim sqlQuery As String
Set d = CurrentDb
sqlQuery = "SELECT Cadeado.Equipe, Cadeado.Equipamento, Cadeado.Responsavel FROM Cadeado WHERE Cadeado.Local= 'LINGOTAMENTO'"
If MsgBox("Deseja realmente limpar todos os bloqueios?", vbQuestion + vbYesNo, "Sair") = vbYes Then
Set r = d.OpenRecordset(sqlQuery, dbOpenDynaset)
r.Edit
r!Equipe = ""
r!Equipamento = ""
r!Responsavel = ""
r.Update
End If
r.Close
Set d = Nothing
End Sub
Obrigado
