vba accessRésolu

Question

bon voila 
exemple 
j'ai deux tables parents( nom parent ,prenom parent , adresse ,......), fille( matricule fille, nom fille , prenom fille)
j'ai fait une requette listeparenfille (nom parent,prenom parent,nom filleul,prenom filleul)
cette requete est affich&#233; dan une zone de texte 
maintenant je ve faire un bouton qui supprime une ligne de ma requete listeparenfille san qu'elle soit definitivement supprimer de la base

Un etudiant

dam84 · Accepted Answer

Salut
Desol&#233; de te repondre seulement maintenant mais j'etais en cong&#233;s
Quel est exactement le message d'erreur
c'est bizzard car tu affectes a parrainage_en_cours une valeur a false pour parrainage_en_cours = Listeparrainagencours.value
Or il me semble que le champ parrainage_en_cours ne peut prendre que les valeurs vrai ou faux donc ca ne va pas
Il faut que tu puisse identifier de maniere unique l'enregistrement que tu veux updater

J'espere etre clair

Tient moi au courant

dam84 · Answer

Salut etudiant
Le moyen de faire ce que tu veux est de creer un nouveau champ dans la tables parents. Par exemple un champ visible qui prend les valeurs vrai / faux. Lorsque tu "supprimes" un enregistrement tu fais un update du champ visible a faux  dans la table. Tu modifies bien entendu ta requete pour qu'elle ne tiennes compte que des lignes pour lesquelle le champ visible est a vrai.
Comme cela tous ce qui est a vrai sera visible et ce qui est a faux ne sera pas visible et toujours dans la base

En esperant que c'est clair  pour toi

Damien

pa_omar · Answer

Ou&#233; bien compri ca 
j'ai pens&#233; &#224; faire ca mais c'est mon update qui me pose probleme
ton explication est clair et je pense que je vais le reussir mais si t'a une id&#233;e du code aussi 
merci

Un etudiant

dam84 · Answer

Voila ce que tu peux faire pour l'update Tu crées le code (vba) suivant dans l'evenement click du bouton dim upd as string 'declaration de la variable upd="UPDATE set = where " 'requete de mise a jour de la table DoCmd.SetWarning false ' pour ne pas avoir un message access qui te dis que tu vas updater un certain nombre d'enregistrement DoCmd Runsql upd ' executer la requete de mise a jour Et voila quand tu va cliquer sur le bouton, il fera l'update c'est gâgné

pa_omar · Answer

Merci ben j'ai essay&#233; incessement mais ca marche pas y'a une erreur dans les conditions de la requete et je trouve pa
merci bien quand m&#234;me je vais le reassayer autrement

Un etudiant

dam84 · Answer

Ba envoye la requete , je peux regarder si tu veux

pa_omar · Answer

DoCmd.RunSQL ("UPDATE  parrainer set Parrainage_en_cours where [Parrainage_en_cours ] = Listeparrainagencours.value")
Un etudiant

pa_omar · Answer

Private Sub supprarrainage_Click()
Dim rep As String
'Verification d'une s&#233;lection dans la liste
If Listeparrainagencours.ListIndex <> -1 Then
    'Demande de confirmation
    rep = MsgBox("Etes-vous s&#251;r ?", vbYesNo + vbInformation, "Confirmation")
    'Confirmation
    If rep = vbYes Then
     DoCmd.SetWarnings False
     DoCmd.RunSQL ("UPDATE  parrainer set parrainage_en_cours = false  where Parrainage_en_cours ]= Listeparrainagencours.value")
     DoCmd.SetWarnings True
     Listeparrainagencours.Requery
    End If
End If


End Sub

Un etudiant

pa_omar · Answer

Merci mais j'ai reussi &#224; le faire 
Merci poru ton aide

Un etudiant

Vba access

9 réponses

Discussions similaires