Unterformular auf vorhandensein eines DS prüfen

[mbdi]

Moin moin,

ich stehe gerade auf dem Schlauch

Ich habe ein Formular "ufrm_Protokoll" und ein Formular "ufrm_Protokoll_Beschreibung"

Verknüft sind sie über Protokoll_ID und Protokoll_ID_Beschreibung

Wenn ich das Form ufrm_Protokoll aufrufe, möchte ich gerne prüfen, ob im ufrm_Protokoll_Beschreibung ein Eintrag vorhanden ist.

Wenn das so ist, möchte ich im ufrm_Protokoll folgendes :

If DS im ufrm_Protokoll_Beschreibung mit gleicher ID vorhanden..... Then
Rechteck28.BackColor = RGB(237, 28, 36)
Else
Rechteck28.BackColor = RGB(217, 236, 255)
End If

Ich möchte damit visuell anzeigen, das es noch weitere Daten gibt.
Das Form ufrm_Protokoll_Beschreibung kann man dann per Button öffnen.

Hoffe ich habe das einigermaßen verständlich ausgedrückt :-D

[DF6GL]

Hallo,


im Unterform:

Code [Auswählen] Erweitern

Private Sub Form_Current()


If Me.Recordset.RecordCount > 0 Then
Me.Parent!Rechteck28.BackColor = RGB(237, 28, 36)
Else
Me.Parent!Rechteck28.BackColor = RGB(217, 236, 255)
End If

End Sub