Requete Update problème !
Résolu
jujubas
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
-
jujubas Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
jujubas Messages postés 13 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis nouveau sur le forum j'espère que je poste bien au bon endroit !
Alors je vous montre un bout de code (le contexte ne me semble pas très important pour ma question masi si besoin je le detaillerai)
Pour info quand même, projectnumber est de type intger; dans ma table Correspondances, champ1 est de type intger et champ2 est de type OUI/NON
Private Sub updateEdit()
Dim i As Integer
For i = 0 To DMax("projectNumber", "Projet")
If Me![sfmTestListeProjet]![ProjectNumber] = i Then
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 = " + i
End If
Next i
End Sub
Le problème c'est que j'ai une erreur de type Erreur d'execution 13 : Incompatibilité de type.
J'ai testé avec
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 = 1"
Et ça marche sans problème.
Je ne comprend pas ce qui ne vas pas. Si quelqu'un pouvait m'aider je serais très reconnaisssant.
Merçi d'avance
Je suis nouveau sur le forum j'espère que je poste bien au bon endroit !
Alors je vous montre un bout de code (le contexte ne me semble pas très important pour ma question masi si besoin je le detaillerai)
Pour info quand même, projectnumber est de type intger; dans ma table Correspondances, champ1 est de type intger et champ2 est de type OUI/NON
Private Sub updateEdit()
Dim i As Integer
For i = 0 To DMax("projectNumber", "Projet")
If Me![sfmTestListeProjet]![ProjectNumber] = i Then
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 = " + i
End If
Next i
End Sub
Le problème c'est que j'ai une erreur de type Erreur d'execution 13 : Incompatibilité de type.
J'ai testé avec
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 = 1"
Et ça marche sans problème.
Je ne comprend pas ce qui ne vas pas. Si quelqu'un pouvait m'aider je serais très reconnaisssant.
Merçi d'avance
A voir également:
- Requete Update problème !
- Windows update bloqué - Guide
- Winget update - Guide
- Asus live update - Télécharger - Utilitaires
- Wsus offline update - Télécharger - Systèmes d'exploitation
- Nettoyage windows update - Guide
6 réponses
Bonjour,
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 ='" & i & "';"
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 ='" & i & "';"
jujubas
Messages postés
13
Date d'inscription
Statut
Membre
Dernière intervention
Juste à propose de cette structure, elle marche très bien pour i INTEGER. Cependant elle ne marche pas pour les String, j'ai essayé diférentes combinaisons sans succès. Y a-t-il aussi une syntaxe simple de la forme précédente ?
Merci beaucoup f894009, ta syntaxe marche à merveille, mais je ne peut pas en dire autant de mon code. J'aimerais que mon code a chaque i, parcourt tous les Me![sfmTestListeProjet]![ProjectNumber]. Or la des qu'il en trouve 1, il s'arrête. J'ai l'impression que pour parcourir tous mes projectNumber qui sont dans mon sousformulaire il faut que je pâsse par un recoidset.
Est ce bien le cas ? Si oui comment dois je m'y prendre (j'ai tenté quelques trucs mais j'ai vraiment du mal avec les recordsets...) . OU y a-t-il une autre solution ?
Merci d'avance !
Est ce bien le cas ? Si oui comment dois je m'y prendre (j'ai tenté quelques trucs mais j'ai vraiment du mal avec les recordsets...) . OU y a-t-il une autre solution ?
Merci d'avance !
Bonjour,
Me![sfmTestListeProjet]![ProjectNumber] est-ce un champ de formulaire ??? Comment est rempli ce formulaire
Me![sfmTestListeProjet]![ProjectNumber] est-ce un champ de formulaire ??? Comment est rempli ce formulaire
En fait c'est bon , je m'y prenais super mal pour parcourir mon sous formulaire. Voila mon nouveau code
Le problème de ce code c'est que je l'appelle sur le clique d'un bouton. Il m'update le sous fomulaire relié à la table Correspondances, mais les case a cocher ne se cochent pas automatiquement. C'est assez étrange, il faut que je passe ma souris sur la case pour qu'elle se coche (sans cliker).
Quelqu'un serait me dire pourquoi et comment réparer ça ?
Private Sub caseSelected()
Dim i As Integer
Dim rsProj As DAO.Recordset
Set rsProj = Me.sfmCorrespondanceProjet.Form.Recordset
Do While Not rsProj.EOF
i = rsProj("ProjectNumber")
CurrentDb.Execute "Update Correspondances Set champ2 = True WHERE champ1 = " & i & ";"
rsProj.MoveNext
Loop
End Sub
Le problème de ce code c'est que je l'appelle sur le clique d'un bouton. Il m'update le sous fomulaire relié à la table Correspondances, mais les case a cocher ne se cochent pas automatiquement. C'est assez étrange, il faut que je passe ma souris sur la case pour qu'elle se coche (sans cliker).
Quelqu'un serait me dire pourquoi et comment réparer ça ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question