Discussion :

[Nephyline]

Bonjour,

Je souhaite, dans mon formulaire, qu'une zone de texte affiche un numéro incrémenté de 1 à chaque fois que l'utilisateur coche une case. Cette numérotation est continue pour tous les enregistrements dont le champ "Site" est identique mais reprend à zéro si la nouvelle fiche dépend du même site.

Exemple :

Site | Coch | Numérotation
Ici | x | 1
Ici | _ |
Ici | x | 2
Là | x | 1
Ici | x | 3
Ici | x | 4
Ici | x | 5
Là | _ |
Là | x | 2
Là-bas | x | 1
...

Je m'arrache actuellement les cheveux à essayer de faire fonctionner la commande rowsource sur une zone de texte... En vain, évidemment...

Existe-t-il un équivalent de cette commande ou moyen de faire ce que je cherche autrement ?

Merci de votre attention.

[micniv]

Bonjour,

Ton formulaire en mode Design,
ton controle puis propriétés , la propriété "Souce controle" puis touche F1 !

[Nephyline]

J'ai bien vu la commande ControlSourse mais il ne répond pas à ma requête SQL et affiche #Nom ? dans ma zone de texte

[micniv]

Je pense avoir deviné ton analyse.
Donc si
. le champ Numérotation est un champ texte (?)
. tu as affecté Numérotation comme ControlSource du controle Numérotation :

Code :

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

1
2
3
4
5
6
7
 
if Dlookup("Numérotation", "Ta_Table", "[Site]=" me!site) not is null then
 
[Numérotation] = dmax("cint(Numérotation)", "Ta_Table", "[Site]=" me!site) + 1
else
[Numérotation ] = 0
end if

Suggestion passe ton champ Numérotation en numérique ...

[Nephyline]

. le champ Numérotation est un champ texte (?)

=> Exact Mais modifié suite à ton post

. tu as affecté Numérotation comme ControlSource du controle Numérotation

J'ai remis Numerotation comme contrôle source de txt_Numerotation et j'ai passé ce dernier en numérique.

Par contre :

Code :

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

1
2
3
4
5
6
7
 
If Not IsNull (Dlookup("Numérotation", "Ta_Table", Me.cbo_site = "Site")) Then
 
[txt_Numérotation] = dmax("cint(Numérotation)", "Ta_Table", Me.cbo_site = "Site") + 1
else
[txt_Numérotation ] = 0
end if

Ça a l'air de fonctionner mais il reste sur 0 quand je tique Je vais essayer de trouver ce qui cloche.
(À ce propos, quelle est la différence entre "Me." et "Me!" ?)

Merci micniv pour le temps que tu me consacres

Edit : En fait, le problème vient du DMax... ou du DLookUp... Je continue de chercher

[Nephyline]

Bon, alors ça vient du DLookUp qui me renvoie une valeur Null... Je ne comprends pas pourquoi alors que ma chaîne a l'air bonne (c'est pourtant claire qu'elle ne l'est pas ! )...

[Nephyline]

Je crois avoir compris d'où venait mon problème avec DLookUp et DMax... C'est qu'il s'agit de commande à utiliser avec le DAO, hors je ne comprends pas bien comment intégrer un If... Else... End If dans le DAO, après avoir lu le très bon article de Christophe Warin sur le DAO Access.

Est-ce quelqu'un pourrait m'aider, s'il vous plaît ?

[micniv]

regarde ce que tu as saisi :

Code :

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

... Dlookup("Numérotation", "Ta_Table", Me.cbo_site = "Site")) ...

lau lieu de

Code :

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

... Dlookup("Numérotation", "Ta_Table", "[Site]=" me!site ...

[Site]= doit être le champ de ta table et non le controle de ton form !!!

[Nephyline]

Oui mais si je mets

Code :

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

Dlookup("Numérotation", "Ta_Table", "[Site]=" me!site)

Il me dit qu'il manque un séparateur de liste ou ) alors que j'ai fermé toutes mes parenthèses
Ça coince sur le "Me"

Edit : Il me dit "Erreur de syntaxe" sur :

Code :

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

If DLookUp("Numerotation", "Ma_table", "[Site]=" Me!cbo_Site) Not Is Null Then...

[micniv]

Site est un champ Texte alors il faut encadrer par des '

Code :

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

Dlookup("Numérotation", "Ta_Table", "[Site]='" & me.site & "'" )

[Nephyline]

J'avais bien remplacé ça de moi-même hier soir mais j'obtenais toujours une erreur "Erreur de syntaxe" sur cette ligne :

Code :

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

If DLookUp("Numerotation", "Ma_Table", "[Site]='" & Me.cbo_Site & "'") Not Is Null Then...

J'ai aussi essayé

Code :

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

If Not IsNull (DLookUp("Numerotation", "Ma_Table", "[Site]='" & Me.cbo_Site & "'")) Then...

Sans meilleur succès...

[Nephyline]

J'ai trouvé la solution pour que chaque fiche cochée ait un numéro incrémenté... Je suis revenu au système de la liste déroulante mais c'est ce qui est le plus efficace, même si ça oblige l'utilisateur à faire une action de plus, à savoir sélectionner le chiffre dans la liste déroulante.

Merci quand même pour ton aide !