Discussion :

[tibiurs]

bonjour a tous
j'aimerais savoir comment puis je faire pour tester si une table contient des donnees a partir d'un formulaire
voici ce que j'ai fait :

Code :

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

1
2
3
4
5
6
    If IsNull(t_cmd_encours) Then
        erreur = MsgBox("Il n'y a pas de commandes à préparer", vbExclamation + vbOKOnly, "Information")
    Else
        stDocName = "f_cmd_encours"
        DoCmd.OpenForm stDocName, , , stLinkCriteria
    End If

tout cela simplement pour eviter d'ouvrir un formulaire vide si ma table est vide
merci pour toute reponse

[Mateache]

Salut

Il faut utiliser un recordset.

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
 
Dim conn as new adodb.connection
Dim rs as new adodb.recordset
 
set conn=currentproject.connection
rs.activeconnection=conn
rs.open "Nomdelatable",conn,adopendynamic,adlockoptimistic
 
If rs.BOF = true and rs.EOF=true then
      erreur = MsgBox("Il n'y a pas de commandes à préparer,                  vbExclamation + vbOKOnly, "Information") 
    Else
    stDocName = "f_cmd_encours" 
        DoCmd.OpenForm stDocName, , , stLinkCriteria 
End if
 
set conn=nothing
conn.close

[tibiurs]

ca marche merci
il y a un message qui s'affiche quand le code s'exécute:

Cette operation n'est pas autorisee si l'objet est ferme

est il possible de ne pas faire afficher ce message ??
j'ai essaye avec

Code :

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

DoCmd.SetWarnings False

mais ca ne change rien

[Mateache]

est ce que tu as mis un docmd.close quelque part dans ton code ?

[pc75]

Bonjour,

A priori, il faut mettre conn.close avant set conn = Nothing

[tibiurs]

ca marche impeccable
merci pour tout
il fallait bien mettre le conn.close avant set conn = Nothing