How to get a VBA code to find a subform

I have an Access db with an Invoice form that also had a detail subform.  The Invoice is an order form and the detail subform lists: quantity, description item ordered, and the inventory in stock for that item.  I have a cmd button that activates a module that is to update the inventory.  It is to find the description item ordered in the inventory table and subtract the quantity ordered from the stock.  I cannot get the code to find the subform no matter how I type it.  How do you code VBA in order to find fields in a subform?
Who is Participating?
ravlConnect With a Mentor Commented:
To access a field on the sub-form from an event in the main form the format is:

So if your main form is called frmOrder and your sub-form is called frmDetail, then to reference the Quantity field in the sub-form you would type:
try the following:


where frmSub is name of your subform, fieldX name of field
my code assumes you are trying to reference the subform from your main form.


if your name of your subform or field has spaces then you would have to enclose them in [ ] square brackets as ravl stated.

Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to and use offer code ‘EXPERTS’ to get 10% off your first purchase.

I'd use code like this:

private sub test()
dim rs as dao.recordset
dim fld as dao.field

    set rs = forms("InvoiceFormName").Controls("SubformControlName").Form.Recordset
    do while not rs.eof
        for each fld in rs.fields
            debug.print & ":" & fld.value
        next fld
    set fld=nothing
    set rs=nothing
end  sub

T.S.U. Mario Osorio
Punto Fijo, Falcon, Venezuela

hi tlwolf,

this might be usefull anytime working with subforms :

tlwolfAuthor Commented:
Here is my code.  It works properly except it will not move to the next record in the subform.  Can you make suggestions to help me complete this task?

Public Function UpdateInventory()

'declare variables and assign address to object variables

Dim cnnMSF As ADODB.Connection
Set cnnMSF = Application.CurrentProject.Connection

Dim Description As String, Quantity As Long, Stock As Long
Dim rstInventory As ADODB.Recordset, Invoice As Form
Set rstInventory = New ADODB.Recordset
Set rstInvoiceDetails = New ADODB.Recordset
Set Invoice = Application.Forms("Invoice")

'open recordset Inventory & InvoiceDetails, Invoice should be open already
rstInventory.Open Source:="Inventory", ActiveConnection:=cnnMSF, _
    CursorType:=adOpenForwardOnly, LockType:=adLockPessimistic
rstInvoiceDetails.Open Source:="InvoiceDetails", ActiveConnection:=cnnMSF, _
    CursorType:=adOpenForwardOnly, LockType:=adLockPessimistic
'assign values to controls on the form
Description = Forms![Invoice].[InvoiceDetails]![Description]
Quantity = Forms![Invoice].[InvoiceDetails]![Quantity]
Stock = Forms![Invoice].[InvoiceDetails]![Stock]

'search for the Description in Description field
rstInventory.Find criteria:="Description = '" & Description & "'"

'calculate Stock remaining after invoice purchase
Do Until rstInvoiceDetails.EOF
    If Stock >= Quantity Then
        rstInventory.Fields("Stock").Value = Stock - Quantity
    End If
    'move record pointer to the next record

'save changes to record

'close the recordset
Set rstInventory = Nothing        'disassociate object variable from object

'close the recordset
Set rstInvoiceDetails = Nothing        'disassociate object variable from object

End Function
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.