Accessing a subform controls

[Dave14867]

Hello all,

I need to access the controls on a subform in an AfterUpdate event on the main form. When I update the "CompletionDate" on the Main form, I want to access the "QtyAllocated" control on the subform. I know that to access a control on the main form I can use Me. but I have never tried to get access to the subform controls until now. I want to make the "QtyUsed" equal to the "QtyAllocated" then make the "QtyAllocated" =0.

I am working on the "frmWorkOrders" now which uses the "frmWorkOrdersSubform2". The QtyAllocated and QtyUsed are in the subform.



The attached file only contains sample data as I am trying a new concept for me and want to get the knack of what I am trying to accomplish.





MRP New Design 6-26-19.zip

Thanks

Dave

[CJ_London]

the way you reference a subform from the main form is

me.subformcontrolname.form.controlname

but your subform is a datasheet. With datasheets and continuous forms, the value that will be returned is the one for the selected record.

It's not clear where you want to go from this point but to loop through the form controls (actually recordset) you would use something like

with me.subformcontrolname.form.recordsetclone
    .movefirst
    while not .eof
        'do something
        .movenext
    wend
end with

[Dave14867]

Ajax,

What I would like is to have each line of the datasheet have the respective qty's copied. Are you saying I cannot do this with a datasheet?

I tried "me.frmworkOrder-SubForm2.Form." but I don't seem to have access to the "QtyAllocated" control.

Is there a better method to achieve what I want to get done?

Thanks

Dave

[CJ_London]

they don't always appear with intellisense - just type it in

also, having none alphanumeric chars in names for table/field/control/form/report etc will cause you problems at some point down the line - typically generating a misleading error message which takes days to resolve.

basic rule for naming

no spaces
no non alphanumeric chars (except underscore if you must)
don't start with numbers
don't use reserved words

What I would like is to have each line of the datasheet have the respective qty's copied. Are you saying I cannot do this with a datasheet?

no, i'm saying you need to refer to the recordsetclone and then the relevant field, not the control

[ssanfu]

This worked in a test:
Add the code below.
Click in a record in the sub form, click the "Save" button, then click the "Allocate" button

Private Sub CmdAllocate_Click()
    On Error GoTo CmdAllocate_Click_Err


    Me![frmworkOrder-SubForm2].Form!QtyUsed = Me![frmworkOrder-SubForm2].Form!QtyAllocated
    Me![frmworkOrder-SubForm2].Form!QtyAllocated = 0

    Me.WOStartDate.SetFocus
    Me.CmdAllocate.Visible = False

    Me.CmdPartsAllocated.Visible = True
    '    Me.CmdPartsAllocated.Left = 3168


CmdAllocate_Click_Exit:
    Exit Sub

CmdAllocate_Click_Err:
    MsgBox Error$
    Resume CmdAllocate_Click_Exit

End Sub

BTW, the top 2 lines in EVERY code module should be

Option Compare Database
Option Explicit

You are missing the line in blue ......

[Dave14867]

Steve,

I tried the code you suggested and it doesn't work for me. I did correct the lack of Option Explicit, thanks for catching that. I had also made some other changes prior to seeing your post which I don't think would have affected it, but maybe they did. I have attached the latest file, can you see where the error is? I get an error that says "You can't assign a value to this Object".

MRP New Design 7-3-19 -1.zip

Thanks

Dave

[Dave14867]

Steve,

I found a way to get what I want.

Thanks for making me think of alternatives.

Dave

[ssanfu]

Happy to help......

Good luck with your project