Discussion :

[973thom]

Bonjour,

Dans Access 2003 je fais une routine en VBA pour connaitre la valeur la plus grande parmis trois champ de type numérique.

J'ai donc déclaré trois variables : SurfZPG (Surface d'une parcelle dans la Zone des Pas Géométrique) SurfTitre (Surface de la parcelle déjà titrée) SurfDOM (Surface de la parcelle en terrain DOManial).

Effectivement, une parcelle peut avoir une emprise sur ces trois "type de terrain".

Je fais donc une boucle dans ma table et pour chaque enregistrements je souhaite connaitre la valeur la plus grande afin de savoir où se situe majoritairement mes parcelles. Ainsi je notre ZPG / DOM ou TITRE dans un quatrième champ (la variable mise à jour et qui sera attribuée à ce champ est : SurfRetenu)

Avez vous une idée de la requête à écrire pour connaitre la valeur la plus grande ?

Voici mon code... qui ne fais qu'une boucle pour le moment...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Private Sub Commande1_Click()
Dim DBS As Database
Dim TAB_DOSSIER As DAO.Recordset
Dim SurfZPG , Dim SurfTitre, surfDom As Integer
Dim SurfRetenue As String

Set DBS = CurrentDb()
Set TAB_DOSSIER = DBS.OpenRecordset("TAB_DOSSIER_PARCELLE", dbOpenTable)

TAB_DOSSIER.MoveFirst
While Not TAB_DOSSIER.EOF
    SurfRetenue = ""    
    SurfZPG = TAB_DOSSIER("SURF_ZPG")
    SurfTitre = TAB_DOSSIER("SURF_ZPG")
    surfDom = TAB_DOSSIER("SURF_ZPG")    
    
     'C'est ici que je dois connaitre la plus grande des trois valeurs
    
    TAB_DOSSIER.Edit
         TAB_DOSSIER("LIEU") = SurfRetenue
    TAB_DOSSIER.Update
    
    TAB_DOSSIER.MoveNext
    
Wend    
End Sub

Merci d'avance pour votre aide

[illight]

Pourquoi ne pas créer une valeur temporaire et comparer avec celle-ci Un truc de ce genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
dim ValTemp as long           'enfin ça dépend ce que sont tes valeurs
While Not TAB_DOSSIER.EOF
    SurfRetenue = ""    
    SurfZPG = TAB_DOSSIER("SURF_ZPG")
    SurfTitre = TAB_DOSSIER("SURF_ZPG")
    surfDom = TAB_DOSSIER("SURF_ZPG")    
 
    valtemp = SurfZPG
    if SurfTitre > valtemp then
              valtemp = SurfTitre
   end if
    if surfDom > valtemp then
              valtemp = surfDom
   end if
 
 
    TAB_DOSSIER.Edit
         TAB_DOSSIER("LIEU") = SurfRetenue
    TAB_DOSSIER.Update
 
    TAB_DOSSIER.MoveNext
 
Wend

un truc dans ce genre la

J'espère avoir été compréhensible parce qu eje viens de remarquer que ut avais fait une valeur SurfRetenue et ça doit etre ça ta variable temporaire en fait

[973thom]

Merci du coup de main.

Mais je me pose justement la question de savoir si on prends bien tout les cas en compte comme ça... je n'arrive pas à bien visualiser...

Merci

[illight]

SI tu veux faire un test, fait une procédure de test et tu prend 3 valeurs différentes et tu les changes à chaque fois tu verra bien si ça fonctionne mais normalement ça devrait marcher

Par exemple, ave cun exemple simple si tu prend :
a = 45
b = 47
c = 46

valtemp prend la valeur a au départ, donc 45
Ensuite il compare avec b, vu qu'il est plus grand il prend sa valeur, donc 47
Enfin, il compare avec c, vu qu'il est plus petit il garde la valeur de b, donc 47

[973thom]

Effectivement... vu comme cela ça devrait être bon.

Je teste sur une table temporaire et je te tiens au courant.

Merci beaucoup !

thomas