requêtre !

Le
fujitsu
Bonjour à tous,

Dans formulaire, il y a un message "erreur de compilation : le qualification
doit être une collection"

If ([Query]![Req Pre 15A].[CompteSelect}] = 0) Then

vous pouvez corrige

Merci pour votre aide !
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ze Titi
Le #6267921
Salut fujitsu !

Dis-moi, tu veux faire quoi exactement avec cette ligne de code ? Ca ne
me paraît pas d'une clarté extrême... Peux tu expliciter ?

En ce jour exceptionnel du lundi 16/04/2007, tu nous as très
généreusement gratifié du message suivant:

Bonjour à tous,

Dans formulaire, il y a un message "erreur de compilation : le qualification
doit être une collection"

If ([Query]![Req Pre 15A].[CompteSelect}] = 0) Then

vous pouvez corrige ......

Merci pour votre aide !


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

koalavert
Le #6267911
On 16 avr, 13:06, "fujitsu"
Bonjour à tous,

Dans formulaire, il y a un message "erreur de compilation : le qualificat ion
doit être une collection"

If ([Query]![Req Pre 15A].[CompteSelect}] = 0) Then

vous pouvez corrige ......

Merci pour votre aide !


salut!
je trouve curieuse la ")" après "=0", essai peut etre
If ([Query]![Req Pre 15A].[CompteSelect}]) = 0 Then
ou peut etre
If [Query]![Req Pre 15A].[CompteSelect}] = 0 Then

"}" bizarre aussi peut etre non?
bye

fujitsu
Le #6267891
Bonjour Ze Titi

**** Dans le Requête ****
SELECT Count([Req Pre 15].NuméroAutoCompteur) AS CompteSelect
FROM [Req Pre 15];

**** Dans le formulaire, un bouton ****
Private Sub CmdImprimer_Click()
Dim EA As Integer
Dim EB As Integer
Dim EC As Integer
If ([Query]![Req Pre 15A].[CompteSelect] = 0) Then
EA = MsgBox("vous n'avez pas séléctionner le(s) Patient(s) !",
vbQuestion, "Attention")
ElseIf ([Query]![Req Pre 15A].[CompteSelect] > 0) Then
If Me.ControlSelect = 1 Then
EB = MsgBox("Voulez-vous imprimé tous les Patiens ?", vbYesNo +
vbQuestion, "Attention")
If (EA = vbYes) Then
DoCmd.OpenReport "Etat Pre 01", acNormal
End If
ElseIf Me.ControlSelect = 2 Then
EC = MsgBox("Voulez-vous imprimé le(s) patient(s) ?", vbYesNo +
vbQuestion, "Attention")
If (EC = vbYes) Then
DoCmd.OpenReport "Etat Pre 02", acNormal
End If
End If
End If
Exit_CmdImprimer_Click:
Exit Sub
Err_CmdImprimer_Click:
End Sub

Mais un messange d'erreur est [Req Pre 15A] dans If ([Query]![Req Pre
15A].[CompteSelect] = 0) Then !!!

Merci d'avance


"ze Titi"
Salut fujitsu !

Dis-moi, tu veux faire quoi exactement avec cette ligne de code ? Ca ne me
paraît pas d'une clarté extrême... Peux tu expliciter ?

En ce jour exceptionnel du lundi 16/04/2007, tu nous as très généreusement
gratifié du message suivant:

Bonjour à tous,

Dans formulaire, il y a un message "erreur de compilation : le
qualification doit être une collection"

If ([Query]![Req Pre 15A].[CompteSelect}] = 0) Then

vous pouvez corrige ......

Merci pour votre aide !


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info





3stone
Le #6267851
Salut,

"fujitsu"
| **** Dans le Requête ****
| SELECT Count([Req Pre 15].NuméroAutoCompteur) AS CompteSelect
| FROM [Req Pre 15];


Cela représente une requête enregistrée ??



| **** Dans le formulaire, un bouton ****
| Private Sub CmdImprimer_Click()
| Dim EA As Integer
| Dim EB As Integer
| Dim EC As Integer
| If ([Query]![Req Pre 15A].[CompteSelect] = 0) Then


Dans ce cas, tu ne peux pas t'adresser ainsi à une requête !!!

Regarde plutôt les fonctions de domaines : DCount() ou DLookup()

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
fujitsu
Le #6267811
Bonjour

ça marche, parfait

J'utilise avec DLookup
If (DLookup("[CompteSelect]", "Req Pre 15A") = 0) Then

Merci à 3stone
bonne joournée


"3stone"
Salut,

"fujitsu"
| **** Dans le Requête ****
| SELECT Count([Req Pre 15].NuméroAutoCompteur) AS CompteSelect
| FROM [Req Pre 15];


Cela représente une requête enregistrée ??



| **** Dans le formulaire, un bouton ****
| Private Sub CmdImprimer_Click()
| Dim EA As Integer
| Dim EB As Integer
| Dim EC As Integer
| If ([Query]![Req Pre 15A].[CompteSelect] = 0) Then


Dans ce cas, tu ne peux pas t'adresser ainsi à une requête !!!

Regarde plutôt les fonctions de domaines : DCount() ou DLookup()

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)




Publicité
Poster une réponse
Anonyme