Ds un formulaire Société, g un sous-formulaire qui affiche les employés de
la sté. J'aimerais à partir d'1 zone de liste (affichant un ensemble de
personnes) faire un double-clic sur un des éléments de la liste pour ajouter
la personne aux employés du sous-formulaire.
Pensez-vous que cela soit possible ? Si oui pouvez-vous m'indiquer la
technique à utiliser ?
Merci de votre aide.
Sylvie
non Sylvie, je ne t'ai donné que le sql d'insertion.
Si on reprends le post depuis le debut:
Private Sub Liste21_DblClick(Cancel As Integer) Dim strSQL As String strSQL = "INSERT INTO [Affectations-Personnes/Stés] " _ & "( RéfSociété,RéfPersonne ) " _ & " VALUES (" & Me![RéfSociété] _ & "," & Me.Liste21 & ")"
CurrentDb.Execute strSQL ' Comme te l'indiquait Gafish (Arnaud) ' il te suffit ensuite de mettre à jour ton sous form : ' en adaptant le nom du sousformulaire Me.NomDuSousForm.Requery End Sub
Ok ?
Le message c'est maintenant : attendu n°ligne,étiquette,instruction ou fin instruction" ..! Tout à l'air bien écrit pourtant ?! ... :-(
Private Sub Liste21_DblClick(Cancel As Integer) "INSERT INTO [Affectations-Personnes/Stés] ( RéfSociété,RéfPersonne ) VALUES (" & Me![RéfSociété] & "," & Me.Liste21 & ")" End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
non Sylvie,
je ne t'ai donné que le sql d'insertion.
Si on reprends le post depuis le debut:
Private Sub Liste21_DblClick(Cancel As Integer)
Dim strSQL As String
strSQL = "INSERT INTO [Affectations-Personnes/Stés] " _
& "( RéfSociété,RéfPersonne ) " _
& " VALUES (" & Me![RéfSociété] _
& "," & Me.Liste21 & ")"
CurrentDb.Execute strSQL
' Comme te l'indiquait Gafish (Arnaud)
' il te suffit ensuite de mettre à jour ton sous form :
' en adaptant le nom du sousformulaire
Me.NomDuSousForm.Requery
End Sub
Ok ?
Le message c'est maintenant : attendu n°ligne,étiquette,instruction ou fin
instruction" ..! Tout à l'air bien écrit pourtant ?! ... :-(
Private Sub Liste21_DblClick(Cancel As Integer)
"INSERT INTO [Affectations-Personnes/Stés] ( RéfSociété,RéfPersonne ) VALUES
(" & Me![RéfSociété] & "," & Me.Liste21 & ")"
End Sub
--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
non Sylvie, je ne t'ai donné que le sql d'insertion.
Si on reprends le post depuis le debut:
Private Sub Liste21_DblClick(Cancel As Integer) Dim strSQL As String strSQL = "INSERT INTO [Affectations-Personnes/Stés] " _ & "( RéfSociété,RéfPersonne ) " _ & " VALUES (" & Me![RéfSociété] _ & "," & Me.Liste21 & ")"
CurrentDb.Execute strSQL ' Comme te l'indiquait Gafish (Arnaud) ' il te suffit ensuite de mettre à jour ton sous form : ' en adaptant le nom du sousformulaire Me.NomDuSousForm.Requery End Sub
Ok ?
Le message c'est maintenant : attendu n°ligne,étiquette,instruction ou fin instruction" ..! Tout à l'air bien écrit pourtant ?! ... :-(
Private Sub Liste21_DblClick(Cancel As Integer) "INSERT INTO [Affectations-Personnes/Stés] ( RéfSociété,RéfPersonne ) VALUES (" & Me![RéfSociété] & "," & Me.Liste21 & ")" End Sub
-- A+ Eric http://users.skynet.be/mpfa/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
