Le portail francophone de la géomatique

Salut,

Un message d'erreur?
Le script doit être rédigé comme ceci:

If [Resultat] = "Conforme" then
 [Prochain_C] = [Controle] + 3650
EsleIf [Resultat] = "Non-Conforme" then
 [Prochain_C] = [Controle] + 365
End if

Quelle est la nature du champ --> Controle
A+
Joël

Dernière modification par Spacejo (Tue 01 October 2013 17:38)

Et comme ceci:

I=[Resultat]
ACalculer=[Prochain_C]
Test=[Controle]

If I="Conforme" then
ACalculer=Test + 3650
ElseIf I="Non-Conforme" then
ACalculer=Test + 365
End If

Mettre "ACalculer" dans le champ en dessous du code

Dernière modification par Spacejo (Tue 01 October 2013 17:51)

En dessous de la fenêtre oû tu places le code il doit y avoir un champ appeler "Prochain_C="
C'est dans ce champ qu'il te faut placer la variable "ACalculer"
Une question peut être bête (désolé) ---> tu as coché le mode "Avancé" ?

Dernière modification par Spacejo (Tue 01 October 2013 17:57)

Comme tu as une version 10: Coche "VBscript" et "ShowCodeBlock"
Voir ---> Utilisation de blocs de code
Dans --- > http://help.arcgis.com/fr/arcgisdesktop … 002m000000

Dernière modification par Spacejo (Tue 01 October 2013 18:26)

Merci pour les infos. La solution alternative que tu me proposes est ce que j'avais réalisé avant de faire ce post. Mais je voulais comprendre comment faire les conditionnelles pour la prochaine fois.
Je vais tester dans la journée les réglages et je te tiens au courant. Entre nancéen...

Salut,

Depuis la version 10 la déclaration de variable standard n'est plus obligatoire et pose des problèmes (j'ai lus plusieurs posts là dessus )
Donc plus de --> Dim ACalculer
Une question de quelle nature est ta colonne ACalculer?

Déclaration de variable --> Voir post#3 --> http://www.forumsig.org/showthread.php/ … -ArcGis-10
Je suppose que la nature de "Acontroler" est aussi au format date.
Je pense que ce qui pose problème c'est le calcul des dates
Une possibilité pour voir si c'est ça qui pose problème.
Fais une copie de ta table (prudence )
Ajoute une colonne dans ta table "New" au format string
Puis

I=[Resultat]
ACalculer=[New]


If I="Conforme" then
ACalculer="oui"
ElseIf I="Non-Conforme" then
ACalculer="Non"
End If

Dernière modification par Spacejo (Wed 02 October 2013 11:28)

Je viens de réaliser la manip et cela fonctionne parfaitement.

Bonjour,
La question indispensable pour laquelle je n'ai pas vu de réponse c'est : Quel est la nature de ton champ [Controler] .
en fait il y a deux solutions
la première : tu utilise la fonction vbscrite dateAdd:

Dim MonCalcul

Select case [TonChampConformite] 
  case "Conforme"
    MonCalcul =DateAdd ("yyyy",10, [Controler] )
  case "Non Conforme"
    MonCalcul =DateAdd ("yyyy",1, [Controler] )
end select

la deuxième : tu converti en nombre ta date pour lui ajouter un nombre de jour (tu ne peux pas ajouter simplement des jours a une date puisqu'une date est multivariée en année mois jours heure seconde)

Dim MonCalcul

Select case [TonChampConformite] 
  case "Conforme"
  MonCalcul =Int ([Controler] )+3650
  case "Non Conforme"
  MonCalcul =Int ([Controler] )+365
end select

évidemment tout ça fonctionne uniquement si [Controler] est en type "date"

Dernière modification par Forestis (Wed 02 October 2013 11:41)

Pour préciser quand tu converti une date en nombre cela affiche le nombre de jour depuis le 01/01/1900 (ou le 31/12/1899) je sais plus)
et c'est donc avec ce chiffre que tu peux rajouter des jours.
ex : aujourd'hui nous sommes 02/10/2013 soit 41549 jours après cette date de début du calendrier.

Pour DateAdd un lien vers les fonctions vbscript de date : http://www.w3schools.com/vbscript/vbscr … ctions.asp

EDIT en fait c'est le 30/12/1899 la date de reference

Dernière modification par Forestis (Wed 02 October 2013 11:57)