Discussion :

[thetortue]

Bonjour a tous je début sur access et vba.
J'espère que je pose au bon endroit.
Dans le cadre de mes études j'ai un projet a réaliser mais j'ai un problème je voudrai faire une actualisation de mon formulaire en fonction de l'option choisie sur le formulaire mais voilà le formulaire du point de vu affichage ne fonction seulement si je le ferme et réouvre ensuite je vous copie le code que j'ai mis mais qui ne fonctionne pas j'ai tenter plusieurs commande que j'ai trouver a gauche a droite mais qui ne fonctionne toujours pas malheureusement.



Voici 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Option Compare Database
 
Private Sub Bnt_Menu_Click()
    'ferme le formulaire
    DoCmd.Close
    ' ouvre le menu
    DoCmd.OpenForm "Frm_Menu"
End Sub
 
Private Sub Bnt_New_Album_Click()
    ' ouvre le formulaire nouvelle album
    DoCmd.OpenForm "Frm_nouvelle_album"
End Sub
 
Private Sub Coh_Dispo_Click()
    ' définie les case cocher ou pas
    Me.Coh_tous.Value = 0
    Me.Coh_Dispo.Value = -1
    Me.Coh_indispo.Value = 0
    'pour le bonne affichage
 
    Dim strsql1 As String
 
 
    'remet à jour le code SQL dans la requete pour la selection dans le formulaire par défaut adhérent de droit
    strsql1 = "SELECT dbo_Album.Code_Album, dbo_Album.Titre_Album, dbo_Album.Annee_Album, dbo_Album.Code_Genre, dbo_Album.Code_Editeur, dbo_Album.Prix, dbo_Album.Quantite_restante FROM dbo_Album WHERE (((dbo_Album.Quantite_restante)>0));"
 
 
    'met à jour le code SQL dans la requete
    CurrentDb.QueryDefs("Req_Album").SQL = strsql1
    'actualiser l'affichage
    'Forms("Frm_Album").Controls("Frm_Album1").Form.Refresh
    Me!Frm_Album1.Requery
End Sub
 
Private Sub Coh_indispo_Click()
    ' définie les case cocher ou pas
    Me.Coh_tous.Value = 0
    Me.Coh_Dispo.Value = 0
    Me.Coh_indispo.Value = -1
    Dim strsql1 As String
    'remet à jour le code SQL dans la requete pour la selection dans le formulaire par défaut adhérent de droit
    strsql1 = "SELECT dbo_Album.Code_Album, dbo_Album.Titre_Album, dbo_Album.Annee_Album, dbo_Album.Code_Genre, dbo_Album.Code_Editeur, dbo_Album.Prix, dbo_Album.Quantite_restante FROM dbo_Album WHERE (((dbo_Album.Quantite_restante)<=0));"
    'met à jour le code SQL dans la requete
    CurrentDb.QueryDefs("Req_Album").SQL = strsql1
    'actualiser l'affichage
    'Forms("Frm_Album").Controls("Frm_Album1").Form.Refresh
    'Me.Frm_Album1.Requery
    'Me.Controls("Frm_Album1").Form.Requery
    Me!Frm_Album1.Requery
End Sub
 
Private Sub Coh_tous_Click()
    ' définie les case cocher ou pas
    Me.Coh_tous.Value = -1
    Me.Coh_Dispo.Value = 0
    Me.Coh_indispo.Value = 0
    Dim strsql1 As String
    'remet à jour le code SQL dans la requete pour la selection dans le formulaire par défaut adhérent de droit
    strsql1 = "SELECT dbo_Album.Code_Album, dbo_Album.Titre_Album, dbo_Album.Annee_Album, dbo_Album.Code_Genre, dbo_Album.Code_Editeur, dbo_Album.Prix, dbo_Album.Quantite_restante FROM dbo_Album ;"
    'met à jour le code SQL dans la requete
    CurrentDb.QueryDefs("Req_Album").SQL = strsql1
    'actualiser l'affichage
    'Forms("Frm_Album").Controls("Frm_Album1").Form.Refresh
    Me!Frm_Album1.Requery
 
End Sub
 
Private Sub Form_Open(Cancel As Integer)
    Me.Coh_tous.Value = -1
    Me.Coh_Dispo.Value = 0
    Me.Coh_indispo.Value = 0
End Sub

Merci d'avance pour votre aide

[pyloupylou]

heu c'est bien mais la base serait mieux .... si tes données sont sensibles, bah tu les retires

[thetortue]

Voici la base j'ai du l'héberger sur un site car je ne sais pas pourquoi je n'arrive pas a la charger sur le forum alors que je l'ai bien alléger en retirant ce qui ne servais pas pour la résolution a mon problème.
http://www.partage-facile.com/LF95JL...iut.accdb.html

Hier j'ai voulu test quelque chose vu que mon formulaire se mets a jour si je le ferme puis ré ouvre j'ai donc mis dans mon fichier vba quand je clique sur mon option de fermer et ouvrir le formulaire ce qui fait que ça fonction sauf que la croix du coup n'est pas placer au bon endroit.