Me.OpenArgs gibt immer Null zurück, wenn versucht wird, ein neues Formular im Zugriff zu öffnen

Question

Okay, also habe ich eine Datenbank in Access, und wenn ich ein Formular geöffnet habe (für eine Bewerbung), und klicken Sie auf eine Schaltfläche, wird dies ausgeführt Code:

Private Sub cmdAddDemo_Click() 

DoCmd.OpenForm "sfrmAppDemographics", , , , , , txtApplID.Value 

End Sub 

Wo txtApplID ein Textfeld mit einem numerischen Wert für „Anwendungs-ID“ Nummer in einer Tabelle für Anwendungen gefüllt ist. Ich möchte, dass dieser Wert an das Formular "sfrmAppDemographics" übergeben wird, damit die korrekten demografischen Informationen für den Benutzer im zuvor genannten Formular für die Anwendung angezeigt werden.

Also, ich tat dies in den Code für die Demographie bilden:

Private Sub Form_Open(Cancel As Integer) 

Dim rs As DAO.Recordset 
Set rs = Me.Recordset 
If rs.RecordCount = 0 Then 
    rs.AddNew 
    rs!ApplID = Me.OpenArgs 
    rs.Update 
Else 
    MsgBox Me.OpenArgs 
End If 
Me.Requery 

End Sub

Also, die Idee ist, wenn es keine demographischen Daten ist, wird es eine neue mit dem erstellen ApplID von den übergebenen Openargs, und wenn demographische Daten für diesen Benutzer vorliegen, erscheint eine Meldung mit den Openargs (als Test, um zu sehen, ob es funktioniert). Ich bekomme IMMER einen Fehler "Laufzeitfehler '94': Ungültige Verwendung von Null" - in der Zeile für die MsgBox. (Weil die Datenbank Datensätze für demografische Daten enthält). Wenn ich die Else MsgBox Me.OpenArgs herausnehme, zeigt es nur die ersten demografischen Informationen in der db mit ApplID 1. Seltsam. Es scheint, ich bin nicht in der Lage, Pass oder die AppID über die OpenArgs-Funktionalität in dem Code Form_Open zu übergeben. Irgendeine Hilfe?

Answer 1

OpenArgs ist eine Zeichenfolge, die an das Formular übergeben wird, nicht mehr. Wenn Sie die genannte Form filtern möchten, verwenden Sie den WhereCondition Parameter:

Private Sub cmdAddDemo_Click() 

    DoCmd.OpenForm "sfrmAppDemographics", WhereCondition:="ApplID = " & txtApplID.Value 

End Sub 

Wenn Sie den Datensatz erstellt werden soll, wenn es nicht vorhanden ist, macht es Sinn, die ID zusätzlich als OpenArgs weitergeben müssen:

DoCmd.OpenForm "sfrmAppDemographics", WhereCondition:="ApplID = " & txtApplID.Value, _ 
        OpenArgs:=txtApplID.Value 

und dann

Private Sub Form_Open(Cancel As Integer) 

' No need for a separate recordset here 
If Me.RecordsetClone.EOF Then 
    ' We are already in a new record, just set the bound ID control to create it 
    Me!ApplID = Me.OpenArgs 
    ' if you want to save the new record immediately 
    Me.Dirty = False 
End If 

End Sub 

PS Wenn Me.OpenArgs Null in Ihrem Code ist, dann war txtApplID Null. Ich sehe keinen anderen Grund.

Answer 2

Nur DoCmd.GoToRecord, hinzuzufügen brauchte, arbeitete acNewRec, um den Code von Andre und es ohne Probleme ...

Private Sub Form_Open(Cancel As Integer) 

    If Me.RecordsetClone.EOF Then 

     DoCmd.GoToRecord , , acNewRec 

     Me!ApplID.Value = Me.OpenArgs 

     Me.Dirty = False 

    End If 

End Sub