Ne pas ouvrir un formulaire + sousformulaire vide

**bvalenza** · 04/04/2018, 17h34

Bonjour à tous

j'ai un formulaire A avec un sous formulaire B
Le formulaire A contient une variable (verif) qui me compte le nombre de lignes de mon SFB
fonctionne parfaitement

Le problème, comme je gère des stocks et que je fais passer une variable de mon formulaire initial vers mon formulaire B
si l'article que je fais passer n'est pas présent dans le SFB, mon formulaire A + SF sont vides (blancs sans aucune donnéés)

POur éviter ça j'ai ajouté ma variable verif qui compte les lignes de mon SF. Ce que je voudrais c'est soit à l'ouverture du formulaire A
soit sur le bouton qui déclenche son ouverture, tester le contenu de ma variable

j'ai essayé avec

Code :

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

1
2
3
4
5
6
7
8
 
 
if isnull(me.verif) then
msgbox("article non dispo dans la stock")
docmd.close
else
exit sub
end if

mais ça ne fonctionne pas
merci d'avance pour vos idées et vos conseils

bien cordialement

BV

**titi95** · 04/04/2018, 17h58

Bonjour

Peux-tu nous faire une copie du code REEL de ta base ?

**bvalenza** · 05/04/2018, 08h53

Bonjour et merci pour votre réponse

voici le code au chargement du formulaire

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
 
 
Private Sub Form_Load()
Dim verif As Integer
verif = Me.verifstock.Value
 
If IsNull(verif) Then
 
    DoCmd.Close
 
Else
 
    Exit Sub
 
End If
End Sub

VERIFSTOCK = le contrôle qui compte le nombre de ligne du sous-formulaire
VERIFSTOCK =SF_Affecter.Formulaire!cpte

Dans mon sous-formulaire j'ai un champ dans le pied de formulaire
CPTE = =Compte([ID_stock])

quand le SF comporte au moins une ligne pas de pb
quand il est vide : erreur d'éxécution 2455 la référence d'une expression à la propriété form/report n'est pas valide
bloque sur la troisième ligne du code

Merci d'avance

**titi95** · 05/04/2018, 09h52

Bonjour

Essaie en testant directement sur la source du formulaire et en simplifiant comme ceci

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_Load()
    If IsNull(DCount("ID_stock","NomTableOuRequête","EventuelsCritères")) Then
        MsgBox "Aucun enregistrement"
        DoCmd.Close acForm, "NomFormulaire"
        Exit Sub
    End If
    '...
End Sub

**bvalenza** · 05/04/2018, 10h05

merci pour ta réponse mais ça ne fonctionne toujours pas

voici ce que j'ai fait. Je précise que le nom de la requête est la donnée source de mon SF

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Load()
 
    If IsNull(DCount("ID_stock", "R_affect")) Then
        MsgBox "Aucun enregistrement"
        DoCmd.Close acForm, "F_AffecterEquipement"
        Exit Sub
    End If
    '...
End Sub

**titi95** · 05/04/2018, 10h15

ça ne fonctionne toujours pas

Merci d'être précise :
- rien ne se passe ?
- un message ? lequel ?
- sur quelle ligne de code ça bloque ?
- ...

Essaie de faire du pas à pas à partir du code (touche F8) après avoir mis un stop en 1ère ligne de la procédure
et une MsgBox en 2ème pour vérifier le DCount

Code :

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

MsgBox DCount("ID_stock", "R_affect")

**bvalenza** · 05/04/2018, 10h19

je n'ai aucun blocage au niveau du code
fenêtre blanche

**titi95** · 05/04/2018, 10h26

fenêtre blanche

Quelle fenêtre ?

**bvalenza** · 05/04/2018, 10h28

celle du formulaire principal
Quand je teste le formulaire, avec le code que tu m'as donné, si le SF comporte des enregistrements il s'affiche normalement
si le SF n'en comporte pas la fenêtre modale est toute blanche comme si le formulaire était vide

**titi95** · 05/04/2018, 10h32

Donc la MsgBox sur le DCount n'a rien renvoyé dans les 2 cas ???

**bvalenza** · 05/04/2018, 10h39

m'affiche "ok" dans tous les cas
je pense qu'il ne détecte pas la requête du SF

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Form_Load()
 
    If IsNull(DCount("ID_stock", "R_affect")) Then
        MsgBox "Aucun enregistrement"
        DoCmd.Close acForm, "F_AffecterEquipement"
        Exit Sub
    Else
        MsgBox "ok"
    End If
    '...
