Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: mbdi am August 20, 2020, 09:31:34

Titel: Unterformular auf vorhandensein eines DS prüfen
Beitrag von: mbdi am August 20, 2020, 09:31:34
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
Titel: Re: Unterformular auf vorhandensein eines DS prüfen
Beitrag von: DF6GL am August 20, 2020, 10:27:22
Hallo,


im Unterform:

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