Datensatznavi-klick soll Formular aktualisieren.

[DieOmer]

Hallo.
Ich möchte ein Button aktiv nur im neuen Datensatz angezeigt haben. Sonst soll er deaktiviert sein.

Derzeit habe ich:

Private Sub Form_Open (Cancel als Integer)
If.Me.NewRecord Then
Me!cmdVariante.Enabled = True
Else
Me!cmdVariante.Enabled = False
End If
End Sub

Springe ich per
DoCmd.GoToRecord,,acNewRec
Beim Laden zu selbigem, ist der Button immer aktiv.

Wie bekomme ich hin, dass wenn ich über die Datensatzmarkierer zum neuen Datensatz komme der Button aktiviert wird und bei einem bestehenden Datensatz dieser deaktiviert ist?

Gruß Dennis

[Beaker s.a.]

Hallo Dennis,
Verschiebe den Code in das Ereignis Form_OnCurrent (Beim Anzeigen).
hth
gruss ekkehard

[DieOmer]

Leider nicht.

Ich habe mir jetzt aber Navi-Schaltflächen ins Formular eingebaut. Wenn ich da per GoToRecord,,acNext /,,acPrevious weiter klicke und auf den neuen Datensatz ankomme klappt die Umschaltung.

Ich habe aber enorm ein anderes Problem wo ich bisher keine Lösung finde.


Ich habe ein Hauptformular ein ja/nein kontrollkästchen.
Wenn die ein ja (-1) enthält, soll im Unterformular ein Textfeld mit einem Vordefiniertem Text gefüllt werden.

Also so etwa:
If (frmProtokoll [abtOffen]) Kontrollkästchen = ja Then
Insert (sfmProtokollDatenEingeben [proBemerk]) "Offenmaul-Abtrieb"

Dazu eine Idee?

Google schmeißt immer nur den Vorschlag raus, eine MsgBox zu verwenden. Das Kontrollkästchen basiert aber auf einer Tabelle wollte ich jetzt nicht umbauen auch weil der Haken im Formular besser zum weiterverwenden ist

[DF6GL]

Hallo,

bist Du sicher, damit eine vernünftige Lösung zu erhalten?

In welchen Ds im UFO soll der Wert geschrieben werden?

Soll nur beim Anklicken des KK der Wert geschrieben werden? Was soll  beim "Abklicken" passieren ?

Soll ein evtl. vorhanderer Wert überschrieben werden?

Ist das KK an ein Tabellenfeld gebunden?



Um einen festen Wert (oder wo kommt der her?) in ein Textfeld zu schreiben, wäre besser das Doppelklick-Ereignis des entspr. Textfeldes zu verwenden:

Sub ProBemerk_DblClick(Cancel As Integer)
Me!ProBemerk = "Dein genialer Text"
End Sub



Soll ein fester Wert (Text) beim Anlegen eines neuen DS mit in den DS übernommen werden, so bietet sich dafür die Textfeld-Eigenschaft "Standardwert" an.

[DieOmer]

Bei Gesprächen mit den Kollegen kam raus, das es doch nicht nur ein Satz ist.

Daher hast du recht. Das ist wirklich keine vernünftige Lösung.

Ich werde den Hinweis der dabei rum kommen sollte in einer neuen Tabelle packen und diese am Abtrieb anhängen. Da ich eh per Anfügetabelle alles zu einer Tabelle Schrauber zusammen füge, werd ich das Feld mit einbauen und so verwalten.

Dann fällt der VBA Teil ganz weg.