End Sub

**titi95** · 05/04/2018, 10h40

Essaie comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
 
    If DCount("ID_stock", "R_affect")=0 Then
        MsgBox "Aucun enregistrement"
        DoCmd.Close acForm, "F_AffecterEquipement"
        Exit Sub
    End If
    '...
End Sub

**titi95** · 05/04/2018, 10h46

J'avais oublié la MsgBox de contrôle

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
MsgBox DCount("ID_stock", "R_affect")
    If DCount("ID_stock", "R_affect")=0 Then
        MsgBox "Aucun enregistrement"
        DoCmd.Close acForm, "F_AffecterEquipement"
        Exit Sub
    End If
    '...
End Sub

**bvalenza** · 05/04/2018, 10h50

alors ça marche impec j'ai le msg qui m'affiche 2 quand SF comporte 2 lignes et 0 quand SF vide

le problème c'est qu'il bloque sur la fermeture du formulaire car je lance le formulaire depuis un autre formulaire en faisant passer une variable
du coup quand le SF est vide il me renvoie un erreur sur la procédure précédente (qui me lance le formulaire) = erreur sur récupération de la variable

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
 
Private Sub PB_AFFECTER_Click()
Dim rt As String
rt = Me.QUANTITE_TYPE
 
 
        'ouverture conditionnelle du formulaire
        DoCmd.OpenForm ("F_affecterEquipement"), acNormal, , "[ID_ARTICLE]=" & [REF_ARTICLE]
 
        'récupération de la variable nombre d'équipements
        Forms!F_AffecterEquipement.Form!nbart = rt
 
 
 
 
End Sub

**titi95** · 05/04/2018, 10h58

Alors, au lieu d'ouvrir le formulaire et tester à son ouverture, il faut tester AVANT de l'ouvrir.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub PB_AFFECTER_Click()
Dim rt As String
rt = Me.QUANTITE_TYPE 
 
        'ouverture conditionnelle du formulaire
    If DCount("ID_stock", "R_affect") = 0 Then
        MsgBox "Aucun enregistrement"
        Exit Sub
    End If
    DoCmd.OpenForm ("F_affecterEquipement"), acNormal, , "[ID_ARTICLE]=" & [REF_ARTICLE]

'...

**bvalenza** · 05/04/2018, 11h08

alors j'ai mis le code sur le bouton d'ouverture
erreur 2450 microsoft ne trouve pas le formulaire F_affecterquipement auquel il fait référence

erreur soulignée en jaune

Code :

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

1
2
 
    If DCount("ID_stock", "R_affect") = 0 Then

**titi95** · 05/04/2018, 11h58

???
Le If Dcount n'a rien n'a voir avec le formulaire... qui n'est pas encore ouvert.

Remet moi ton code complet jusqu'au OpenForm

**bvalenza** · 05/04/2018, 12h00

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
 
 
Private Sub PB_AFFECTER_Click()
Dim rt As String
rt = Me.QUANTITE_TYPE
 
 
                'ouverture conditionnelle du formulaire
    If DCount("ID_stock", "R_affect") = 0 Then
        MsgBox "Aucun enregistrement"
        Exit Sub
    End If
 
    DoCmd.OpenForm ("F_affecterEquipement"), acNormal, , "[ID_ARTICLE]=" & [REF_ARTICLE]
 
 
 
        'récupération de la variable nombre d'équipements
        Forms!F_AffecterEquipement.Form!nbart = rt
 
 
End Sub

**titi95** · 05/04/2018, 13h24

Ta requête est bien complètement indépendante du formulaire F_affecterquipement, càd sans faire appel à lui dans une expression ou un critère ?

**bvalenza** · 05/04/2018, 13h28

Non elle fait appel à lui pour un critère de taille

Code :

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

1
2
3
4
 
SELECT T_STOCK.REF_ARTICLE, T_STOCK.TAILLE, T_STOCK.COULEUR, T_STOCK.PRIXHT, T_STOCK.ETAT, T_STOCK.QUANTITE, T_STOCK.SEUILMINI, T_STOCK.ID_STOCK
FROM T_STOCK
WHERE (((T_STOCK.TAILLE)=[Formulaires]![F_AffecterEquipement]![VALEUR]));

Ne pas ouvrir un formulaire + sousformulaire vide

Access

Discussions similaires

Partager

Partager