Discussion :

[solaar]

Bonjour.

j'ai plusieurs formulaires dans mon application de gestion.
pour ce faire pour gérer mes etiquettes sur chaque formulaire, décidé de creér une table Etiquettes(NumEtiq,DesigEtiq,Langue).
j'ai créer ensuite une fonction...

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Sub Etiqutte(F as Form, Num as Integer)
SQL="SELECT * FROM Etiquette WHERE NumEtiq='" &Num
Rs.Open SQL,Cnx
With F
![Logo]=Rs!DesigEtiq
end with
 
end Sub

Et dans le Formulaire le charegement de chaque formulaire (Load) j'appel:

Code :

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

1
2
3
4
 
ConnxionDB
Call Etiqutte(FrmConnxion, 1)
Call Etiqutte(FrmConnxion, 2)

Le problème est qu'il affiche la dernier ligne Call Etiqutte(FrmConnxion, 2), voir la dernière ligne de ma table.

j'ai besoin d'aide et de conseille sur ma façon de programmer.


Merci

Cordialement
Solaar

[ProgElecT]

Code :

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

1
2
3
4
5
6
7
8
Public Sub Etiqutte(F As Form, Num As Integer)
SQL = "SELECT * FROM Etiquette WHERE NumEtiq = '" & Num & "'"
Rs.Open SQL, Cnx
With F
 .LabelLogo = Rs!DesigEtiq
End With
Rs.Close
End Sub

J'ai remplacé par LabelLogo, car je ne comprend pas ce que peut être ce ![Logo]
Je suis étonné, avec le code proposé, que tu arrives tout de même a çà

Le problème est qu'il affiche la dernier ligne Call Etiqutte(FrmConnxion, 2), voir la dernière ligne de ma table.

[solaar]

Oui OUi..
je suis sur une nouvelle feuille Nommé FrmConnxion.
Vous avez raison de LabelLogo....

Mais j'arrive à optenir le dernièr enregistrement.


Cordialement
solaar

[ProgElecT]

Sans vouloir donner de leçons, une petite recherche sur ce forum aurai sûrement permis de régler le problème plus rapidement.
Vas voir cette discussion, mon intervention te donnera des mots et des liens qui te permettront d’avancer utilement.