Discussion :

[mumu64]

Bonjour,

Après m'être balladée sur le site à la recherche d'une réponse, je préfère la poser en direct !
Dans un formulaire, j'ai tapé du code pour faire des imports de données excel vers des tables Access. Jusque la pas de souci.
Je voudrais pouvoir faire apparaître un message genre "attention la table de destination contient des enregistrements" au moment ou je clic sur le bouton d'import.
Il faudrait qu'access puisse "regarder" dans une table si elle est vide ou non, et si elle contient des info, annuler l'opération.....

Je ne maîtrise pas assez.... mais je suis sure que quelqu'un saura me guider

D'avance merci !

Mumu64

[Lou Pitchoun]

Salut,

Tu as un super article sur DAO : http://warin.developpez.com/access/dao
Intéresses toi à la propriété RecordCount.

[mumu64]

Salut Lou Pitchoun,

Je te remercie pour le lien que je me suis empressée d'aller visiter mais je ne sais pas trop mettre en oeuvre un recordcount.....
Voici mon exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub import1_Click()
 
If Me.Recordset.RecordCount = 0 Then
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matable.xls", True
ElseIf Me.Recordset.RecordCount = 1 Then
"annule le processus"
End If
Me.année_en_cours_ssform.Requery
 
End Sub

Pourrais-tu me dire à quoi correspond le recordset. Il faut bien que je le déclare. Et comment je peux lui indiquer de tout annuler si la table contient des enregistrements ??

Je te remercie de te pencher sur mon problème.

Mumu64

[Lou Pitchoun]

La déclaration d'un Recordset se fait de la manière suivante :

Code :

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

Dim rst As DAO.Recordset

Pense à cocher la référence Microsoft DAO x.xx (où x.xx représente une version installé sur ton pc qui dépend de ta version Access)

Un recordset représente un jeu d'enregistrement (table ou requête) qui peut également servir comme source d'un formulaire ou état.

Le recordset que tu utilises dans ton code est le jeu d'enregistrement de ton formulaire

Code :

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

Me.Recordset

Me représente l'objet courant, ici ton formulaire.

Ensuite, l'annulation de ton action est mal placée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub import1_Click()
 
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Nom de ta table Access")
 
' On teste si le recordset possède des enregistrements
If rst.EOF Then
MsgBox "Il y a des enregistrements"
Else
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matable.xls", True
End If
Me.année_en_cours_ssform.Requery
 
End Sub

[mumu64]

Je te remercie pour ces explications très claires !

Le problème c'est que ça ne marche pas. La table est vide et j'ai le message :
Il y a des enregistrements

donc je me suis dit que j'allais apporter ma touche dans ton code et j'ai changé :

Code :

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

1
2
If rst.EOF Then...
End If

par :

Code :

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

1
2
If rst.RecordCount = 1 Then.....
End If

Et il importe chaque fois, en ajoutant des lignes même si la table est pleine.....
Hum.... SOS

[Lou Pitchoun]

Je me suis trompé effectivement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub import1_Click()
 
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Nom de ta table Access")
 
' On teste si le recordset possède des enregistrements
If Not rst.EOF Then
MsgBox "Il y a des enregistrements"
Else
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "matable.xls", True
End If
Me.année_en_cours_ssform.Requery
 
End Sub

Sinon en utilisant Recordcount, il faut que tu fasses un test supérieur à 0

Code :

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

If rst.RecordCount > 0 Then

[mumu64]

SUPER ça marche comme je l'imaginais !!

Je te remercie vraiment d'avoir passé du temps sur mon problème !

@ +
Mumu64