Discussion :

[Invité]

Bonjour à tous

Afin d'effectuer une mise en forme conditionnelle, j'ai besoin de créer un N° de ligne dans mon formulaire en mode continu.

J'ai ajouté la fonction suivante dans un module:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function NumeroLigne(frm As Form)
Dim rst As Recordset
On Error Goto NumeroLigneErr
Set rst = frm.RecordsetClone
rst.Bookmark = frm.Bookmark
NumeroLigne = rst.AbsolutePosition
Set rst = Nothing
Exit Function
NumeroLigneErr:
	Set rst = Nothing
	NumeroLigne = Null
	Exit Function
End Function

J'ai créé dans mon formulaire une zone de texte indépendante "Numéro" avec en source contrôle l'expression :

Code :

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

1
2
 
=NumeroLigne(Formulaires!Formulaire_récap)

Et celà ne marche pas

Fais je une erreur grossière?

Merci d'avance

[argyronet]

Bonjour,

Il faut poser ta fonction dans le sous-formulaire et la modifier comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NumeroLigne() As Long
Dim rst As dao.Recordset
    On Error GoTo NumeroLigneErr
    Set rst = Me.RecordsetClone
    rst.Bookmark = Me.Bookmark
    NumeroLigne = rst.AbsolutePosition
NumeroLigneFin:
    Set rst = Nothing
    Exit Function
NumeroLigneErr:
    NumeroLigne = 0
    Resume NumeroLigneFin
End Function

Ensuite, ta zone de texte indépendante "Numéro" est égale à

Code :

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

=NumeroLigne()

Argy

[helas]

Un texte independant affichera la même valeur dans tous les enregistrements.
Je pense que la meilleure solution est d'ajouter un champ Numero à la table source

[Faw]

Salut,
je pense que si la table contient une clé ou un index sans doublons, il est possible de se passer d'un champ en dur avec ce type de source

Code :

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

SELECT (SELECT Count(index) FROM table T2 WHERE T2.index<=T1.index) AS NumLigne, * FROM table AS T1;

normalement NumLigne devrait apparaître dans la liste des champs et il suffit de l'intégrer au form (caché éventuellement)...

[Invité]

Bonjour,

Il faut poser ta fonction dans le sous-formulaire et la modifier comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NumeroLigne() As Long
Dim rst As dao.Recordset
    On Error GoTo NumeroLigneErr
    Set rst = Me.RecordsetClone
    rst.Bookmark = Me.Bookmark
    NumeroLigne = rst.AbsolutePosition
NumeroLigneFin:
    Set rst = Nothing
    Exit Function
NumeroLigneErr:
    NumeroLigne = 0
    Resume NumeroLigneFin
End Function

Ensuite, ta zone de texte indépendante "Numéro" est égale à

Code :

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

=NumeroLigne()

Argy

Merci Argy
Je n'ai pas encore essayé ton code, car je viens juste d'arriver à ce que le mien fonctionne.
En fait dans les propriétés de mon formulaire, j'avais interdit les modifications.
Le but est de faire un affichage de couleur différent une ligne sur 2 par une condition Mod 2 = 0.
Je ne peux donc pas mettre un champ supplémentaire dans la table, car dans ce cas , les fonctions de tri ou de filtre mettent la pagaille.

[Faw]

Bonjour,

Il faut poser ta fonction dans le sous-formulaire et la modifier comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function NumeroLigne() As Long
Dim rst As dao.Recordset
    On Error GoTo NumeroLigneErr
    Set rst = Me.RecordsetClone
    rst.Bookmark = Me.Bookmark
    NumeroLigne = rst.AbsolutePosition
NumeroLigneFin:
    Set rst = Nothing
    Exit Function
NumeroLigneErr:
    NumeroLigne = 0
    Resume NumeroLigneFin
End Function

Ensuite, ta zone de texte indépendante "Numéro" est égale à

Code :

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

=NumeroLigne()

Argy

et ça marche!

[Invité]

et ça marche!

Merci à tous . Cà marche nickel et ça change tout.

[Faw]

Salut, je ne connaissais que la méthode du sql qui, à l'évidence est limitée dans la pratique et surtout oblige à toucher à la source du form.
Au niveau de la performance, ça reste à tester sur des gros volumes car la fonction a l'air de s'exécuter à chaque activation d'enregistrement.

A mettre dans les contributions...au moins