|
|
|
|
Bonsoir,
Je ne suis pas certain de poster dans la section adéquate...
J'aimerais afficher un planning de réservations sous forme de tableau affichant les périodes libres et occupées.
Je dispose d'une table fournissant les date et heure et liée évidemment aux différents "protagonistes".
Je peux évidemment vérifier si la période est libre avant de confirmer la réservation mais j'aimerais que l'utilisateur puisse avoir un aperçu des périodes disponibles.
Je sais que tous les agenda le permettent mais je souhaite rester ss access pour garder le lien avec les autres données.
Une solution tte faite cô un contrôle activeX existerait-elle?
Comment faire? je ne sais pas me servir des tableaux ss access...
Merci pour votre aide.
Bonjour,
|
Merci pour ta réponse.
|
Re:
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 |
Salut
|
Bonjour,
Private Sub ListeDeNoms_AfterUpdate()
Dim Chaine As String
Dim Critere As String
Dim varAcronyme As String
If (Forms![frm_Liste].[ListeDeNoms] <> "") Then
' Ici, il faut reconstruire le requête avec la valeur
' du contrôle
'SELECT tab_Liste.*, tab_Liste.Nom
'FROM tab_Liste
'WHERE (((tab_Liste.Nom)="Lupin"));
varAcronyme = Forms![frm_Liste].[ListeDeNoms]
Chaine = "Select tab_Liste.*,tab_Liste.Nom from [tab_Liste] where (((tab_Liste.Nom)="
Critere = Chaine & """" & varAcronyme & """"
' Et ici on utilise une petite fonction pour modifier la requête
If (ChangeRequeteDef("req_Liste", Critere)) Then
DoCmd.OpenForm "frm_Liste", acNormal, "", "[ListeDeNoms]", , acNormal
End If
End If
End Sub
et voici la fonction qui modifie la requête : Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean Dim Definition As Variant 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 bon, je sais que ça ne semble pas évident mais ça fonctionne très bien. @+ Lupin |
Salut
|
Salut,
|
Salut
|
Salut Ego, salut Lupin.A
|
Bonjour,
|
Merci lupin,
|
Pour la mise en page, c'est plustôt ça:
|
Re:
|