Discussion :

[Ps4]

Bonjour !!

Dans un formulaire j'ai placé un sous formulaire qui a comme source de donnée une requête.
Quand sur ce sous formulaire je modifie la largeur des champs pour mieux voire mes données et qu'ensuite je ferme mon formulaire il apparaît un message me demandant si je souhaite enregistrer les modification apporté à la mise en forme de la requête source du sous formulaire.

ça c'est normal

Eh bien j'aimerai supprimer ce message, alors j'ai utilisé la commande :

Code :

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

DoCmd.SetWarnings (False)

Le problème c'est que j'ai essayé de placé cette commande sur divers évènement et ça n'a jamais marché (Avant MAJ du form; sur fermeture du form; sur fermeture du sous form)

[Lou Pitchoun]

Salut

as tu essayé ceci ??

Code :

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

DoCmd.Close acForm, "NomDuSousFormulaire", acSaveYes

acSaveYes enregistre automatiquement sans te le demander
à mettre je pense sur fermeture du formulaire...

[Ps4]

Salut!!

Là je viens d'essayer sur les évènements fermeture et avant maj et ça n'a pas fonctionné

[Lou Pitchoun]

bon,
je viens de tester sur un de mes formulaires :
Effectivement : il demande la sauvegarde de la mise en forme du fromulaire principal.
Par contre, en ayant le ss formulaire avec pour source une requete SQL : là je n'ai aucun soucis. Il ne me demande rien.
Essaie en changeant la source du sous formulaire

[Ps4]

En fait mon problème est qu'il me demande la sauvegarde de la mise en forme de la requête du sous formulaire.
Et ce sous formulaire est indépendant, je lui attribue sa source de données (la requête) par le code suivant sur le clic d'un bouton :

Code :

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

Me.Fille26.SourceObject = "Requête.Recherche ajout modif Transport"

[Lou Pitchoun]

En fait mon problème est qu'il me demande la sauvegarde de la mise en forme de la requête du sous formulaire.

J'ai bien compris t'en fais pas...

Et ce sous formulaire est indépendant

Il est indépendant parce que tu veux changer la source ou pas ??
Si la source est toujours la même attribue là comme je t'ai dis dans source tu colles le SQL de ta requete et fini le message...

sinon essaie ceci...

Code :

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

Me.Fille26.SourceObjet = SQL_de_la_requête_entre_guillements

[Ps4]

Oui c ça je vaux changer la source ou pas.
J'essaye de coller le SQL comme tu me dis mais il y a un problème car des guillemets se mettent automatiquement sur la clause select et le reste est en rouge.
On dirai qu'il y a une taille limite de caractère pour la propriété source.object.

[Lou Pitchoun]

Quand tu colles le code SQL, access te le mets sur plusieurs lignes.
En fin de chaque ligne sauf la dernière après avoir fermé les guillemets tu mets

Code :

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

 & _

Et là ça passe.

[Didier L]

Sur quelle version d'access es tu ?

Je n'ai pas de problème sur XP

Essaye sur libération du formulaire un petit

Code :

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

1
2
3
4
 
Private Sub Form_Unload(Cancel As Integer)
    DoCmd.Save acForm, Me.Name
End Sub

[Ps4]

Pour kikof : Je n'arrive décidément pas à la rentrée cette instruction SQL mais faut dire qu'elle est très longue.

Pour didier l : Je travaille sous office xp avec une application au format de fichier access 2000.
J'ai essayé le code et ça ne fonctionne pas.

[Didier L]

Désolé,

J'essaye de reproduire le Pb mais je n'y arrive pas.

As tu du code qui charge ton sous formulaire?

Si oui peux tu le montrer?

Si non, ton sous formulaire est bien basé sur une requête?
Quelle est la valeur de la propriété Recordsource de ton sous formulaire?

[Lou Pitchoun]

Ouais.. donne nous ton SQL...
Edit : enfin celui de la requete quoi...

[Ps4]

Pour kikof :

Code :

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

1
2
3
 SELECT [Table stockage].Transporteur, [Table stockage].[Date de livraison], [Table stockage].[Description colisage], [Table stockage].Poids, [Table stockage].[Lieu de départ], [Table stockage].[Lieu d'arrivée], [Table stockage].[Date d'enlèvement], [Table stockage].[Référence colis], [Table stockage].Prix, [Table stockage].Date
