Fejl i kode

"væglængde" står IKKE til autoTab.

Den kan løses ved at indsætte følgende kode i det efterfølgende felt:
Private Sub Væghøjde_Enter()
If IsNumeric(Me.Væglængde) Then
Else
Me.Væglængde.SetFocus
End If
End Sub

Men det virker som lidt af en lappeløsning.
Hvorfor virker den første kode ikke?

stry try the BEFORE UPDATE event and set Cancel = True to cancel the update. Th ecursor will still be in the field.

Så vidt jeg kan se bliver BEFORE UPDATE event ikke trigget hvis der bliver TAB'et uden at der er indtastet i feltet.

Yes I think your right there, but then you could have a routine which evaluates the input if all fields. This would be in the BEFORE UPDATE event for the form.
Then you would check to make sure that all fields input is valid if not you can place the cursor in the first invaluid field.

Anyway I can take a look at this too. I have received your dB :o)

Private Sub Væglængde_AfterUpdate()
Call BeregnTotal

End Sub

Private Sub Væglængde_BeforeUpdate(Cancel As Integer)
    If Not IsNumeric(Me.Væglængde) Then
        MsgBox "Intast væglængde", vbOKOnly
        Cancel = True
       
    End If

End Sub

Private Sub Væglængde_Exit(Cancel As Integer)
    If Not IsNumeric(Me.Væglængde) Then
        MsgBox "Intast væglængde", vbOKOnly
        Cancel = True
    End If

End Sub

>>Terry
Jeg har et lille problem med http://www.eksperten.dk/spm/391397 , gider du at kigge på det :-)

am doing

Tak for din tålmodighed!
Din løsning er noget mere elegant end min(havde ikke lige luret den med "if NOT" :-))

selv tak