Discussion :

[comme de bien entendu]

Bonjour,
Je veux mettre à jour un sous formulaire avec une requete SQL, mais j'obtiens l'erreur suivante :

L'expression entrée fait référence à un objet fermé ou supprimé.

Voici le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ListeDesFichiers_Click()
Dim Data_Integration_Donnees_1 As String
Dim valeur_courante As String
valeur_courante = Me.ListeDesFichiers.Value
    Data_Integration_Donnees_1 = "SELECT Onglets.[Type d'Integration], Onglets.Onglets, Onglets.Libellé, Onglets.[Filtre d'Integration], Onglets.[Caterogie Remise], Onglets.[Commentaires supplémentaires] " & _
    " FROM Onglets " & _
    " WHERE Onglets.[Nom Fichier]=""" & valeur_courante & """ AND Onglets.Logiciel='Nextpress' ;"
    Me.Sous_Form_Donnees_Integration.Form.RecordSource = Data_Integration_Donnees_1
 
End Sub

Merci d'avance de votre aide.

[marot_r]

Sur quelle ligne l'erreur se produit-elle ?

A+

[comme de bien entendu]

Bonjour,

L'erreur se produit lors de l'execution de cette ligne de code :

Code :

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

Me.Sous_Form_Donnees_Integration.Form.RecordSource = Data_Integration_Donnees_1

(Data_Integration_Donnees_1 étant la requette SQL)

[marot_r]

Bizare,

quand l'erreur se produit passe en mode débug puis ouvre le fenëtre d'éxécution immédiate en appuyant sur [Ctlr][g].

Une fois dans cette fenêtre tape :

Code :

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

print Me.Sous_Form_Donnees_Integration.Form.name [enter]

et vois ce qui se passe. Si tout va bien, cela devrait t'afficher le nom de ton formulaire inclus.

A+