Hi zusammen,

ich habe ein Bestellformular mit einen Unterformular der einzelnen Artikel. Um eine neue Bestellnummer zu vergeben habe ich dieses Code:

Private Sub cmdInputBox_Click()
Dim strNeueBestNr As String
strNeueBestNr = InputBox("Geben Sie bitte die neue Nummer ein.", _
"Änderung der Bestellnummer", , 6500, 9000)
If strNeueBestNr = "" Then
Exit Sub
End If
Me.BestNr = strNeueBestNr
DoCmd.GoToControl "Artikelbestellungen"
DoCmd.GoToControl "KdNr"
End Sub

Ich bekomme den Laufzeitfehler in der FETT-gedruckten Zeile angezeigt.

Das Unterformular hat den folgende Daten:
Name: Artikelbestellungen
Bezeichnungsname: Artikelbestellungen_Beschriftung
Herkunftsobjekt: UfrmArtBest (das Unterformular mit den einzelnen Positionen)
Verknüpft nach: BestNr

Wäre toll wenn mir jemand einen Tipp geben könnte.

Dankeschön schonmal im Vorfeld.

Gruß