FROM [Table stockage]
WHERE ((([Table stockage].Transporteur)=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable12],"")="",([Table stockage].[Transporteur]),[forms]![Recherche ajout modif transport]![Modifiable12])) AND (([Table stockage].[Date de livraison])>=IIf(Nz([forms]![Recherche ajout modif transport]![texte28],"")="",([Table stockage].[Date de livraison]),[forms]![Recherche ajout modif transport]![texte28]) And ([Table stockage].[Date de livraison])<=IIf(Nz([forms]![Recherche ajout modif transport]![texte30],"")="",([Table stockage].[Date de livraison]),[forms]![Recherche ajout modif transport]![texte30])) AND (([Table stockage].Poids)>=IIf(Nz([forms]![Recherche ajout modif transport]![texte42],"")="",([Table stockage].[poids]),[forms]![Recherche ajout modif transport]![texte42]) And ([Table stockage].Poids)<=IIf(Nz([forms]![Recherche ajout modif transport]![texte44],"")="",([Table stockage].[Poids]),[forms]![Recherche ajout modif transport]![texte44])) AND (([Table stockage].[Lieu de départ])=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable94],"")="",([table stockage].[Lieu de départ]),[forms]![Recherche ajout modif transport]![Modifiable94])) AND (([Table stockage].[Lieu d'arrivée])=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable46],"")="",[table stockage].[Lieu d'arrivée],[forms]![Recherche ajout modif transport]![Modifiable46])) AND (([Table stockage].[Date d'enlèvement])>=IIf(Nz([forms]![Recherche ajout modif transport]![texte0],"")="",([Table stockage].[Date d'enlèvement]),[forms]![Recherche ajout modif transport]![texte0]) And ([Table stockage].[Date d'enlèvement])<=IIf(Nz([forms]![Recherche ajout modif transport]![texte5],"")="",([Table stockage].[Date d'enlèvement]),[forms]![Recherche ajout modif transport]![texte5])) AND (([Table stockage].[Référence colis])=IIf(Nz([forms]![Recherche ajout modif transport]![Texte15],"")="",([table stockage].[Référence colis]),[forms]![Recherche ajout modif transport]![Texte15])) AND (([Table stockage].Date)>=IIf(Nz([forms]![Recherche ajout modif transport]![texte10],"")="",([Table stockage].[Date]),[forms]![Recherche ajout modif transport]![texte10]) And ([Table stockage].Date)<=IIf(Nz([forms]![Recherche ajout modif transport]![texte12],"")="",([Table stockage].[Date]),[forms]![Recherche ajout modif transport]![texte12])));

Pour didier l :
En fait mon sous formulaire est indépendant et je l'alimente grâce à ça :

Code :

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

1
2
3
Private Sub Commande41_Click()
Me.Fille26.SourceObject = "Requête.Recherche ajout modif Transport" 
End Sub

Mais alors là messieur c un autre problème qui m'arrive, j'ai l'impression que mon éditeur VBA bug plus ou moins car quand j'écris du code il bloque pdt quelques secondes dès que j'appuis sur entréé
et chose vraiment étrange:
quand je clic sur le bouton qui effectue le code juste au dessus pour activer mon sous form, cela fonctionne une fois, ensuite je ferme mon formulaire je le réouvre je reclic pour faire apparaître ma requête et là le sous form est tout gris il n'apparaît rien donc je vais voir ma requête et je m'apperçois que le code sql a été entièrement effacé !!!

[Lou Pitchoun]

Ah ben p*****, il est conséquent le SQL de ta requete....

Code :

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

