Pour ne pas afficher le formulaire si table vide !!!???

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:

---

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]

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:

---

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"

---

salut,
Il faudrait peut-être ajouter

Code:

---

Cancel = True

---

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

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:

---

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

---

:wink:

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

Code:

---

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)

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 :wink:

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 :wink: )

Citation:

---

Envoyé par l'aide

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 ?

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

Et pour plus de précisions :

Citation:

---

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. :traine:

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 ...

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