Tricky syntax for subform and subsubform

kiwipedia

Hi all

I've got a subsubform called newsubCRBSI which sits on the subform called subfrmlines.

Mousedown on newsubCRBSI.CRBSIDate nicely brings up a calendar on subfrmlines as below...

Expand|Select|Wrap|Line Numbers

 
Private Sub CRBSIDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Parent!Calendar4.Visible = True

Me.Parent!Calendar4.SetFocus

If Not IsNull(CRBSIDate) Then

    Me.Parent!Calendar4.Value = CRBSIDate.Value

Else

    Me.Parent!Calendar4.Value = Date
 
End If

End Sub

but when it comes time for the Calendar value to get transferred back down to CRBSIDate it crashes with "Runtime error 2465 …”can’t find the field ‘newsubCRBSI’ referred to in your expression""
Problems are at Line 11 below

The code looks right to me:

Expand|Select|Wrap|Line Numbers

 Private Sub Calendar4_Click()

If Calendar4.Value > Date Then

MsgBox "Culture Date cannot be in the future."

            Calendar4.SetFocus

            Calendar4.Value = Date

ElseIf Calendar4.Value < Insertion Then

    Call MsgBox("Culture Date cannot Precede Line Insertion Date", , "NICU Line Infection Database")

            Calendar4.SetFocus

            Calendar4.Value = Insertion

  Else

Me!newsubCRBSI.Form!CRBSIDate.Value = Calendar4.Value

  Me!newsubCRBSI.Form!CRBSIDate.SetFocus

Calendar4.Visible = False

End If

End Sub

Help!

Michael

dima69

Quote:

Originally Posted by kiwipedia

Hi all

I've got a subsubform called newsubCRBSI which sits on the subform called subfrmlines.

Mousedown on newsubCRBSI.CRBSIDate nicely brings up a calendar on subfrmlines as below...

Expand|Select|Wrap|Line Numbers

 
Private Sub CRBSIDate_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.Parent!Calendar4.Visible = True

Me.Parent!Calendar4.SetFocus

If Not IsNull(CRBSIDate) Then

    Me.Parent!Calendar4.Value = CRBSIDate.Value

Else

    Me.Parent!Calendar4.Value = Date
 
End If

End Sub

but when it comes time for the Calendar value to get transferred back down to CRBSIDate it crashes with "Runtime error 2465 …”can’t find the field ‘newsubCRBSI’ referred to in your expression""
Problems are at Line 11 below

The code looks right to me:

Expand|Select|Wrap|Line Numbers

 Private Sub Calendar4_Click()

If Calendar4.Value > Date Then

MsgBox "Culture Date cannot be in the future."

            Calendar4.SetFocus

            Calendar4.Value = Date

ElseIf Calendar4.Value < Insertion Then

    Call MsgBox("Culture Date cannot Precede Line Insertion Date", , "NICU Line Infection Database")

            Calendar4.SetFocus

            Calendar4.Value = Insertion

  Else

Me!newsubCRBSI.Form!CRBSIDate.Value = Calendar4.Value

  Me!newsubCRBSI.Form!CRBSIDate.SetFocus

Calendar4.Visible = False

End If

End Sub

Help!

Michael

Are you sure that "newsubCRBSI" is the name of the subform control on the "subfrmlines" form ?

kiwipedia

Quote:

Originally Posted by dima69

Are you sure that "newsubCRBSI" is the name of the subform control on the "subfrmlines" form ?

Thanks dima69
I'm not sure when or why but I had named the subform control CRBSI - hadn't appreciated that the control name and the subform name could get out of synch. So problem solved.

Michael.

kiwipedia

Quote:

Originally Posted by kiwipedia

Thanks dima69
I'm not sure when or why but I had named the subform control CRBSI - hadn't appreciated that the control name and the subform name could get out of synch. So problem solved.

Michael.

Out of interest, I then discovered a new problem - that the setfocus didn't work until I first moved focus to the control (located on subfrmlines) of the newsubcrbsi form and only then could I move it to CRBSIDate.

Expand|Select|Wrap|Line Numbers

 
Private Sub Calendar4_Click()

If Calendar4.Value > Date Then

MsgBox "Culture Date cannot be in the future."

            Calendar4.SetFocus

            Calendar4.Value = Date

ElseIf Calendar4.Value < Insertion Then

    Call MsgBox("Culture Date cannot Precede Line Insertion Date", , "NICU Line Infection Database")

            Calendar4.SetFocus

            Calendar4.Value = Insertion
 
ElseIf Calendar4.Value > (Removal + 2) Then

    Call MsgBox("Culture Date cannot be more than two days after Removal Date", , "NICU Line Infection Database")

            Calendar4.SetFocus

            Calendar4.Value = Removal
 
  Else

Me!CRBSI.SetFocus

Me!CRBSI.Form!CRBSIDate.SetFocus

Me!CRBSI.Form!CRBSIDate.Value = Calendar4.Value
 
Me!Calendar4.Visible = False
 
End If

End Sub

msquared

OK, the syntax for referring to subforms is as follows:

If you are on the main form

Expand|Select|Wrap|Line Numbers

Me!Subform1.Form!Subform2.Form!ControlName

or If you are on subform1 then

Expand|Select|Wrap|Line Numbers

Me!Subform2.Form!ControlName

Also you need to check the 'Name' property of the subforms. You can do this by clicking on the subform object frame in design view and open properties. You will find the Name property under the other tab. Never assume that the subform object has the same name as the subforms name.

Mary

Tricky syntax for subform and subsubform

re: Tricky syntax for subform and subsubform

re: Tricky syntax for subform and subsubform

re: Tricky syntax for subform and subsubform

re: Tricky syntax for subform and subsubform

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about