Erreur d'exécution '3001' [Résolu]

saidmansour 51 Messages postés vendredi 1 juin 2007Date d'inscription 13 octobre 2012 Dernière intervention - 6 oct. 2012 à 01:46 - Dernière réponse : saidmansour 51 Messages postés vendredi 1 juin 2007Date d'inscription 13 octobre 2012 Dernière intervention
- 6 oct. 2012 à 02:30
si le champs tu table type de service contient un apostrophe exemple "d'une".
il y a une erreur d’exécution '3001':les argument sont de type incorrecte,en dehors des limites autorisés ou en conflits les uns avec les autres.

voici le code:







Set rsservice = New ADODB.Recordset
Set con = New ADODB.Connection
con.Provider = "microsoft.jet.oledb.4.0"
con.Open "C:\personnel\GCP.mdb"
Dim str5 As Integer

rsservice.Source = "select * from type_service"
rsservice.Open "type_service", con, , , adCmdTable
rsservice.MoveFirst
rsservice.Find "type_service = '"&DataCombo5_
& "'", , adSearchForward, 1
str5 = rsservice!idts

            
Afficher la suite 

2 réponses

Répondre au sujet
cs_Jack 14010 Messages postés samedi 29 décembre 2001Date d'inscription 28 août 2015 Dernière intervention - 6 oct. 2012 à 02:06
+3
Utile
Pas bonjour non plus

Si le contenu du champ comporte un ' ou un ", il suffit de le doubler avant de l'envoyer.
Voir fonction Replace

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de cs_Jack
saidmansour 51 Messages postés vendredi 1 juin 2007Date d'inscription 13 octobre 2012 Dernière intervention - 6 oct. 2012 à 02:30
0
Utile
merci bien sa marche
Commenter la réponse de saidmansour

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.