Discussion :

[samlepiratepaddy]

Slt a tous,
J'avais déja posé cette question sur un poste mais il a disparu !! ?? !!
Quoi que le problème est différent, car ici mon formulaire est filtré, et le code que j'avais mis (récupéré ici merci le forum !!) s'applique sur des requetes et ne fonctionne pas pour les form !!
En gros, suite au filtrage, le formulaire n'a que peu d'enregistrement (2ou3)voir aucun et quand y'en a pas je ne souhaite pas qu'il s'ouvre..
Il faudrai surement un code sur Ouverture du Form ??
Peut-on testé un enregistrement dans ce formulaire avant qu'il soit ouvert???
Et si oui comment????
Quelqu'un à une idée??
Merci d'avance

[cafeine]

Slt a tous,
J'avais déja posé cette question sur un poste mais il a disparu !! ?? !!
Quoi que le problème est différent, car ici mon formulaire est filtré, et le code que j'avais mis (récupéré ici merci le forum !!) s'applique sur des requetes et ne fonctionne pas pour les form !!
En gros, suite au filtrage, le formulaire n'a que peu d'enregistrement (2ou3)voir aucun et quand y'en a pas je ne souhaite pas qu'il s'ouvre..
Il faudrai surement un code sur Ouverture du Form ??
Peut-on testé un enregistrement dans ce formulaire avant qu'il soit ouvert???
Et si oui comment????
Quelqu'un à une idée??
Merci d'avance

On ne peut pas avant qu'il soit ouvert, tu peux en revanche tester avec un DCount() avant de placer le code d'ouverture de formulaire.

[samlepiratepaddy]

Ok je pige...
Volià ce que j'ai mis, mais ça coince sur le critère ??

Code :

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

1
2
DCount(Trigramme, F_TéléproAyantDéjaDesProspectsAffectéAujoudhui, Trigramme >= 0) = False
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Vous avez rentré un argument non valide dans une fonction de domaine

Pourtant dans l'esprit, c'est bien ce que je veux:
Tester par "Dcount" si il y a au moins une ligne dans ce form avant de l'ouvrir...???
Pourquoi ça marche po???

[Alexandre Sahli]

salut,
c'est normal car la fonction de domaine est valable seulement sur un nom de table ou de requête.
Dans ton cas il me semble qu'il s'agit de ton formulaire ce qui n'est pas possible.
il te faut donc utiliser la requête sous-jacente de ton formulaire et ajouter en plus dans les critères le filtre de ton formulaire
A+

[samlepiratepaddy]

Re,
Ok j'ai pigé !
Mais je n'arrive pas a completre le code...

attente: )

a la fin de l'écriture, hors que je ne vois pas ce qui manque??? J'ai beau en rajouter il m'en demande toujours???

Code :

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

DCount(Trigramme, R_TéléproAyantDéjaDesProspectsAffectéAujoudhui,( "[DateExploitation]=#" & Format$(Me![DateAffectation], "mm/dd/yyyy") & "# And [Trigramme]=" & "'" & Me![ChoixTéléproCP] & "' )= False)

Et après je complète avec ????

Code :

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

DoCmd.OpenForm stDocName, , , stLinkCriteria

qui est ce que doit faire ce code si il y a un enregistrement dans F_TéléproAyant....
Gloop's ça rame dur....

[cafeine]

un exemple ...

Code :

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

1
2
3
4
5
If DCount("[Trigramme]", "R_TéléproAyantDéjaDesProspectsAffectéAujoudhui", "[DateExploitation]=#" & Format$(Me![DateAffectation], "mm/dd/yyyy") & "# And [Trigramme]= '" & Me![ChoixTéléproCP] & "'" ) > 0 Then
   DoCmd.OpenForm ....
Else
   MsgBox "Pas d'enregistrements"
End If

[Alexandre Sahli]

J'ai testé un autre code que tu peux appliquer sur l'ouverture du formulaire et qui fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Form_Open(Cancel As Integer)
    Dim test As Variant
    Dim filtre As String
    filtre = ta condition de filtrage
    Me.Filter = filtre
    Me.FilterOn = True
    If Me.Form.RecordsetClone.RecordCount = 0 Then
      msgbox ("il n'y a pas d'engregistrement")  
       DoCmd.Close
    End If
End Sub

tu peux laisser la partie filtre si par exemple tu ouvres ton formulaire avec la condition where

A+

[samlepiratepaddy]

slt Cafeine
Heu... des exemples comme ça c'est quand tu veux !!!!
Exactement le résultat que je voulais !!!!

Merci Alexandre !
Je garde précieusement ce code car il va surement mettre utile sur deux ou trois form !!!!!

Merci à vous deux!!!
@+