Discussion :

[AmélieT]

Bonjour,
J'ai un formulaire fait d'après une table, dans lequel il y a du code en vb pas compliqué.
Avant l'ouverture du formulaire j'ai ce message :
"Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée. Par exemple, une expression numérique peut contenir des éléments trop compliqués. Essayer de la simplifier en affectant des parties à des variables."
Mais, le formulaire s'ouvre quand même, je peux faire des modifs, consulter...
A quoi correspond ce message?
Merci d'avance
Amélie

[moilou2]

Tu ne peut plus le passer en mode formulaire? Tu peut juste rester en mode création?

[Chtulus]

Bonjour,

Je pense à la construction de ta requête avec l'assistant !

J'me trompe pas... Dans ton code tu dois appeler une requête !

[AmélieT]

Je ne fais pas appel à une requête.
En fait, le code sert à remplir automatiquement certains champs (ex: quand on choisit une commune, le code insee s'affiche...).
Le formulaire marche bien, mais c'est avant de l'ouvrir que j'ai ce message.

[Invité]

Bonjour

Bonjour,
J'ai un formulaire fait d'après une table, dans lequel il y a du code en vb pas compliqué.

Quel est ce code ?

Starec

[Domi2]

Bonjour,

Il serait certainement utile que tu postes le code.

Domi2

[AmélieT]

Voilà le code qui sert à remplir automatiquement le code insee de la commune indiquée par l'utilisateur, puis à créer un identifiant (code insee+numéro tapé), puis à faire une somme de logements, puis à remplir le chp GEST d'après le choix fait en PROMOTEUR.

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
 
Option Compare Database
 
Private Sub NOM_COMMUNE_AfterUpdate()
CODE_INSEE = NOM_COMMUNE.Column(1)
End Sub
 
Private Sub CODE_INSEE_AfterUpdate()
Private Sub NUM_ATLAS_AfterUpdate()
IDENT = CODE_INSEE & NUM_ATLAS
End Sub
 
Private Sub LOG_TOT1_AfterUpdate()
LOG_TOT = LOG_TOT1
End Sub
Private Sub LOG_TOT2_AfterUpdate()
LOG_TOT = LOG_TOT1 + LOG_TOT2
End Sub
Private Sub LOG_TOT3_AfterUpdate()
LOG_TOT = LOG_TOT1 + LOG_TOT2 + LOG_TOT3
End Sub
 
Private Sub PROMOTEUR_AfterUpdate()
GEST = PROMOTEUR
End Sub

[Arkham46]

Bjr,

Essaye de voir la source du formulaire.
Est-ce une table ou une requête?
Si c'est une requête, est-ce qu'elle fonctionne sans le formulaire?

[moilou2]

C'est pas étonnant ta deux fois PrivateSub à la suite:

Code :

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

1
2
3
4
Private Sub CODE_INSEE_AfterUpdate()
Private Sub NUM_ATLAS_AfterUpdate()
IDENT = CODE_INSEE & NUM_ATLAS
End Sub

[AmélieT]

Et qu'est-ce-qu'il faudrait que je mette à la place des deux private sub?
Il faut qu'après l'utilisateur ai rentré la commune et le num_atlas, le champs identifiant fasse la concaténation des deux automatiquement

[moilou2]

Peut tu réexpliquer?

Tu veux faire quoi concrétement?

Tu ne peut pas mettre 2 privateSub à la suite comme sa!!!

Explique par des phrases avec tes 2 txtBox ce que tu désire faire.

Parce que la tu à mis quelque chose sur évenement "Après mise à jour"?

[moilou2]

Tu as 3 txtBox en fait et c'est sur la EVENT que tu veux faire le regroupement des 2 autres?

En gros EVENT= Code INSEE + Num ATLAS?

C'est sa que tu veux dire non?

[AmélieT]

oui, c'est IDENT = CODE_INSEE + NUM_ATLAS
IDENT est une textbox, CODE_INSEE aussi (rempli par le code au-dessus), et NUM_ATLAS également (tapé par l'utilisateur)
Il faut que une fois CODE_INSEE indiqué et NUM_ATLAS rempli, IDENT se crée automatiquement

[AmélieT]

J'ai supprimé cette ligne qui finalement ne servait à rien :

Code :

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

Private Sub CODE_INSEE AfterUpdate()

Mais j'ai toujours mon message quand j'ouvre le formulaire...donc ca ne vient pas des deux Private Sub

[moilou2]

Tu rempli le quel champ en dernier?

[AmélieT]

Je rempli le NUM_ATLAS en dernier

[moilou2]

C'est le nom de tes txtBox:
CODE_INSEE et NUM_ATLAS

Si c'est le cas essaye:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub NUM_ATLAS_AfterUpdate()
 
Dim INSEE as string
Dim ATLAS as string
 
INSEE=me.CODE_INSEE.value
ATLAS=me.NUM_ATLAS.value
 
me.IDENT.value = "& INSEE &" "& ATLAS &"
 
End Sub

[AmélieT]

J'ai testé, mais j'ai toujours le même message et ça ne marche plus après dans le formulaire...
Disons qu'avec ce que j'ai fais, tout marche, c'est simplement que je me demande pourquoi j'ai ce message avant!

[moilou2]

Remet l'intitulé exact du message?

[AmélieT]

"Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée. Par exemple, une expression numérique peut contenir des éléments trop compliqués. Essayer de la simplifier en affectant des parties à des variables."