OpenArgs Errors

[Steven19]

Can someone please help.



I've done Open Args several times and I'm in the process of creating a Accident Database. However I have a page that just doesn't want to work.

From MainMenu > FrmTypeofIncident > FrmReportingAccident > FormDescriptionofIncident all okay then I click continue

Private Sub Closebtn_Click()
DoCmd.OpenForm "FrmDescriptionofInjury", , , "[IncidentDescriptionID] = " & Me.IncidentDescriptionID, , , Me!IncidentDescriptionID
End Sub

And FrmDscriptionifInjury with

Private Sub Form_Open(Cancel As Integer)
If Me.OpenArgs <> "" Then
Me![IncidentDescriptionID].DefaultValue = "" & Me.OpenArgs & ""
End If
End Sub

Should open a new record, but Im getting the following error:

Run-time Error 438
Object doesn't support this property or method

Me![IncidentDescriptionID].DefaultValue = "" & Me.OpenArgs & ""

But I have done this dozens of times and don't see what is wrong.

Can someone help me out please?

[pbaldy]

Your zip file appears to be empty. Make sure you're referring to the control, not the field:

Me.TextboxName.DefaultValue

[CJ_London]

you just need


Me.IncidentDescriptionID.DefaultValue = Me.OpenArgs

if IncidentDescriptionID is an autonumber, you cannot set a default

[Steven19]

Actually there was nothing wrong with my code. I found that if I deleted the destination form and re-built it, then upon trying, it all worked.

[pbaldy]

Glad you got it sorted out. The method Ajax posted would work as long as you didn't care about the default value being set to Null or "", which could potentially override an existing preset default.