Fehlermeldung beim öffnen eine Formulars

[SG05]

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.

[bahasu]

N'abend,

folgender Vorschlag:
Im Hauptformular beim Ereignis "Beim Anzeigen" einbauen:

Code (vb) [Auswählen] Erweitern

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.

[MzKlMu]

Hallo,

wenn 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.

[SG05]

Danke für beide Lösungen, hat gut geklappt.....

Werde mir Mühe geben, die Krücke zu ändern.

Danke