Dernier enregistrement Access Via VB
Résolu/Fermé
xaltar92
-
1 juil. 2011 à 20:45
Le Pingou Messages postés 11542 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 27 mars 2023 - 2 juil. 2011 à 14:24
Le Pingou Messages postés 11542 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 27 mars 2023 - 2 juil. 2011 à 14:24
A voir également:
- Dernier enregistrement Access Via VB
- Communication impossible via ssl ps4 ✓ - Forum Google Chrome
- Enregistrement youtube - Guide
- Enregistrement ecran pc - Guide
- Access denied - Forum Bbox Bouygues
- You don't have permission to access this resource ✓ - Forum Internet / Réseaux sociaux
3 réponses
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
1 juil. 2011 à 23:32
1 juil. 2011 à 23:32
Bonjour,
Au passage, essayer cette procédure (mettre le nom de la table dans ...) :
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
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
Le Pingou
Messages postés
11542
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
27 mars 2023
1 334
Modifié par Le Pingou le 2/07/2011 à 15:08
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 :
Le Pingou
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 SubSalutations.
Le Pingou