Discussion :

[jmde]

Bonjour,

Le champ texte "TempsPremier" qui reçoit la valeur 10' 25" 2 me crée un problème de syntaxe.

Mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& Chr(34) & lstr_TempsPremier & Chr(34) & ") ;"

Nota: Si j'écris 25" avec deux apostrophes mon insert into fonctionne, mais pas avec des guillemets.

Merci pour votre aide

Salutations

Jacques

[argyronet]

Bonjour,

Bien disons que si j'avais été confronté à ce problème, j'aurais rédigé mes valeurs de temps comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Test()
Dim strTimeA$
Dim strTimeB$
  'Avec le caractère 180
  strTimeA = Chr(34) & "10´ 25´´ 2" & Chr(34)
  'Avec le caractère 39
  strTimeB = Chr(34) & "10' 25'' 2" & Chr(34)
End Sub

Argy

[jmde]

Bonsoir Argy

Merci pour ta réponse, mais je n’arrive toujours pas à régler le problème.

Voici comment fonctionne mon code actuellement, pour simplifier je n’ai gardé que deux champs.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim lstr_TempsPremier As String
Dim lstr_Champ2 As String
 
lstr_TempsPremier = IIf(IsNull(txtTempsPremier.Value), "", txtTempsPremier.Value)
lstr_Champ2 = IIf(IsNull(txtChamp2.Value), "", txtChamp2.Value)
 
'--- Vérifie si toutes les valeurs sont saisies '
      ifTrim(lstr_TempsPremier)  = "" Or Trim(lstr_Champ2 )= "" Then
      MsgBox "Il manque des informations"
      Exit Sub
End If
 
'--Insert les valeurs dans la tbl
 
DoCmd.RunSQL "INSERT INTO [Table1]( TempsPremier, Champ2)" & _
" values("& Chr(34) & lstr_TempsPremier & Chr(34) & "," &  lstr_Champ2 & ") ;"
 
 Set qdf = CurrentDb.QueryDefs("qdfgénérale")

Comment modifier ce code en fonction de tes remarques citées plus haut.

Salutations

Jacques

[Arkham46]

Bonjour,

essaye de remplacer le guillemet par deux guillemets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& Chr(34) & replace(lstr_TempsPremier,"""","""""") & Chr(34) & ") ;"

[User]

ca serait pas plutôt ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& Chr(34) & replace(lstr_TempsPremier,"'","''") & Chr(34) & ") ;"

@+

[Arkham46]

ca serait pas plutôt ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

& Chr(34) & replace(lstr_TempsPremier,"'","''") & Chr(34) & ") ;"

@+

je ne pense pas, il n'y pas à priori de problème avec les guillemets simples.

[jmde]

Bonsoir Arkham

Merci pour ton aide, ça marche parfaitement.

Salutations

Jacques

[jmde]

Bonsoir User

Merci pour ta réponse, Mon problème était uniquuement avec les guillements doubles

Salutations

Jacques

[argyronet]

Bon,

C'est au niveau des données que la modification doit être effectuée.
Donc au lieu d'utiliser un jeu de guillemets pour tes temps utilises 2 fois le caractère 39 ou 1 fois le caractère 180 en lieu et place des guillemets qui sont réservés au occurence de type String.
Tu pourras alors chercher tes temps comme tu l'as écris.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...Chr(34) & lstr_TempsPremier & Chr(34) & ") ;"

Argy

[jmde]

Bonjour Argy

Merci pour ta réponse.

Salutations

Jacques