Discussion :

[Peter K.]

J'ai un Formulaire FormREGION et son sous-Formulaire SubFormVILLE
J'ai 2 tables tables
TblREGION avec 2 champs
- CodeReg(2)
- NomReg(20)
TblVille avec 3 Champs
- CodeVille(4)
- NomVille
- CodeReg(2)
Le code ville doit être composé de CodeReg + deux caractère qu'on aura entré préalablement dans CodeVille.
Au moment ou l'utlisateur saisit le info du formulaire FormTblVille, Je voudrais pouvoir affecter automatiquement les deux premiers caractères du champ CodeReg au champs Codeville, pour que ce dernier n'est plus qu'à completer que les deux derniers caractères avant la mise à jour de l'enrégistrement et le passage à l'enrégistrement suivant. J'utilise un formulaire continu sous forme de table.
Pouvez vous m'aider sur les codes VBA à inserrer dans les propriétés évenementielles des champs ou du formulaire ?
Merci.
J'ai essayé dans le sous-Formulaire:

Code :

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

1
2
3
4
5
Private Sub CodeVille_BeforeUpdate(Cancel As Integer)
  Dim CodeV as Variant
  CodeV = Inputbox("Entrez le code ville")
  Me![CodeVille]= Me![CodeReg] & CodeV
End Sub

La procédure évènementielle ne s'exécute même pas (pas de boite de dialogue inputbox) et le champ Codeville n'est pas mis à jour

Merci

[helas]

il est possible de mettre

Code :

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

1
2
 
=[Formulaires]![formRegion]![codeReg]

comme Valeur par defaut pour le champ CodeVille, ainsi le codeRegion s'affiche, il suffit de completer

l'evenement BeforeUpdate se produit après la saisie lors de la validation

[fgiambelluco]

Bonjour le forum
Si le code de la ville doit être demandé à l'utilisateur, autant le demander à la saisie ou modification du code région soit:

Code :

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

1
2
3
4
5
Private Sub CodeReg_AfterUpdate()
  Dim CodeV as Variant
  CodeV = Inputbox("Entrez le code ville")
  Me![CodeVille]= Me![CodeReg] & CodeV
End Sub

---

il est possible de mettre

Code :

=[Formulaires]![formRegion]![codeReg]
comme Valeur par defaut pour le champ CodeVille, ainsi le codeRegion s'affiche, il suffit de completer

La valeur par défaut est calculée lors d'un nouvel enregistrement et ne réagit plus par la suite, comme la saisie du code région.

[Strontium]

Une proposition:

Code :

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

1
2
3
4
5
Private Sub CodeVille_Enter()
  if len(CodeVille) <= 0 then
      Me![CodeVille]= Me![CodeReg]
  end if
End Sub

L'idée est: quand l'utilisateur sélectionne le champ, VBA teste son contenu. S'il est vide, il ajoute les code région, sinon il ne fait rien.

Pour ce qui est du problème que rien ne fonctionne, vérifie le nom de ton champ texte. Vu la procédure, il doit d'appeller CodeVille aussi.
Ce code doit être dans le module de ton sous-formulaire. Si rien ne se passe, vérifie les propriétés du champ texte: "événements" puis "Sur Entrée". Il doit y avoir [Procédure événementielle].