Letouzey - Les thèses en ligne de l'INP - Institut National ...

AnnexesEnd IfEnd Ifmatab.MoveNextTransfert1Exit FunctionEnd If'sinon, on passe à l'opérateur suivantnom = ""Loop'si aucun opérateur ayant comp n'a de compétence positiveTransfert3End IfNext champsEnd FunctionFunction Transfert3()Dim ope, ope2 As SingleDim maxi, mini As IntegerDim compet, comp_trans As StringSet mabase = CurrentDbSet matab = mabase.OpenRecordset("transfert", dbOpenTable)Set champs = matab.Fields(0)'effectue un transfert de comp2 vers comp sur 2 opérateurs en utilisant une compétence de transitioncompet = ""maxi=0mini = 48For Each champs In matab.Fields'recherche de l'opérateur ayant la plus grande part dans comp2If champs.Name = comp2 Thenmatab.MoveFirstDo Until matab.EOFIf matab![Nom de Famille] "somme" And matab![Nom de Famille] "charge"And matab![Nom de Famille] "opé nécessaires" And matab![Nom de Famille] "différence" ThenIf IsNull(champs) = False ThenIf champs > maxi Thenmaxi = champsope2 = matab.[Nom de Famille]signet2 = matab.BookmarkEnd IfEnd IfEnd Ifmatab.MoveNextLoopEnd If'recherche de l'opérateur ayant la plus petite part dans compIf champs.Name = comp Thenmatab.MoveFirstDo Until matab.EOFIf matab![Nom de Famille] "somme" And matab![Nom de Famille] "charge"And matab![Nom de Famille] "opé nécessaires" And matab![Nom de Famille] "différence" ThenIf IsNull(champs) = False ThenIf champs < mini Thenmini = champsope = matab.[Nom de Famille]signet = matab.BookmarkEnd IfEnd IfEnd Ifmatab.MoveNextLoopEnd If203