Discussion :

[Debutant10]

Bonjour,

Pour avancer dans ma base de données j'aurai aimé savoir comment créer une boucle en VBA ? et tester la valeur de mes champs.

Lorsque je lance la compil le script bloque à select Case (sur ligne en jaune).
Je voudrais parcourir mes champs de C52 à C1 et envoyer une valeur dans un champs nomé variation 1 ou 2 ou 3 (voir ci-dessous) merci de votre aide

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
Private Sub Form_BeforeUpdate(Cancel As Integer)
 For i = 52 To 1 Step -1    
   Select Case Nz(Me("C" & CStr(i)), "")  'teste la valeur du champ C52, C51, ... Jusqu'a C1
  Case "RAS"
   Me("variation") = 1   
   Exit For                 'sortie de la boucle, les autres champs ne sont pas testés
  Case "CC"
   Me("variation") = 2
   Exit For
  Case "X"
   Me("variation") = 3
   Exit For
  End Select
 Next i
End Sub

[marot_r]

Quel est le message d'erreur du compilateur ?

A+

[Debutant10]

Message : Erreur d'execution 3164 le champ ne peut être mis à jour

(Voulez-vous la pièce jointe ? )

[marot_r]

Non merci pour la pièce jointe.

Peux tu confirmer que c'est sur la ligne 3 que l'erreur se produit car je ne vois pas de cause évidente à cela.

A+

[Debutant10]

Je viens de relancer actuellement quand j'inscris par exemple la valeur "CC" dans le champ C2 de mon formulaire la ligne VBA --> Me("variation") = 2 et en jaune

Message : Erreur d'execution 3164 le champ ne peut être mis à jour

[marot_r]

OK, cela a plus de sens.

Peux-tu modifier le champ [variation] à la main, c-à-d sans passer par le code, dans ton formulaire ?
Si non, peux-tu le modifier à la main dans la table ou la requête qui alliemente ton formulaire ?

A+