Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
spectre a écrit, le 21/11/2010 20:26 :Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égale s à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
Comme ça du premier coup d'il, le choix du séparateur de texte n 'est
pas judicieux.
Le guillemet marque le début et la fin du texte à conserver tel que l,
par opposition aux noms de variables, donc il ne peut pas marquer le
début et la fin d'une valeur d'un champ texte. Il vaut mieux utiliser
l'apostrophe pour l'un des deux, ou alors le guillemet est possible mai s
si je me rappelle bien il faut le mettre trois fois, ou utiliser la
fonction chr.
"[table]![codes_risk_cons]![id] = '"& code_id &
"' and [table]![codes_risk_cons].[code_risque]= Risquec"
ou
"[table]![codes_risk_cons]![id] = " & Chr$(34) & code_id & Chr$(34) &
" and [table]![codes_risk_cons].[code_risque]= Risquec"
et encore, j'ai testé la deuxième syntaxe sous VB, mais pas sous SQ L.
spectre a écrit, le 21/11/2010 20:26 :
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égale s à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
Comme ça du premier coup d'il, le choix du séparateur de texte n 'est
pas judicieux.
Le guillemet marque le début et la fin du texte à conserver tel que l,
par opposition aux noms de variables, donc il ne peut pas marquer le
début et la fin d'une valeur d'un champ texte. Il vaut mieux utiliser
l'apostrophe pour l'un des deux, ou alors le guillemet est possible mai s
si je me rappelle bien il faut le mettre trois fois, ou utiliser la
fonction chr.
"[table]![codes_risk_cons]![id] = '"& code_id &
"' and [table]![codes_risk_cons].[code_risque]= Risquec"
ou
"[table]![codes_risk_cons]![id] = " & Chr$(34) & code_id & Chr$(34) &
" and [table]![codes_risk_cons].[code_risque]= Risquec"
et encore, j'ai testé la deuxième syntaxe sous VB, mais pas sous SQ L.
spectre a écrit, le 21/11/2010 20:26 :Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égale s à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = ""& code_id& "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
Comme ça du premier coup d'il, le choix du séparateur de texte n 'est
pas judicieux.
Le guillemet marque le début et la fin du texte à conserver tel que l,
par opposition aux noms de variables, donc il ne peut pas marquer le
début et la fin d'une valeur d'un champ texte. Il vaut mieux utiliser
l'apostrophe pour l'un des deux, ou alors le guillemet est possible mai s
si je me rappelle bien il faut le mettre trois fois, ou utiliser la
fonction chr.
"[table]![codes_risk_cons]![id] = '"& code_id &
"' and [table]![codes_risk_cons].[code_risque]= Risquec"
ou
"[table]![codes_risk_cons]![id] = " & Chr$(34) & code_id & Chr$(34) &
" and [table]![codes_risk_cons].[code_risque]= Risquec"
et encore, j'ai testé la deuxième syntaxe sous VB, mais pas sous SQ L.
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir qu'une
seule condition : pas de AND ou OR ...
Cdt
Blaise
Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir qu'une
seule condition : pas de AND ou OR ...
Cdt
Blaise
Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir qu'une
seule condition : pas de AND ou OR ...
Cdt
Blaise
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonjour,
je cale sur un petit bout de vba
le résultat attendu ("Quant") : compter le nombre de valeurs égales à
une valeur sélectionnée ("Risquec") dans le champs "code_risque " de
la table "codes_risk_cons" pour l'id de l'enregistrement ouvert dans
un formulaire!
La première partie de la fonction "DCount("[code_risque]",
"codes_risk_cons")" fonctionne sans problème mais pas la suite,
équivalente à une clause "where".
Dim code_id As Integer
code_id = [Forms]![produits_saisie]!id
Dim Risquec As String
Risquec = [Forms]![produits_saisie]!liste_choix.Column(0)
Dim Quant As Integer
Quant = DCount("[code_risque]", "codes_risk_cons", _
"[table]![codes_risk_cons]![id] = "" & code_id & "" and [table]!
[codes_risk_cons].[code_risque]= Risquec")
Merci d'avance pour votre aide...
Bye
Bonsoir,
blaise cacramp a écrit :Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
Exemple de fonction CpteDom (DCount)
L'exemple suivant calcule le nombre de commandes livrées au Royaume-Uni
après le 1er janvier 1995.
Le domaine consiste en la table Commandes.
L'argument critère limite le jeu d'enregistrements correspondants à ceux
pour
lesquels Pays livraison est égal à Royaume-Uni et Date d'envoi est
antérieure à 1-1-1995.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] =
'Royaume-Uni' AND [Date d'envoi] < #1-1-95#")
Dans l'exemple suivant, l'argument critère contient la valeur en cours
d'une zone de
liste modifiable appelée Pays livraison.
Les valeurs de cette zone de liste modifiable proviennent du champ Pays
livraison de la table Commandes.
La référence au contrôle n'est pas entourée des guillemets caractérisant
les chaînes.
Ceci garantit qu'à chaque appel de la fonction CpteDom (DCount), Microsoft
Access extrait
la valeur en cours à partir du contrôle.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] = '" &
Forms!Commandes![Pays livraison] & "'AND [Date d'envoi] > #1-1-95#")
Bonsoir,
blaise cacramp a écrit :
Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
Exemple de fonction CpteDom (DCount)
L'exemple suivant calcule le nombre de commandes livrées au Royaume-Uni
après le 1er janvier 1995.
Le domaine consiste en la table Commandes.
L'argument critère limite le jeu d'enregistrements correspondants à ceux
pour
lesquels Pays livraison est égal à Royaume-Uni et Date d'envoi est
antérieure à 1-1-1995.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] =
'Royaume-Uni' AND [Date d'envoi] < #1-1-95#")
Dans l'exemple suivant, l'argument critère contient la valeur en cours
d'une zone de
liste modifiable appelée Pays livraison.
Les valeurs de cette zone de liste modifiable proviennent du champ Pays
livraison de la table Commandes.
La référence au contrôle n'est pas entourée des guillemets caractérisant
les chaînes.
Ceci garantit qu'à chaque appel de la fonction CpteDom (DCount), Microsoft
Access extrait
la valeur en cours à partir du contrôle.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] = '" &
Forms!Commandes![Pays livraison] & "'AND [Date d'envoi] > #1-1-95#")
Bonsoir,
blaise cacramp a écrit :Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
Exemple de fonction CpteDom (DCount)
L'exemple suivant calcule le nombre de commandes livrées au Royaume-Uni
après le 1er janvier 1995.
Le domaine consiste en la table Commandes.
L'argument critère limite le jeu d'enregistrements correspondants à ceux
pour
lesquels Pays livraison est égal à Royaume-Uni et Date d'envoi est
antérieure à 1-1-1995.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] =
'Royaume-Uni' AND [Date d'envoi] < #1-1-95#")
Dans l'exemple suivant, l'argument critère contient la valeur en cours
d'une zone de
liste modifiable appelée Pays livraison.
Les valeurs de cette zone de liste modifiable proviennent du champ Pays
livraison de la table Commandes.
La référence au contrôle n'est pas entourée des guillemets caractérisant
les chaînes.
Ceci garantit qu'à chaque appel de la fonction CpteDom (DCount), Microsoft
Access extrait
la valeur en cours à partir du contrôle.
intX = DCount("[Date d'envoi]", "Commandes", "[Pays livraison] = '" &
Forms!Commandes![Pays livraison] & "'AND [Date d'envoi] > #1-1-95#")
"Michel__D" a écrit dans le message de
news: icends$hf8$Bonsoir,
blaise cacramp a écrit :Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
*Donc quoi ?*
"Michel__D" <Michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: icends$hf8$1@speranza.aioe.org...
Bonsoir,
blaise cacramp a écrit :
Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
*Donc quoi ?*
"Michel__D" a écrit dans le message de
news: icends$hf8$Bonsoir,
blaise cacramp a écrit :Bonjour,
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
Cdt
Blaise
Ce qui suit est issu de l'aide d'Access 2000, donc ...
*Donc quoi ?*
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
*Donc quoi ?*
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
*Donc quoi ?*
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
Si j'ai bon souvenir, dans les fonctions domaine, il ne peut y avoir
qu'une seule condition : pas de AND ou OR ...
*Donc quoi ?*
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
Salut Blaise,
Tu sembles bien mal connaitre les fonctions de domaine
(et Access en général ;-)
L'utilité ? Et bien, dans un état par exemple... tu ramènes d'un seul
coup le contact dans l'entreprise, avec son tél et son mail, pour
alimenter
une seule zone de texte ;-)
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
http://support.microsoft.com/?id(6477
Ce n'est pas parce que l'aide est en "avance" qu'elle est mauvaise.
Ceci dit, il y a tellement d'événements qui existent (et fonctionnent)
que je me vois mal les utiliser tous ;-)
Salut Blaise,
Tu sembles bien mal connaitre les fonctions de domaine
(et Access en général ;-)
L'utilité ? Et bien, dans un état par exemple... tu ramènes d'un seul
coup le contact dans l'entreprise, avec son tél et son mail, pour
alimenter
une seule zone de texte ;-)
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
http://support.microsoft.com/?id(6477
Ce n'est pas parce que l'aide est en "avance" qu'elle est mauvaise.
Ceci dit, il y a tellement d'événements qui existent (et fonctionnent)
que je me vois mal les utiliser tous ;-)
Salut Blaise,
Tu sembles bien mal connaitre les fonctions de domaine
(et Access en général ;-)
L'utilité ? Et bien, dans un état par exemple... tu ramènes d'un seul
coup le contact dans l'entreprise, avec son tél et son mail, pour
alimenter
une seule zone de texte ;-)
L'aide n'est pas pour moi la Bible ! Cherchez par exemple l'évènement
RecordExit et essayez de le mettre en oeuvre...
http://support.microsoft.com/?id(6477
Ce n'est pas parce que l'aide est en "avance" qu'elle est mauvaise.
Ceci dit, il y a tellement d'événements qui existent (et fonctionnent)
que je me vois mal les utiliser tous ;-)