1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
'Chrome
'Chromium
TempVars.Remove ("minCr") 'Variables temporaires utilisées pour la mise en forme conditionnelle (MFC)
TempVars.Remove ("maxCr") '(couleur verte ou rouge suivant la valeur de cette variable). On les supprime pour
'remettre à 0 la MFC à chaque nouvelle analyse.
If (txtCrMass <> "") And IsNull(txtCrSigma) Then 'Si on a rempli la case "%Masse" du chrome mais pas la case "Sigma" alors.
If (VariablesPubliques.French) Then
MsgBox "Vous avez oublié de rentrer l'écart-type de l'analyse du Chrome."
ElseIf (VariablesPubliques.English) Then
MsgBox "You forgot to enter the standard deviation for Chromium analysis."
End If
Exit Sub 'On quitte la procédure de recherche de particules.
ElseIf (txtCrMass <> "") And (txtCrSigma <> "") Then 'Sinon, si les deux cases sont remplies alors.
Dim minCr, maxCr As String 'Déclaration des variable servant à la comparaison des minimum et maximum en
'Chrome de l'analyse avec les compositions des différents alliages.
Dim MFCMinCr, MFCMaxCr As Single 'Variables temporaires au format réel simple (MFC)
minCr = txtCrMass - 3 * txtCrSigma.Value 'Définition des valeurs de ces deux variables,
maxCr = txtCrMass + 3 * txtCrSigma.Value 'Elles sont égales à %Masse de Chrome + ou - 3*Sigma du chrome.
MFCMinCr = oRst("CrMin") ' Récupère les valeurs calculées équivalentes à "minCr et "maxCr" et les
MFCMaxCr = oRst("CrMax") ' attribue aux variables temporaires
TempVars.Add "minCr", MFCMinCr 'On enregistre ces valeurs dans les variables temporaires respectives.
TempVars.Add "maxCr", MFCMaxCr
minCr = Replace(minCr, ",", ".") 'Les cases sont au format numérique pourcentage et obligent de mettre des
maxCr = Replace(maxCr, ",", ".") 'virgules mais elles doivent être remplacées en points par le code pour qu'il marche.
If InStr(minCr, "-") = 1 Then ' Si la valeur mini de Cr de l'analyse est négative (signe -) , alors minCr = 0.00001.
minCr = "0.00001"
End If
If (AppendCritNote) Then 'si on déjà analysé selon d'autres éléments (Mn,Si,etc.)alors.
sCritNote = sCritNote & " + " 'On ajoute ce critère à la requête de recherche
End If
sCritNote = sCritNote & "Abs((Nz([CrMaxCompo], 0) >= " & minCr & ") And (Nz([CrMinCompo], 0) <= " & maxCr & "))"
'sCritNote est le critère de recherche, il faut que la composition max en Chrome de l'alliage soit supérieure
'ou égale au minimum de l'analyse pour le Chrome ET que la composition mini de l'alliage soit infèrieure ou
'égale au maximum de l'analyse.
AppendCritNote = True 'Passe à "Vrai" pour indiquer que l'on analyse selon au moins un élément.
End If |
Partager