Eingabe in Kombi in einem Ufo erzwingen

[Carl]

Ich versuche, in einem Ufo auf Formularebene die Eingabe in ein Kombifeld zu erzwingen mit:

Code [Auswählen] Erweitern


Private Sub Form_BeforeUpdate(Cancel As Integer)
(oder)
Private Sub BatterieName_BeforeUpdate(Cancel As Integer)
   If IsNull(Me!BatterieName) Then
     Cancel = True
     MsgBox "Das muss eingetragen werden"
     Me!BatterieName.SetFocus
   End If
End Sub


Wenn ich das Hafo (mit dem UFO) schließe, wird die Eingabe nicht erzwungen. Was könnte der Grund dafür sein?

Carl

[Beaker s.a.]

Hallo Carl,

Code [Auswählen] Erweitern


Private Sub Form_BeforeUpdate(Cancel As Integer)
   If IsNull(Me!BatterieName) Then
     Cancel = True
     MsgBox "Das muss eingetragen werden"
     Me!BatterieName.SetFocus
   End If
End Sub
Ich sehe da keinen Fehler (ist aber schon spät).
Was ist hier "Me.", HFo oder UFo? Was ist "!BatterieName" für ein Feld?
gruss ekkehard

P.S. Vielleicht hilft dir auch dieses http://www.donkarl.com?FAQ4.12.

[Carl]

Guten Morgen Ekkehard,

das hatte ich im UFO.

Bei Donkarl 4.12 ist es so, dass zwar der Wert ausgewählt wird und auch in einem Feld gespeichert werden kann, aber wenn man einen DS anlegen möchte, muss man mindestens einmal in das Kombi klicken. Wenn der Benutzer das vergisst, wird der DS in der Zwischentabelle nicht angelegt und der angelegte Proband lässt sich über die Filter nicht finden. :-(

Das Problem ist, dass der User zum Anklicken des Kombis eine Entscheidung treffen muss, die aber zum Zeitpunkt der Anlage des Neuen Datensatzes in der Haupttabelle noch nicht getroffen werden kann. Er wird also nicht wissen, was er wählen soll und dieses Feld erstmal weg lassen.

Ich würde also gern erzwingen, dass er anklickt und einen Platzhalterwert "9" wählt.
[BatterieName] ist ein Kombi, das auf IDBAT_F (Long) in der Zwischentabelle aufsetzt.

Carl

[Carl]

Okay, ich geb' die Idee auf und hab ne andere Lösung genommen.

[Beaker s.a.]

Gib dem Kombi doch den Wert als Standard mit.