Frage : An zweiter Stelle vorwählen oder Drittelaufzeichnung auf einer Vorform

Hallo. Ich habe eine Hauptform, die auch ein subform.
This hat, das, Vorform nach dem Zufall 3 Namen in it.

I auf der Hauptform in einem Feld sein wünschen lässt vorwählen den Namen in der ersten Reihe. wenn dieser Name einem anderen Feld auf der Hauptform ich gleich ist, sie den Namen in der zweiten Reihe vorwählen wünschen und, wenn der Name im ersten und die Sekunde auf der Hauptform ich, sie sind den Namen im dritten row.

the Weg von der Hauptform zum Namen auf der Vorform vorwählen schließlich wünschen ist:
[qryRandomSalesPersonNext subform]. Form! EmpID

the Feld, das ich den Namen auf der Hauptform innen gehen wünsche, wird txtRandom

The Feld auf der Hauptform genannt, der es überprüft, um zu sehen, wenn Name bereits werden benannt existiert:
FIRSTOwner
SECONDOwner

How kann ich dies tun?
is tut es möglich auf der Steuerung des Feld txtRandom, die 2. Reihe oben zu schauen oder sie immer Rückkehr die Spitzenreihe?

Antwort : An zweiter Stelle vorwählen oder Drittelaufzeichnung auf einer Vorform

Hallo,

selbstverständlich können Sie ein Feld nicht auf einen Wert einstellen, wenn er bereits eine Formel für Berechnung enthält. In diesem Fall muss er ein leeres und ungebundenes Feld sein. Und da dieses nicht ein gespeichertes Feld ist, können Sie den Code in den Form-Tagesereignissen oben verwenden, die auf jeder Rekordänderung in der Hauptform auftritt.
Auch dieser Code arbeitet nicht, wenn Sie nicht mindestens drei Aufzeichnungen in Ihrem subform haben.

1. entfernen
= [qryRandomSalesPersonNext subform]. Form! EmpID
vom txtRandom

2. diesen Code in Ihre Hauptform kopieren:
Privates VorForm_Current ()
    Schwache rs als DAO.Recordset
    Rs einstellen = ich. [qryRandomSalesPersonNext subform]. Form.RecordsetClone
    rs.MoveFirst
    Wenn Me.txt gelegentlich = Me.FIRSTOwner dann
        rs.MoveNext
        Wenn Me.txt gelegentlich = Me.SECONDOwner dann
            rs.MoveNext
        Beenden wenn
    Beenden wenn
    Wenn nicht (rs.EOF oder rs.BOF) dann
        Me.txt gelegentlich = rs. Felder („EmpID“)
    Beenden wenn
    Rs einstellen = nichts
Unterseeboot beenden

dann sollte es arbeiten.

Beifall,

Christ