Ich habe den Laufzeitfehler '2501' in einem Formular. Hat jemand Ideen, warum dies passiert und wie man es beheben kann?Laufzeitfehler '2501'
Der Bericht wird durch diesen Code aufgerufen:
Private Sub Command92_Click()
DoCmd.SetWarnings Off
''# get current reqid and version number
DoCmd.OpenQuery "NewReqVersion", acViewNormal
Dim NewReqID As Integer
Dim NewVerID As Integer
NewReqID = Me.Text58
NewVerID = Me.Version + 1
[Forms]![UWReviewForm].[StatusID] = 99
On Error Resume Next
**DoCmd.Save acForm, "UWReviewForm"**
DoCmd.OpenForm "NewReqVersionForm", acNormal
DoCmd.GoToRecord acDataForm, "NewReqVersionForm", acLast
End Sub
Private Sub StatusID_Change()
Me.LastModifiedTimeStamp = Now()
End Sub
Befreien Sie sich von "On Error Resume Next" - es sollte nur selten verwendet werden. Welcher Code wird beim Laden oder Öffnen von NewReqVersionForm ausgeführt? – Fionnuala
Verwenden Sie es nie außerhalb und Fehlerbehandlung. –
'DoCmd.Save acForm' speichert den Entwurf des Formulars, nicht die Daten, die darin angezeigt werden, so dass es für mich aussieht, als ob diese Zeile überhaupt nichts Nützliches tut. Wenn Sie die Änderung in den Daten in diesem Formular speichern möchten, verwenden Sie 'Forms! UWReviewForm.Dirty = False'. –