Discussion :

[LeXo]

BonJour

alors, voila après moultes essai essais et conseils de tutoriels
Voici la réponse ke j'ai trouver

Je veux stoker le dernier ID de ma table pour faire des opération dessus
mais

ça beug sur : Set db = DBEngine.OpenDatabase(".\MaBase.mdb")
il me dit erreur 3024
Fichier MaBase.mdb introuvable
alors que c'est sur celui sur lequel je travaille

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(".\MaBase.mdb")
    sSQL = "Select max(IdVoyage) From VOYAGE"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
   m = rst("IdVoyage")
reponse = MsgBox(m, vbOKOnly, Titre)

D'avance merci....

[Invité]

Salut

Mais le chemin complet de ta base

Starec

[LeXo]

Reuuuuuuuu moi

Jai mis le chemin complet et ça marche elle le trouve
mais ce n'est pas possible de mettre le chemin relatif ???

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\Stef\Bureau\AMICALE MURET.mdb")
    sSQL = "Select max(IdVoyage) From VOYAGE"
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    ' Fermeture du Recordset
   m = rst("IdVoyage")
reponse = MsgBox(m, vbOKOnly, Titre)

Bugg sur m = rst("IdVoyage")
erreur 3265
erreur élément non trouvé dans cette collection
pas possible nan ??

merci d'avance..

[Invité]

Re

C'est normal

Code :

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

1
2
3
4
5
6
 
sSQL = "Select max(IdVoyage) as MAxVoyage From VOYAGE" 
    ' Ouverture du recordset 
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly) 
    ' Fermeture du Recordset 
   m = rst("MaxVoyage")

Cela devrait aller mieux
Pour le chemin relatif
application.currentproject.path

Starec

[LeXo]

waouuuuuuuh
ça marche merci

et je regarde pour le path

Bonne journée