Dernier enregistrement Access Via VB

Résolu/Fermé

xaltar92 - 1 juil. 2011 à 20:45
Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 - 2 juil. 2011 à 14:24

Bonjour,

J'ai une table Access et un programme en Visual Basic.
J'aimerai savoir comment je peux connaitre le nombre d'enregistrements de ma table Access via Visual Basic.

Quelqu'un saurait'il ?

Merci

A voir également:

Dernier enregistrement Access Via VB
Vb cable - Télécharger - Audio & Musique
Vb - Télécharger - Langages
Dernier iphone - Guide
Enregistrement vidéo écran - Guide
Youtube enregistrement vidéo - Guide

3 réponses

Réponse 1 / 3

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
1 juil. 2011 à 23:32

Bonjour,
Au passage, essayer cette procédure (mettre le nom de la table dans ...) :

Sub nbenrgtable()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Nom de votre table")
nb = rs.RecordCount
MsgBox "le nombre d'enregistrement est de: " & nb
rs.Close
Set rs = Nothing
End Sub

Réponse 2 / 3

xaltar92
2 juil. 2011 à 00:33

Mh merci avec ton truc et quelques recherche j'ai fait ceci :

           Set db = CurrentDb()
            
            req = "SELECT MAX(N°) FROM General_Informations"
            Set rs = db.OpenRecordset(req)
            
            If IsNull(rs.Fields(0).Value) Then
                last = 1
            Else
                last = rs.Fields(0).Value + 1
            End If
            
            If (last < 10) Then
                last = "0" & last
            End If

Réponse 3 / 3

Le Pingou Messages postés 12048 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 26 avril 2024 1 427
Modifié par Le Pingou le 2/07/2011 à 15:08

Bonjour,
Merci.
Cependant votre code ne correspond pas à votre demande : connaitre le nombre d'enregistrements de ma table Access
Une solution pour le nombre et la position du dernier :

Sub nbenrgtable()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Nom de votre table")
nb = rs.RecordCount 
rs.MoveLast
der = rs.Fields(0).Value
MsgBox "le nombre d'enregistrement est de: " & nb & " et le numéro du dernier est: " & derrs.Close
Set rs = Nothing
End Sub

Salutations.
Le Pingou

Discussions similaires

Exemple de base de données access

Erreur 403: You don't have permission to access on this server ?

smartphone impossible envoyer le message via sim1. erreur 0

Discussions similaires

Newsletters