Discussion :

[zoom61]

Attention j'ai fait une erreur :

Code :

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

1
2
3
4
5
6
Private Sub OK_Click() 
    Forms![f1].Refresh 
    maj_sf1
    Forms![f1].Refresh 
    DoCmd.Close 
End Sub

[stéphane_ais2]

j'ai fait ça :

Code :

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

1
2
3
4
5
 
Public Function Maj()
    Forms![frmEleves]![sfCommissions].Requery
    Forms![frmEleves].Requery
End Function

+

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
 
Private Sub Fermer_Click()
    On Error GoTo Err_fermer_click
    'Ferme le formulaire et met à jour cbo.Inv si le frmEleves est ouvert
    Dim intEleves As Integer
    intEleves = ObjState("frmEleves", acForm)
    If intEleves = 1 Then
 
        Forms![frmEleves].Refresh
        Maj
        Forms![frmEleves].Refresh
    Else
 
    End If
    DoCmd.Close
Exit_fermer_click:
    Exit Sub
 
Err_fermer_click:
    MsgBox Err.Description
    Resume Exit_fermer_click
 
End Sub

ça ne marche ni en suppression ni en ajout

[zoom61]

Modifie :

Code :

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

1
2
3
4
Public Function Maj() 
    Forms![frmEleves]![sfCommissions].Requery 
    Forms![frmEleves].Requery 
End Function

Par :

Code :

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

1
2
3
4
Sub Maj() 
    Forms![frmEleves]![sfCommissions].Requery 
    Forms![frmEleves].Requery 
End sub

[stéphane_ais2]

Désolé

Toujours pas

[zoom61]

As-tu des messages d'erreur ?

[stéphane_ais2]

non

[zoom61]

Essaie d'insérer le code suivant :

Code :

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

msgbox intEleves

entre :

Code :

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

1
2
3
intEleves = ObjState("frmEleves", acForm) 
msgbox intEleves
If intEleves = 1 Then

Pour voir si cela ne viendra pas de là.

[stéphane_ais2]

aucun changement...
La msgBox renvoie la valeur 1

[zoom61]

Essai en mettant de point d'arrêt dans le code pour voir si cela fonctionne correctement :

Code :

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

1
2
3
4
5
6
Sub Maj() 
    Forms![frmEleves]![sfCommissions].Requery 
    msgbox "Test 1 - Module"
    Forms![frmEleves].Requery 
    msgbox "Test 2 - Module"
End Sub

et :

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
Private Sub Fermer_Click() 
    On Error GoTo Err_fermer_click 
    'Ferme le formulaire et met à jour cbo.Inv si le frmEleves est ouvert 
    Dim intEleves As Integer 
    intEleves = ObjState("frmEleves", acForm) 
    If intEleves = 1 Then 
        msgbox "Test 1 - Forms"
        Forms![frmEleves].Refresh
        msgbox "Test 2 - Forms"
        Maj 
        msgbox "Test 3 - Forms"
        Forms![frmEleves].Refresh 
        msgbox "Test 4 - Forms"
    Else 
 
    End If 
    DoCmd.Close 
Exit_fermer_click: 
    Exit Sub 
 
Err_fermer_click: 
    MsgBox Err.Description 
    Resume Exit_fermer_click 
 
End Sub

Tu devrais avoir :
Test 1 - Forms
Test 2 - Forms
Test 1 - Module
Test 2 - Module
Test 3 - Forms
Test 4 - Forms

As-tu tout cela dans le bon ordre !

[stéphane_ais2]

oui

[zoom61]

Et en modifiant le code :

Code :

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

1
2
3
4
5
Sub Maj() 
    Forms![frmEleves].Requery  
    Forms![frmEleves]![sfCommissions].Requery 
    Forms![frmEleves].Requery  
End Sub

Mais je ne vois pas d'où cela peut venir car pour moi cela fonctionne correctement : : : Dans mon appli

[stéphane_ais2]

Encore une fois je te remercie pour ta patience...

Je vais essayer d'y retravailler et te tiens informé si cela débouche sur quelque chose.

En attendant je déleste.

Merci encore

SE

[stéphane_ais2]

J'ai repris le post et suis reparti de là :

mais peut-être cela vient-il du frm où j'ajoute et supprime les données car lorsque je valide l'enregistrement par du code sur BeforeUpdate sans sortir du frm et que je sors ensuite la mise à jour en ajout fonctionne.

J'ai créé un btn de validation de mon enregistrement avec ce 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
 
    Dim PromptText As String
    Dim Cancel As Integer
    PromptText = "Voulez-vous ajouter cet invité "
    PromptText = PromptText & Chr(13) & Chr(10)
    PromptText = PromptText & "     " & """" & UCase(Me![inv_nom] & """ ?")
 
    If MsgBox(PromptText, 49 + 256, "Confirmer l'ajout") = vbCancel Then
        MsgBox "L'opération d'ajout a été annulée", vbInformation
        Cancel = True
 
    Else
       DoCmd.RunCommand acCmdSaveRecord
 
        Exit Sub
    End If

et j'ai supprimé mon code BeforeUpdate

puis j'ai repris le code du module :

Code :

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

1
2
3
4
5
6
 
Sub Maj()
    Forms!frmEleves.Refresh
    Forms!frmEleves!sfCommissions.Form!cboInv.Requery
    Forms!frmEleves.Refresh
End Sub

puis le code dans le frm

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim intEleves As Integer
    intEleves = ObjState("frmEleves", acForm)
    If intEleves = 1 Then
        Forms![frmEleves].Refresh
        Maj
        Forms![frmEleves].Refresh
    Else
    End If
    DoCmd.Close

Et ça fonctionne en ajout et en suppression.

Merci à Zoom61