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
On 16 avr, 13:06, "fujitsu" wrote:
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
On 16 avr, 13:06, "fujitsu" <fujitsuch...@msn.com> wrote:
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
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
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" a écrit dans le message de news:
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
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" <ze_titi_enlever-ceci@tiscali.fr> a écrit dans le message de news:
mn.831e7d74c84939e4.64280@tiscali.fr...
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
**** 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" a écrit dans le message de news:
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
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()
"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()
"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()
J'utilise avec DLookup If (DLookup("[CompteSelect]", "Req Pre 15A") = 0) Then
Merci à 3stone bonne joournée
"3stone" a écrit dans le message de news:
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()
J'utilise avec DLookup
If (DLookup("[CompteSelect]", "Req Pre 15A") = 0) Then
Merci à 3stone
bonne joournée
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eCaPBuCgHHA.4924@TK2MSFTNGP06.phx.gbl...
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()
J'utilise avec DLookup If (DLookup("[CompteSelect]", "Req Pre 15A") = 0) Then
Merci à 3stone bonne joournée
"3stone" a écrit dans le message de news:
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()