Dialog not writing records correctly

[Guest]

I have a sub form with a command button that invokes a dialog.

When there are matching records (QuestionID) in the table the dialog is
populated correctly but, any records that are added to the dialog are written
to the table with QuestionID of 0 (zero) instead of the current QuestionID.

The code for the on click event is
Dim sWhere As String

Me![fiQuestionLvl3].SetFocus
sWhere = "[QuestionID] = " & Str(QuestionID)
'MsgBox "1 | " & sWhere
DoCmd.OpenForm "fSrvResponseList", , , sWhere, , A_DIALOG, Str(QuestionID)

Any ideas please.

 

[Guest]

The WhereCondition will work only on existing records, to populate new
records use the OpenArgs parameter you are sending.

DoCmd.OpenForm "fSrvResponseList", , , sWhere, , A_DIALOG, QuestionID


On the OnLoad evet of the fSrvResponseList form, write the code

If Me.NewRecord And Not IsNull(Me.OpenArgs) Then
Me.[QuestionID] = Me.OpenArgs
End If

 

[Guest]

Thanks for that Ofer
--
Graham

The WhereCondition will work only on existing records, to populate new
records use the OpenArgs parameter you are sending.

DoCmd.OpenForm "fSrvResponseList", , , sWhere, , A_DIALOG, QuestionID


On the OnLoad evet of the fSrvResponseList form, write the code

If Me.NewRecord And Not IsNull(Me.OpenArgs) Then
Me.[QuestionID] = Me.OpenArgs
End If


--
Good Luck
BS"D

I have a sub form with a command button that invokes a dialog.

When there are matching records (QuestionID) in the table the dialog is
populated correctly but, any records that are added to the dialog are written
to the table with QuestionID of 0 (zero) instead of the current QuestionID.

The code for the on click event is
Dim sWhere As String

Me![fiQuestionLvl3].SetFocus
sWhere = "[QuestionID] = " & Str(QuestionID)
'MsgBox "1 | " & sWhere
DoCmd.OpenForm "fSrvResponseList", , , sWhere, , A_DIALOG, Str(QuestionID)

Any ideas please.