Question : Sélection en second lieu ou disque de tiers sur une forme secondaire

Salut. J'ai une forme principale qui a également un subform.
This la forme que secondaire fait aléatoirement vouloir 3 noms dans it.

I pouvoir en mesure sur la forme principale dans un domaine choisissent le nom dans la première rangée. si ce nom est égal à un autre champ sur la forme principale je vouloir elle choisisse le nom dans la deuxième rangée et finalement si le nom dans le premier et la seconde sont sur la forme principale moi vouloir qu'elle choisisse le nom dans le troisième chemin de row.

the à partir de la forme principale au nom sur la forme secondaire est :
[subform de qryRandomSalesPersonNext]. Forme ! Le champ d'EmpID

the que je veux que le nom sur la forme principale entre s'appelle le champ du txtRandom

The sur la forme principale qu'il vérifie pour voir si le nom existe déjà s'appellent : le
FIRSTOwner
SECONDOwner

How peut je faire ceci ? le
is il possible sur la commande du txtRandom de champ de rechercher la 2ème rangée ou la fait toujours retour la rangée supérieure ? class= de

Réponse : Sélection en second lieu ou disque de tiers sur une forme secondaire

Bonjour,

naturellement vous ne pouvez pas placer un champ à une valeur si elle contient déjà une formule pour le calcul. Dans ce cas-ci elle doit être un champ vide et non lié. Et car ce n'est pas un champ sauvé vous pouvez employer le code ci-dessus dans l'évènement actuel de forme qui se produit sur n'importe quel changement record de la forme principale.
En outre, ce code ne fonctionnera pas si vous n'avez pas au moins trois disques dans votre subform.

1. enlever
= [subform de qryRandomSalesPersonNext]. Forme ! EmpID
du txtRandom

2. copier ce code dans votre forme principale :
Form_Current secondaire privé ()
    Faibles rs comme DAO.Recordset
    Placer les rs = je. [subform de qryRandomSalesPersonNext]. Form.RecordsetClone
    rs.MoveFirst
    Si Me.txt aléatoire = Me.FIRSTOwner alors
        rs.MoveNext
        Si Me.txt aléatoire = Me.SECONDOwner alors
            rs.MoveNext
        Finir si
    Finir si
    Sinon (rs.EOF ou rs.BOF) puis
        Me.txt aléatoire = rs. Champs (« EmpID »)
    Finir si
    Placer les rs = rien
Finir le sous-marin

alors il devrait fonctionner.

À la votre,

Chrétien