[Access] affich planning ss forme de tableau

Bonjour,

un formulaire type tableau constitué d'une requête modifiable par VBA est tout indiqué ! Voici une suggestion !

Créer un formulaire à l'aide de l'assistant de type tableau qui pointe sur une requête global de la table. Paramètrer au besoin la requête pour obtenir le visuel des champs sur tous les enregistrements.

Paramètrer celle-ci pour ne pointé que sur un critère de recherche qui formerait un groupe basé sur les priorités d'affichage. Une fois le résultat tableau souhaité, voici le code VBA pour modifier cette requête :

Private Sub Liste_Catégorie_AfterUpdate()

Dim Chaine As String ' Variable de la chaine de caractères
Dim Critere As String ' Variable contenant la string "SQL"
Dim Indice As String ' Variable du critère de recherche

' Affectation dans variable
Indice = Forms![Formulaire Tableau].[MaListeDeroulante]
' Création d'une chaine de caractères
Chaine = "Select * from [MaTable] where [MonChamp] = "
' Création de la string "SQL"
Critere = Chaine & """" & Indice & """"

' Appel fonction et changement de la requête
If (ChangeRequeteDef("RequeteSpecifique", Critere)) Then
' Si réussite, ouvrir formulaire tableau
DoCmd.OpenForm "Formulaire_Tableau", acNormal, "", "[ChampsDeLaRequêteEnRecherche]", , acNormal
End If

End Sub

' Et la fonction

Public Function ChangeRequeteDef( _
ChaineRequete As String, ChaineSQL As String) As Boolean

Dim Definition As QueryDef

If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If

End Function
</code>

cela te convient-il ?

Lupin

re:

si tu veux mon avis, une requête est mille fois mieux qu'une nouvelle table ssi les données sont déjà présentes dans la(les) table(s) existante(s).

Quand au problème de donnée vide, je ne vois pas de problème puisque le formulaire affiche ce qui est paramètré dans les requêtes, ce sont les objets ( contenants de donnée ) qui sont sur le formulaire.

L'encapsulation des données nous permets d'apercevoir une structure naturel qui oriente la méthodologie du travail, c'est de la grande théorie, mais très importante.

En supposant que toutes l'information est déjà présente.

Utilise un formulaire pour piloter la fabrication. Postulat : Un formulaire pointe toujours sur une requête SQL qui elle pointe sur une table ou une requête SQL.

Si j'ai bien compris tu désire un évènement client pour visualiser "le calendrier des activités en cours", terrain libre ou pas.

Délimite dans le formulaire un "calendrier", comme un tic-tac-toe mais en plus grand selon tes besoins, conserve un espace "bouton", un espace "libellé", etc...

Ensuite, pour chaque case, établie une mini-requête. Étudie bien cette rêquête de façon à ne changer qu'une seule variable et parcourrir ainsi toutes les cases du "calendrier", pour commencer de simple text box agrandi fera l'affaire, si tu est à l'aise avec la manipulation d'un objet "grid" il y a pleins de références supplémentaires que tu peux charger.

Ensuite sur un évènement bouton tu contruit une petite routine du style :

Private Sub Liste_Catégorie_AfterUpdate() 

  Dim Chaine As String ' Variable de la chaine de caractères 
  Dim Critere As String ' Variable contenant la string "SQL" 
  Dim Indice As String ' Variable du critère de recherche 
  Dim Boucle As Long

  Indice = Forms![Formulaire Tableau].[MaListeDeroulante] 
  ' Création d'une chaine de caractères 
  Chaine = "Select * from [MaTable] where [MonChamp] = " 
  ' Création de la string "SQL" 
  Critere = Chaine & """" & Indice & """" 

  For Boucle = 1 to 16

    ' Appel fonction et changement de la requête 
    If (ChangeRequeteDef("RequeteSpecifique" & Boucle, Critere)) Then 
      ' Si réussite, ouvrir formulaire tableau 
      ' ici, je crois qu'un simple refresh du formulaire fera l'affaire,
      ' à  la fin du balayage de chaque requête si tu n'as pu l'adapter.
      ' Si Resultat <> Vide Alors
      '   CetteTextBox.Value = Enregistrementdelarequête.Champ
      ' Sinon
      '   CetteTextBox.Value = ""
      ' Fin Si 
    End If 
  Next Boucle
  Me.Refresh

End Sub 
'Pas tester !

attention, je ne prétends pas que c'est la meilleur, c'est une suggestion !

Lupin