1
2
3
4
5
6
7
Me.fille26.SourceObjet = "SELECT [Table stockage].Transporteur, [Table stockage].[Date de livraison], [Table stockage].[Description colisage], [Table stockage].Poids, [Table stockage].[Lieu de départ], [Table stockage].[Lieu d'arrivée], [Table stockage].[Date d'enlèvement], [Table stockage].[Référence colis], [Table stockage].Prix, [Table stockage].Date " & _
    "FROM [Table stockage] " & _
    "WHERE ((([Table stockage].Transporteur)=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable12],"")="",([Table stockage].[Transporteur]),[forms]![Recherche ajout modif transport]![Modifiable12])) AND (([Table stockage].[Date de livraison])>=IIf(Nz([forms]![Recherche ajout modif transport]![texte28],"")="",([Table stockage].[Date de livraison]),[forms]![Recherche ajout modif transport]![texte28]) And ([Table stockage].[Date de livraison])<=IIf(Nz([forms]![Recherche ajout modif transport]![texte30],"")="",([Table stockage].[Date de livraison]),[forms]![Recherche ajout modif transport]![texte30])) AND " & _
    "(([Table stockage].Poids)>=IIf(Nz([forms]![Recherche ajout modif transport]![texte42],"")="",([Table stockage].[poids]),[forms]![Recherche ajout modif transport]![texte42]) And ([Table stockage].Poids)<=IIf(Nz([forms]![Recherche ajout modif transport]![texte44],"")="",([Table stockage].[Poids]),[forms]![Recherche ajout modif transport]![texte44])) AND " & _
    "(([Table stockage].[Lieu de départ])=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable94],"")="",([table stockage].[Lieu de départ]),[forms]![Recherche ajout modif transport]![Modifiable94])) AND " & _
    "(([Table stockage].[Lieu d'arrivée])=IIf(Nz([forms]![Recherche ajout modif transport]![Modifiable46],"")="",[table stockage].[Lieu d'arrivée],[forms]![Recherche ajout modif transport]![Modifiable46])) AND (([Table stockage].[Date d'enlèvement])>=IIf(Nz([forms]![Recherche ajout modif transport]![texte0],"")="",([Table stockage].[Date d'enlèvement]),[forms]![Recherche ajout modif transport]![texte0]) And ([Table stockage].[Date d'enlèvement])<=IIf(Nz([forms]![Recherche ajout modif transport]![texte5],"")="",([Table stockage].[Date d'enlèvement]),[forms]![Recherche ajout modif transport]![texte5])) AND (([Table stockage].[Référence colis])=IIf(Nz([forms]![Recherche ajout modif transport]![Texte15],"")="",([table stockage].[Référence colis]),[forms]![Recherche ajout modif transport]![Texte15])) AND " & _
    "(([Table stockage].Date)>=IIf(Nz([forms]![Recherche ajout modif transport]![texte10],"")="",([Table stockage].[Date]),[forms]![Recherche ajout modif transport]![texte10]) And ([Table stockage].Date)<=IIf(Nz([forms]![Recherche ajout modif transport]![texte12],"")="",([Table stockage].[Date]),[forms]![Recherche ajout modif transport]![texte12])));"

Ca y est.. dis moi si l'fait...

[Ps4]

Alors l'expression a été avalée (Bravo !!) mais j'obtiens une erreur d'exécution (2124) : Nom de formulaire non conforme aux règles d'appelation de mon application.

Je trouve ça vraiment bizarre

[Didier L]

Je te propose une autre solution:

Si tu veux bien essayer quelque chose de plus Ortodoxe!

Ton sous formulaire ne doit pas être indépendant mais attaché à un formulaire qui lui contiendra comme source de donnée ta requête.
Tu pourra laissé aussi ce formulaire sans source de donnée et l'affecté quand tu le désire avec l'instruction:

Code :

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

1
2
 
Me.Fille26.Form.RecordSource= "Recherche ajout modif Transport"

Ce formulaire aura comme apparence le résultat de la requête grace à la propriété

Code :

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

1
2
 
Affichage par défaut = Feuille de données

Et la normalement même en changeant ta source ou tes largeur de colonne, il ne doit plus te poser de question!

[Ps4]

Merci pour cette idée Didier L mais finalement j'ai trouvé une solution :

Code :

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

1
2
3
Private Sub Commande41_Click()
DoCmd.SetWarnings False
Me.Fille26.SourceObject = "requête.recherche ajout modif transports"

End Sub

En fait je ne placait pas l'instruction

Code :

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

DoCmd.SetWarnings False

ou il fallait. Comme cela ça fonctionne.

Et ensuite je remet la propriété à True sur fermeture du form pour voir réapparaître les messages sur les autres formulaires comme ceci:

Code :

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

1
2
3
Private Sub Form_Close()
DoCmd.SetWarnings True
End Sub

Merci à tous