Discussion :

[pierrequimousse]

Bonjour à tous,

Je cheche un moyen de faire un test (en vba) pour savoir s'il existe un enregistrement pour lequel le contrôle "txt_prix" de mon sous formulaire "SF_dem_prix" est vide. Les enregistrements affichés dans mon sous formulaire proviennent d'une requête directement entrée dans la source de mon sous formulaire.

J'ai pensé à deux solutions mais je n'arrive pas à les coder (manque de compétence !!).

Première solution : faire une requête identique a la requete source avec en plus une condition EST NULL pour le champ "prix". Si le nombre de résultats de cette requête est =0 alors mon test est faux (il n'existe pas de champ "prix" vide pour ces enregistrements), alors je lance la procédure correspondante.

Deuxième solution : tester un par un les enregistrements apparaissant dans mon sous formulaire et si un contrôle (zone de texte) "txt_prix" est vide pour un enregistrement alors mon test est vrai.

En éspérant avoir été clair, merci d'avance pour votre aide !

Cordialement,

Pierre

[marot_r]

Première solution : faire une requête identique a la requete source avec en plus une condition EST NULL pour le champ "prix". Si le nombre de résultats de cette requête est =0 alors mon test est faux (il n'existe pas de champ "prix" vide pour ces enregistrements), alors je lance la procédure correspondante.

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
 
public function APrixNull() as boolean
  dim result as boolean
 
  dim db as dao.database:set db=currrentdb
  dim r as dao.recordset:set r=db.OpenRecordSet("NomTaQueryDeControle")
 
  if r.recordcount<>0 then
      result=true
    else
      result=false
  end if
  'Ou plus synthétique : result=(r.recordcount<>0)
 
  r.close:set r=nothing
  db.close:set db=nothing
 
  APrixNull=result
end function

Cette méthode est sans doute plus rapide que celle de parcourrir les enregistrement par VBA mais elle t'oblige à maintenir 2 requêtes qui font la même chose ce qui est rarement une bonne chose car si tu en modifie une il faut penser à modifier l'autre en conséquence.

Deuxième solution : tester un par un les enregistrements apparaissant dans mon sous formulaire et si un contrôle (zone de texte) "txt_prix" est vide pour un enregistrement alors mon test est vrai.

Tu peux faire aussi mais une solution ne nécessitant pas de programmation est aussi possible.

Dans ta requête qui alimente ton sous-formulaire tu ajoutes un champ calculé qui s'appelle EstPrixNull et dont la valeur est IsNull([NomTonChampPrix]). Cela va te donner -1 si [TonChampPrix] est null et 0 sinon. Il suffit ensuite de faire l'addition des EstPrixNull dans un champ calculé dans le pied de ton sous-formulaire (=Somme([EstPrixNull])).

Si cette somme est 0 alors tu n'as pas de prix null, sinon c'est qu'au moins un prix est null et tu peux même savoir exactement combien de prix nulls tu as.

Et rendant le pied de sous-form invisble ton utilisateur n'en sait rien.

Pour lire la valeur de ce champs calculé à partir du formulaire principal tu peux faire ainsi :

Code :

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

me.NomTonSousFormulaire.Form![NomTaSommeDeEstPrixNull]

ou

Code :

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

[Forms]![NomTonFormulaire]![NomTonSousFormulaire].[form]![NomTaSommeDeEstPrixNull]

A+

[pierrequimousse]

Bonjour marot_r,

Merci pour ces réponses rapides ! J'ai utilisé la deuxième solution que tu m'a proposée, c'est simple, élégant, et fonctionne très bien ! Grand merci à toi donc, bonne journée et bon week end !

Cordialement,

Pierre