Discussion :

[nevil]

Bonjour a tout le monde,

J'ai donc decide de modifier ma BDD afin d'avoir une base dorsale sur un serveur, et donc une frontale pour les PC clients.

Avant que je cinde ma BDD est 2 parties, je comptais le nombre d'enregistrements tout betement:

Code :

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

1
2
Dim NbRec as integer
NbRec = currentDB.tabledefs("MaTable").recordCount

Mais vu que mes tables ne sont plus dans la meme base de donnees, le code

Code :

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

CurrentDB

ne va plus. Il faudrait que je puisse specifier le chemin ou le nom de ma base de donnees dorsale.

Quelqu'un pourrait il m'aider ??

Merci

[Lou Pitchoun]

Salut,

Avec ton code, ça me renvoi 1. (j'ai fais un test sur une table liée de 143 enregistrements)

Par contre avec celui ci j'ai bien mes 143 enregistrements.

Code :

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

1
2
3
4
5
6
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("maTable")
 
    rst.MoveLast
 
    Debug.Print rst.RecordCount

Il faut se placer sur le dernier enregistrement d'où le movelast pour avoir le nombre.

[nevil]

Re,

Je comprend pas, si je laisse

Code :

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

CurrentDB

pour le RecordSet, la table ne sera pas trouvee vu qu'elle ne se trouve plus dans la base Frontale mais Dorsale.

comment est ce que je pourrais faire pour recuperer le nombre d'enregistrement d'une table dans une base de donnees Dorsale ??

Merci

[Lou Pitchoun]

Salut,

Avec ton code, ça me renvoi 1. (j'ai fais un test sur une table liée de 143 enregistrements)

Par contre avec celui ci j'ai bien mes 143 enregistrements.

Code :

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

1
2
3
4
5
6
    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("maTable")
 
    rst.MoveLast
 
    Debug.Print rst.RecordCount

Il faut se placer sur le dernier enregistrement d'où le movelast pour avoir le nombre.

[nevil]

Ok ok merci de me recopier exactement la meme chose, mais si je commence mon post par "je comprend pas", c'est que je comprend vraiment pas donc un peu inutile de me remettre exactement la meme chose.

Ma 1ere fois ou je serais en fonctionnement client/serveur donc bon, comme toutes les premieres fois, j'ai trop de problemes

Je te remercie quand meme

[Lou Pitchoun]

Les tables sont liées. Donc c'est comme si elle font parties de la base de données.

Si tu exécutes la fonction ci-dessous sur ta base, tu auras les propriétés de tes tables.
Et tu verras qu'elles sont bien liées (propriété connect). Et pourtant : tu peux en lire les propriétés même si elles ne sont pas dans la base frontale.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub PropTables()
 
    Dim oTables As TableDef
    Dim oPropriete As Property
 
    For Each oTables In CurrentDb.TableDefs
        For Each oPropriete In oTables.Properties
            Debug.Print oTables.SourceTableName & " -- "; oPropriete.name & " : " & oPropriete.Value
        Next
    Next
 
End Sub

[nevil]

Merci, c'etait exactement ce type d'informations qui manquait dans ma petite tete.

Et effectivement cela me donne bien le resultat que je veux sur le nombre d'enregistrement et je t'en remercie