Erreur d'exécution '3001'

Résolu
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012 - 6 oct. 2012 à 01:46
saidmansour Messages postés 51 Date d'inscription vendredi 1 juin 2007 Statut Membre Dernière intervention 13 octobre 2012 - 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

            
                

2 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
6 oct. 2012 à 02:06
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)
3
Rejoignez-nous