PDA

Vollständige Version anzeigen : Laufzeitfehler 2108


Christoph Eick
03.01.2002, 20:22
Hallo,
Bei folgender Prozedur erhalte ich den Laufzeitfehler 2108 mit der Meldung:
"Sie müssen das Feld erst speichern, bevor Sie die GeheZuSteuerelement-Aktion, die GoToControl oder SetFocus-Methode ausführen können"

Private Sub kmEnde_AfterUpdate(Cancel As Integer)
KM = [KmEnde] - [KmStart]

If KM <= 0 Or KM >= 1500 Then
MsgBox "Bitte überprüfer Sie den Anfangs- bzw.
Endkilometerstand." & Chr$(13) & _
" Die gefahrenen Kilometer sind entweder kleiner
oder gleich 0 oder sie sind größer als 1.500 km", vbQuestion
KmEnde.SetFocus
End If

End Sub

Christoph Eick

MarioR
03.01.2002, 20:56
Hallo Christoph,

jetzt bin ich etwas verwirrt. Wo kommt bei Deiner AfterUpdate-Prozedur das "Cancel as Integer" her. Das kenn ich eigentlich nur von BeforeUpdate. Und bei dieser Ereignisprozedur kannst Du mit Cancel=True das Ereignis abbrechen. Das würde dann so aussehen:

Private Sub kmEnde_BeforeUpdate(Cancel As Integer)
KM = [KmEnde] - [KmStart]

If KM <= 0 Or KM >= 1500 Then
MsgBox "Bitte überprüfer Sie den Anfangs- bzw.
Endkilometerstand." & Chr$(13) & _
" Die gefahrenen Kilometer sind entweder kleiner
oder gleich 0 oder sie sind größer als 1.500 km", vbQuestion
Cancel=True
End If

End Sub