Discussion :

[Chrissrare]

Bonjour,

D'habitude, pour permettre de ne pas afficher un formulaire si sa table est vide, je mettais ce code dans l'évènement sur ouverture.

Code :

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

1
2
3
4
5
 
    DoCmd.RunCommand acCmdRefresh
    Dim a As Recordset
    Set a = Me.RecordsetClone
    If a.RecordCount = 0 Then MsgBox "No data"

Je viens de passer en access 2003 et ca ne semble plus fonctionner ??

Y a t'il une autre méthode ??

Merci les z'amis .... du web ...

Chrisssssssss ....

[EDIT]
rajout des tags code par obipadawan
[/EDIT]

[keita]

salut
Je te propose de lancer une requete sur la tble à l'ouverture du formulaire.
Dans l'evenement sur ouverture comme tu l'as fait:

Code :

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

1
2
3
4
5
 
Dim a As Recordset, StrSql as string
StrSql ="Select MaTable.* From MaTable;"
Set a = currentdb.openrecordset(StrSql)
If a.RecordCount = 0 Then MsgBox "No data"

[Faw]

salut,
Il faudrait peut-être ajouter

Code :

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

Cancel = True

après MsgBox "...". Mais je ne vois pas pourquoi ça marchait sur une version < 2003 et pas sur access 2003
8)

[Tofalu]

Tu n'oublieras pas non plus d'ajouter une référence DAO à ton projet.
Outils--> Réference coches microsoft DAO 3.X

Quant au déclaration des variables, pour éviter des conflits dans les bibliothèques, il vaut mieux donner la librairie devant le type.
Et tu peux aussi utiliser la propriété EOF de l'objet recordset.

Code :

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

1
2
3
4
5
6
 
Dim rst As DAO.Recordset, StrSql as string 
StrSql ="Select MaTable.* From MaTable;" 
Set rst = currentdb.openrecordset(StrSql) 
If rst.eof Then MsgBox "No data" 
set rst=nothing

[Faw]

Exact tof',
perso j'ai plutôt tendance à utiliser ceci sans recordset

Code :

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

1
2
3
4
5
6
7
8
9
 Private Sub Form_Open(Cancel As Integer)
 
    With CodeContextObject
       If (.RecordsetClone.RecordCount = 0) Then
          Msgbox "..."            
             Cancel = True 
     End If
   End With
End Sub

8)

[Tofalu]

Oui, mais là tu as déjà chargé le formulaire. Qu'en utilisant un recordset, tu peux le faire sur le bouton du formulaire appelant et ainsi empécher le chargement. Donc, gain de ressource

[Faw]

Je le fais avec bouton de form appelant et sur l'événement Open pas Load.
ça charge le form qd même ds ce cas précis à ton avis? (Question pas ironie )

[Tofalu]

Open Þ Load Þ Resize Þ Activate Þ Current

Donc a prioiri, il ne se load pas. Ceci dit, il doit quand même utiliser de la ressource. Et vu que tu peux cloner son recordset,c'est que ses données sont chargées non ?

[Faw]

Ok tof' j'en prends note.
Merci pour tes lumières.

[Tofalu]

Et pour plus de précisions :

L'événement Open se produit lorsqu'un formulaire est ouvert, avant affichage du premier enregistrement. Pour les états, l'événement Open se produit avant l'aperçu ou l'impression de l'état.

L'événement Load se produit lorsqu'un formulaire est ouvert et que ses enregistrements sont affichés.

Donc en fait, je ne pense pas avoir plus raison que toi. Nos deux code doivent revenir au même. Et le mien peut être moins efficace car :

Sur mon bouton j'ouvre un recordset, si la table est pleine, j'affiche le formulaire puis je recharge un autre recordset. Donc deux recordsets en tout.

[Chrissrare]

En fait, je pense avoir trouvé ma solution ...

Le fait de déclarer ma variable en variant et non en recordset et ca marche nikel ...

Merci de vos aides les z'ammissss ...

chr ...

[Maître Kenobi]

juste une petite precision pour Chrissrare, dans tes futurs messages, n'oublies pas les balises code stp ! thanks