[AC-2002] Tester si un sous-formulaire affiche des données

[dut-dut]

Bonjour !

Une question complémentaire... dans l'optique de résoudre le problème décrit ici.

Voici un contexte simplifié :
- Formulaire principal : 1 champ "Article"
- Sous-formulaire : 1 champ "Total"
=> Fonctionnement : lorsque je saisis une valeur dans le champ "Article", le sous-formulaire apparaît avec le champ "Total" à jour grâce à la relation père/fils.

Le problème : dans une procédure, je fais référence au champ "Total" comme suit :

Code :

1
2
3
Public Sub test()
    MsgBox Nz(Me.Ss_Form.Form.Total.Value, 0)
End Sub

Mais lorsqu'il n'y a pas de valeur correspondant à l'article (champ père) dans la source de données du sous-formulaire, on obtient l'erreur '2427 : Expression sans paramètre'.

Est-il possible tester directement (c'est-à-dire sans recordset) si le sous-formulaire affiche des données ?

[loufab]

Bonjour,

Intercepte l'erreur 2427 tout simplement...

Cordialement,

[dut-dut]

Bonjour,

Effectivement ça parait logique mais je cherche s'il n'y a pas une autre solution car cette erreur se produit dans 2 cas de figure :
- cas 1 : lorsqu'il n'y a pas de données à afficher dans le sous-formulaire (cas dont je parle ici)
- cas 2 : lorsque le sous-formulaire va bien contenir des données mais n'a pas encore eu le temps de s'actualiser (cas dont je parle dans ce post)

J'essaie donc de trouver un moyen de distinguer le traitement de ces 2 situations :
- cas 1 : on arrête la procédure et on renvoie un message d'erreur
- cas 2 : on patiente (avec une boucle DoEvents) jusqu'à ce que le sous-formulaire s'actualise

[dumas.blr]

Bonjour,

J'avais trouvé cet exemple dans l'aide Acces e Microsoft (rubrique "comment faire ... dans Acces 2007)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Current()
 
    With Me![Orders_Subform].Form
 
        ' Check the RecordCount of the Subform.
        If .RecordsetClone.RecordCount = 0 Then
 
            ' Hide the subform.
            .Visible = False
 
        End If
    End With
End Sub

Tu devrait pouvoir adapter ce code pour empêcher l'exécution de ton instruction.

[dut-dut]

Bonjour et bon début de semaine !
Je ne suis qu'à moitié convaincu car cette méthode implique un recordset (mes sources de données sont des requêtes parfois compliquées et longues à exécuter) mais en l'absence de meilleure proposition, je vais voir ce que ça donne...

[ClaudeLELOUP]

Bonjour,

Si le problème est d'obtenir une valeur correcte ou "quelque-chose-par-défaut quoi-qu'il-arrive" , j'utilise ceci plutôt que Nz :

Code :

1
2
3
4
5
6
7
8
9
10
11
Function NullToZero(anyValue As Variant) As Variant
On Error GoTo error
    If IsNull(anyValue) Then
        NullToZero = 0
    Else
        NullToZero = anyValue
    End If
Exit Function
error:
NullToZero = 0
End Function

Ici, quoi qu'il arrive, j'obtiens une réponse.
Nz() fonctionne pour une valeur "Null" mais pas si cette valeur n'existe pas ou, dans ton cas, si elle n'existe pas encore.
Ps A utiliser en connaissance de cause !

[loufab]

Bonjour,

Pas d'interception d'erreur, pas d'utilisation de recordset.

Concernant la solution proposée par Dumas-lbr je la trouve parfaitement valable.
Elle ne te convainc pas et pourtant si on analyse les objets utilisés on s'aperçois qu'il utilise le recordset du formulaire. Donc l'argument selon lequel cela pourrait poser des problèmes (de lenteurs ?) avec des requetes complexes ne tient pas trop la route.

En effet le recordset du formulaire est déjà ouvert, et ces propriétés sont déjà intialisées.

Cordialement,

[dut-dut]

Envoyé par loufab

Bonjour,

Pas d'interception d'erreur, pas d'utilisation de recordset.

Ouais je sais c'est pas très pratique...

Envoyé par loufab

Concernant la solution proposée par Dumas-lbr je la trouve parfaitement valable.
Elle ne te convainc pas et pourtant si on analyse les objets utilisés on s'aperçois qu'il utilise le recordset du formulaire. Donc l'argument selon lequel cela pourrait poser des problèmes (de lenteurs ?) avec des requetes complexes ne tient pas trop la route.

En effet le recordset du formulaire est déjà ouvert, et ces propriétés sont déjà intialisées.

Cordialement,

Je n'avais pas percuté cette subtilité en ce qui concerne le clone du recordset. C'est bon à savoir et je retiens pour plus tard.
Malheureusement, la solution de dumas.blr ne fonctionne pas dans le cas 2 (lorsque le sous-formulaire va bien contenir des données mais n'a pas encore eu le temps de s'actualiser).

N'ayant toujours pas de solution, en attendant je fonctionne avec des recordsets... La question reste néanmoins en suspend et je ne mets pas le flag "Résolu" au cas où quelqu'un ait une solution à proposer à l'avenir.