Hallo zusammen,
ich möchte, dass eine Schaltfläche angezeigt wird, wenn Daten in einem Ufo vorhanden sind.
Ich bin wie folgt vorgegangen:
Ein Textfeld mit =[F_Ufo].[Formular]![MeinFeld] im Steuerelemteinhalt zeigt mir im Formular an, ob ein Datensatz vorhanden ist.
Wenn ein Datensatz vorhanden ist, wird "0" angezeigt, bei keinem Datensatz "#Fehler".
Nun habe ich beim Formular öffenen das Ereignis "Beim Öffnen" folgenden Code hinterlegt:
If IsError(MeinFeld) Then
Else
If MeinFeld = 0 Then
Me!S_Schaltfläche.Visible = True
End If
End Sub
Leider bekomme ich eine Fehlermeldung.
Ich glaub, dass ist nicht die profesionellste Art, aber ich kann ( noch nicht ) besser.
Danke für Unterstützung.
N'abend,
folgender Vorschlag:
Im Hauptformular beim Ereignis "Beim Anzeigen" einbauen:
Me.Schaltflaeche.Visible = Not IsNull(Me.F_Ufo.Form.MeinFeld) ' es widerstrebt mir, bei Namen von Variablen, Buttons usw. Umlaute zu nehmen
Solch eine Zeile bitte nach einer Zeile wie
Me.F_Ufo.Requery
einbauen, damit der Inhalt Deines Steuerungsfeldes jeweils aktuell ist.
Harald
PS setzte mal voraus, dass "MeinFeld" ein Pflichtfeld ist. Ansonsten könnte es einen Datensatz geben, der dort nichts enthält und dann ein falsches Verhalten bewirkt.
Hallo,
Zitatwenn ein Datensatz vorhanden ist, wird "0" angezeigt,
Wie kommt denn die 0 zu Stande wenn ein Datensatz vorhanden ist?
Und soll der Button ins Hafo oder ins Ufo?
Ich würde auf eine solche Krücke verzichten und die Datensätze im Ufo direkt zählen und entsprechend den Button ein bzw. ausblenden.
Danke für beide Lösungen, hat gut geklappt.....
Werde mir Mühe geben, die Krücke zu ändern.
Danke