Discussion :

[Cinesra]

Bonjour tous!

Je travaille toujours sur un formulaire (LeToutEnUn) qui contient plusieurs sous-formulaires (ici, Questions sous-formulaire indépendant) qui peuvent à leur tour appeler d'autres sous-sous-formulaires (ici, NouvelleInfoIndépendante).

Mon problème concerne l'événement sur clic d'un bouton servant à exporter une question résolue en tant que nouvelle information importante.
En fait, je cherche lorsqu'une question est résolue à l'exporter (accompagnée de sa réponses et des commentaires qui la concerne) dans la table InfoIntéressante et supprimer l'enregistrement exporté de la table Questions.

Mon code:

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
Private Sub BtnExporter_Click()	'bouton d'exportation de question résolue en tant que nouvelle info notable
    Dim SolvedQuestion As String
    SolvedQuestion = "QUESTION: " & Me.Question & "  REPONSE: " & Me.Réponse & "  COMMENTAIRE: " & Me.Commentaire
    DoCmd.OpenForm "NouvelleInfoIndépendante"
    DoCmd.GoToRecord , , acNewRec
    Forms![NouvelleInfoIndépendante].Info = SolvedQuestion
    Forms![NouvelleInfoIndépendante].Mots_clés = "Question"
    Forms![NouvelleInfoIndépendante].Réf_primaire_concernée = Me.Source
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM Questions WHERE ((Questions.Question)=Formulaires![LeToutEnUn]![Questions sous-formulaire indépendant].Form![Question]);"
    DoCmd.SetWarnings True
    DoCmd.RunCommand acCmdSave  'sauve le formulaire Questions aussi?
    Forms![LeToutEnUn].[Questions sous-formulaire indépendant].Requery
End Sub

PROBLEME: lors d'un clic sur ce bouton, j'ai un message d'erreur "Enregistrez le champ actif avant d'exécuter l'action Actualiser". Pourquoi ais je ce message alors que justement j'enregistre puis je met à jour en vba???

Merci d'avance!

[JesusHansHuberVorme]

Ne connaissant pas tout le contexte, je te conseil de mettre à jour ton premier formulaire et ta table avant de continuer par ce code :

Code :

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

Me.Dirty = False

[Cinesra]

Salut,

Euuh...ça sert à quoi de vérifier si l'enregistrement n'a pas été modifié?
EDIT: correction, ça sert à quoi (tout court)?

[Cinesra]

LA solution, si elle peut servir à qlq'un d'autre (j'étais sur que c'était une "simplisterie"...restons zen ):

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
Private Sub BtnExporter_Click()
 
    DoCmd.RunCommand acCmdSave
    Dim SolvedQuestion As String
    SolvedQuestion = "QUESTION: " & Me.Question & "  REPONSE: " & Me.Réponse & "  COMMENTAIRE: " & Me.Commentaire
    DoCmd.OpenForm "NouvelleInfoIndépendante"
    DoCmd.GoToRecord , , acNewRec
    Forms![NouvelleInfoIndépendante].Info = SolvedQuestion
    Forms![NouvelleInfoIndépendante].Mots_clés = "Question"
    Forms![NouvelleInfoIndépendante].Réf_primaire_concernée = Me.Source
 
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM Questions WHERE ((Questions.Question)=Formulaires![LeToutEnUn]![Questions sous-formulaire indépendant].Form![Question]);"
    DoCmd.SetWarnings True
    Me.RecordSource = "SELECT Questions.* FROM Questions;"
End Sub