Private Sub BtnValidationVague_Click()
Dim StrSql As String
'Dim StrCrit As String
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT EtatPoste FROM MIGRATION WHERE (((MIGRATION.Num_vag) = " & Me.N° & ") And ((MIGRATION.FlagMigration) = True) And (MIGRATION.EtatPoste IS NULL))", dbOpenDynaset)
While Not oRst.EOF
'Passe en mode modification
oRst.Edit
'Affecte le statut EN COURS aux postes concernés
oRst.Fields("EtatPoste").Value = "En cours"
'Met à Jour
oRst.Update
'Passe au suivant
oRst.MoveNext
Wend
'Libération des objets
oRst.Close
oDb.Close
Set oRst = Nothing
Set oDb = Nothing
StrSql = " Delete MIGRATION.Num_vag, MIGRATION.FlagMigration FROM MIGRATION " _
& "WHERE (((MIGRATION.Num_vag)=" & Me.N° & ") AND ((MIGRATION.FlagMigration)=False));"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSql
DoCmd.SetWarnings True
Me.[MIGRATION_VAGUE].Form.Requery
'Me.Requery
End Sub
Partager