Identifier checkbox
Fermé
Pi_Xi
Messages postés
2244
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2016
-
11 mars 2014 à 11:48
Pi_Xi Messages postés 2244 Date d'inscription samedi 24 mars 2007 Statut Membre Dernière intervention 22 janvier 2016 - 11 mars 2014 à 16:25
Pi_Xi Messages postés 2244 Date d'inscription samedi 24 mars 2007 Statut Membre Dernière intervention 22 janvier 2016 - 11 mars 2014 à 16:25
A voir également:
- Identifier checkbox
- Identifier appareil avec adresse mac - Guide
- Identifier un tableau à partir d'une photo - Forum Loisirs / Divertissements
- Identifier un peintre a partir d'une image svp - Forum Loisirs / Divertissements
- Identifier un numéro de gsm belgique - Forum Mobile
- Identification d'un peintre d'apres tableau et signature ✓ - Forum Loisirs / Divertissements
2 réponses
Pi_Xi
Messages postés
2244
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2016
149
11 mars 2014 à 16:02
11 mars 2014 à 16:02
Alors j'ai avancé grâce à ce code:
Public Function RecupParticipant(Identifiant As String) As Stringet dans un évènement onClick d'un bouton:
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les participant du projet
SQL = "SELECT Id FROM Tronçon WHERE Coche= -1"
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupParticipant = RecupParticipant & res.Fields(0).Value & " "
res.MoveNext
Wend
'Enleve le dernier espace
RecupParticipant = Left(RecupParticipant, Len(RecupParticipant) - 1)
'libere la mémoire
Set res = Nothing
End Function
Id = RecupParticipant(Forms![Création liens]!Tronçon_données!IdTronçon.Value)Mais là surprise, j'ai la bonne valeur de mon Id dans le MsgBox mais il ne s'insère pas dans la base :\
MsgBox (Id)
strSql = "INSERT INTO Lien (IdTronçon,Elem1, Elem2, Type, Longueur) VALUES (Id, Forms![Création liens]!Modifiable9.Value, Forms![Création liens]!Modifiable11.Value, Forms![Création liens]!Modifiable4.Value, Forms![Création liens]!Longueur.Value)"
Pi_Xi
Messages postés
2244
Date d'inscription
samedi 24 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2016
149
11 mars 2014 à 16:25
11 mars 2014 à 16:25
La bonne requête d'insertion était:
strSql = "INSERT INTO Lien (IdTronçon,Elem1, Elem2, Type, Longueur) VALUES ('" & Id & "', Forms![Création liens]!Modifiable9.Value, Forms![Création liens]!Modifiable11.Value, Forms![Création liens]!Modifiable4.Value, Forms![Création liens]!Longueur.Value)"