Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as
DataBase
Set meF = Forms!AjoutPièces
Set meR = meF!Référence 'champ texte
Set mePT = meF!PrixTarif 'champ monétaire
Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset)
rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Guy FALESSE" | J'ai une erreur d'incompatibilté dans ce SQL | | Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as | DataBase | Set meF = Forms!AjoutPièces | Set meR = meF!Référence 'champ texte | Set mePT = meF!PrixTarif 'champ monétaire | Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) | rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS: je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
"Guy FALESSE"
| J'ai une erreur d'incompatibilté dans ce SQL
|
| Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as
| DataBase
| Set meF = Forms!AjoutPièces
| Set meR = meF!Référence 'champ texte
| Set mePT = meF!PrixTarif 'champ monétaire
| Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset)
| rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS:
je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
"Guy FALESSE" | J'ai une erreur d'incompatibilté dans ce SQL | | Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as | DataBase | Set meF = Forms!AjoutPièces | Set meR = meF!Référence 'champ texte | Set mePT = meF!PrixTarif 'champ monétaire | Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) | rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS: je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Autre idée, le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point pour la virgule ou l'inverse)
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as DataBase Set meF = Forms!AjoutPièces Set meR = meF!Référence 'champ texte Set mePT = meF!PrixTarif 'champ monétaire Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
etc.
Où serait donc l'erreur SVP?
D'avance merci pour vos conseils.
Guy FALESSE
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de
mettre :
rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT)
pour forcer le type.
Car si tu demandes le TypeName() sur ces contrôles, Access va te
retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes
(String)
Autre idée,
le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point
pour la virgule ou l'inverse)
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as
DataBase
Set meF = Forms!AjoutPièces
Set meR = meF!Référence 'champ texte
Set mePT = meF!PrixTarif 'champ monétaire
Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset)
rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Autre idée, le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point pour la virgule ou l'inverse)
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as DataBase Set meF = Forms!AjoutPièces Set meR = meF!Référence 'champ texte Set mePT = meF!PrixTarif 'champ monétaire Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
etc.
Où serait donc l'erreur SVP?
D'avance merci pour vos conseils.
Guy FALESSE
Guy FALESSE
Salut Pierre,
Merci pour ta réponse, ça fonctionne maintenant comme il faut :-) J'avais effectivement mis des espaces volontairement entre les apostrophes et les guillemets. Je ne me ferai sans doute jamais à ces syntaxes de SQL. @+
Guy FALESSE
"3stone" a écrit dans le message de news:
Salut,
"Guy FALESSE" | J'ai une erreur d'incompatibilté dans ce SQL | | Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as | DataBase | Set meF = Forms!AjoutPièces | Set meR = meF!Référence 'champ texte | Set mePT = meF!PrixTarif 'champ monétaire | Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) | rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS: je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
Merci pour ta réponse, ça fonctionne maintenant comme il faut :-)
J'avais effectivement mis des espaces volontairement entre les apostrophes
et les guillemets.
Je ne me ferai sans doute jamais à ces syntaxes de SQL.
@+
Guy FALESSE
"3stone" <3stone_@_skynet_be> a écrit dans le message de news:
uVdLaXkfFHA.272@TK2MSFTNGP15.phx.gbl...
Salut,
"Guy FALESSE"
| J'ai une erreur d'incompatibilté dans ce SQL
|
| Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD
as
| DataBase
| Set meF = Forms!AjoutPièces
| Set meR = meF!Référence 'champ texte
| Set mePT = meF!PrixTarif 'champ monétaire
| Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset)
| rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS:
je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
Merci pour ta réponse, ça fonctionne maintenant comme il faut :-) J'avais effectivement mis des espaces volontairement entre les apostrophes et les guillemets. Je ne me ferai sans doute jamais à ces syntaxes de SQL. @+
Guy FALESSE
"3stone" a écrit dans le message de news:
Salut,
"Guy FALESSE" | J'ai une erreur d'incompatibilté dans ce SQL | | Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as | DataBase | Set meF = Forms!AjoutPièces | Set meR = meF!Référence 'champ texte | Set mePT = meF!PrixTarif 'champ monétaire | Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) | rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
une première ici:
rst.FindFirst "Référence=' " & meR & " ' AND PrixTarif=" & mePT
PS: je suppose aussi que tu supprime les espaces entre apostrophe et guillemet
Des espaces en trop entre les cotes et un " de trop. Comme je le disais à Pierre, les espaces étaient voulus, par contre le
guillemet de trop non. En fait donc, maintenant cela fonctionne bien, donc pas besoin de mettre CCur(mePT) mais sait-on jamais. En tout cas, merci pour ta réponse :-) @+
Guy FALESSE
"Eric" a écrit dans le message de news: %
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Autre idée, le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point pour la virgule ou l'inverse)
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as DataBase Set meF = Forms!AjoutPièces Set meR = meF!Référence 'champ texte Set mePT = meF!PrixTarif 'champ monétaire Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
etc.
Où serait donc l'erreur SVP?
D'avance merci pour vos conseils.
Guy FALESSE
Salut Eric,
Des espaces en trop entre les cotes et un " de trop.
Comme je le disais à Pierre, les espaces étaient voulus, par contre le
guillemet de trop non.
En fait donc, maintenant cela fonctionne bien, donc pas besoin de mettre
CCur(mePT) mais sait-on jamais.
En tout cas, merci pour ta réponse :-)
@+
Guy FALESSE
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
%23d11XekfFHA.2484@TK2MSFTNGP15.phx.gbl...
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de
mettre :
rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour
forcer le type.
Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner
des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Autre idée,
le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point
pour la virgule ou l'inverse)
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD
as DataBase
Set meF = Forms!AjoutPièces
Set meR = meF!Référence 'champ texte
Set mePT = meF!PrixTarif 'champ monétaire
Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset)
rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
Des espaces en trop entre les cotes et un " de trop. Comme je le disais à Pierre, les espaces étaient voulus, par contre le
guillemet de trop non. En fait donc, maintenant cela fonctionne bien, donc pas besoin de mettre CCur(mePT) mais sait-on jamais. En tout cas, merci pour ta réponse :-) @+
Guy FALESSE
"Eric" a écrit dans le message de news: %
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Autre idée, le mePT ne contiendrait-il pas un mauvais séparateur décimal ? (Le point pour la virgule ou l'inverse)
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour à tous,
J'ai une erreur d'incompatibilté dans ce SQL
Dim meR as Control, mePT as Control, meF as Form, rst as RecordSet, maBD as DataBase Set meF = Forms!AjoutPièces Set meR = meF!Référence 'champ texte Set mePT = meF!PrixTarif 'champ monétaire Set rst = maBD.OpenRecordset("EntréePiècesStock", dbOpenDynaset) rst.FindFirst "Référence=' " & meR & " ' " AND "PrixTarif=" & mePT
etc.
Où serait donc l'erreur SVP?
D'avance merci pour vos conseils.
Guy FALESSE
Eric
ooops ! pas de " juste avant PrixTarif -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
ooops !
pas de " juste avant PrixTarif
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de
mettre :
rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT)
pour forcer le type.
Car si tu demandes le TypeName() sur ces contrôles, Access va te
retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes
(String)
ooops ! pas de " juste avant PrixTarif -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Guy FALESSE
Salut Eric,
Pas de problème, c'était corrigé :-) Encore merci pour le suivi. @+
Guy FALESSE
"Eric" a écrit dans le message de news:
ooops ! pas de " juste avant PrixTarif -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
Salut Eric,
Pas de problème, c'était corrigé :-)
Encore merci pour le suivi.
@+
Guy FALESSE
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
e5F1TrkfFHA.2152@TK2MSFTNGP14.phx.gbl...
ooops !
pas de " juste avant PrixTarif
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de
mettre :
rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour
forcer le type.
Car si tu demandes le TypeName() sur ces contrôles, Access va te
retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes
(String)
Pas de problème, c'était corrigé :-) Encore merci pour le suivi. @+
Guy FALESSE
"Eric" a écrit dans le message de news:
ooops ! pas de " juste avant PrixTarif -- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour Guy,
Des espaces en trop entre les cotes et un " de trop.
Puisque tu définis meR et mePT comme des contrôles, je serai tenté de mettre : rst.FindFirst "Référence='" & meR & "' AND "PrixTarif=" & CCur(mePT) pour forcer le type. Car si tu demandes le TypeName() sur ces contrôles, Access va te retourner des TextBoxes et donc par défaut ce sont des valeurs chaînes (String)
