Discussion :

[herendel]

bonjours,
en fait j'avais un problème qui fut résolue sur le site par le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function DAOrecordscount(ByVal strTableOrQuery As String) As Long

Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb()
Set rs = db.OpenRecordset(strTableOrQuery, dbOpenSnapshot)

If rs.EOF Then
    DAOrecordscount = 0
Else
    rs.MoveLast
    DAOrecordscount = rs.RecordCount
End If
rs.Close

Set rs = Nothing
Set db = Nothing

End Function

seulement quand je l'utilise une boite de dialogue me dit:
erreur de compilation
type non défini par l'utilisateur non définie
pour :
Dim db As DAO.Database


pourtant Database fait bien partie de la hiérachie DAO.

après recherche j'ai vu que la bibliothèque DAO n'est pas charger donc comment la charger pour pouvoir l'utiliser si c'est possible

merci

[boubignole]

Salut

Dans le menu Outils/références vérifie que Microsoft DAO 3.6 soit coché.

[illight]

Il faut aller dans Outil > référence et chercher la référence qui équivaut à celle de DAO

PS : je crois que c'est Outil j'ai un doute tout a coup

[herendel]

merci et encore merci c'est bon et maintenant tout marche parfaitement

[Invité]

Merci de mettre le Tag [Résolu]
A+

[herendel]

oui mais le tag [Résolu] je l'ai mis je l'ai fait juste après avoir écrit mon message... à moins que sa n'est pas marché et dans ce cas je m'en escuse.