Dernier enregistrement V.B6

Question

BONJOUR ,

ami vraiment merci pour tous,

j'ai une base de donnée: "COMMERCE.mdb" , contient plusieurs table,

en table de nom : "ARTICLE".

permet de enregistre plusieurs produits, 

-------------------------------------------

dans l'interface "Fiche Produit",

-----------------------------
ARTICLE
-----------------------------
ref_art
lib_art
qut_art
prix_achat
prix_vente
date_achat
time_achat
marque_art
code_barre_art
-------------------------------

* MICROSOFT DAO 3.6 OBJECT LIBRARY.

Donc le module de table article est : ART

 existe une zone de texte permet d'affiche le Dernier enregistrement.
--------------------------------------------------------- 
comme fait pour apporte le dernier matricule produits. à LA ZONE DE TEXTE.

sportmed · Answer

quand je veux click sur bouton nouveau le zone de texte affiche le deriner enregistrement.

sportmed · Answer

j'ai tapi ce code, mais marche pas;
Private Sub bouton nouveau_click 

Dim b As Database 
Dim r As Recordset 

Set b = OpenDatabase("d:\commerce\article.mdb") 
Set r = b.OpenRecordset("select ARTICLE.code_art,ARTICLE.LIbelle from ARTICLE") 
r.MoveLast 
 
Text2.Text = r(0) 
r.Close 

End Sub

lolokun · Answer

Bonjour,

j'ai tapi ce code, mais marche pas;
c'est vagueça marche pas, sur quelle ligne? Un message d'erreur s'affiche?

Es-tu sur qu'il il y a bien des enregistrement dans ton recordset en testant si recordcount est supérieur à 0?

L'expérience, c'est une connerie par jour, mais jamais la même..

sportmed · Answer

LE zone de texte affiche : 4
mais le dernier enregistrement est : 035

Dernier enregistrement V.B6

4 réponses

Votre réponse

Discussions similaires