Autocompleting information on a Subform

mmcdonal · May 6th, 2005, 02:10 PM

Hi,

Enter another End IF after the first End If.

You have two If Then End If statements, but only the second one has a closing End If. The first one needs one too. So your code section is this way:

'=====
'.....
If Not IsNull(Forms![frmToolOrders]![TWOrderNumber]) Then
    If IsNull(Me.TWOrderNumber) Then

        Me.ShippingTicketNumber = DMax("ShippingTicketNumber", "tblShippingTickets") + 1
        Me.TicketDate = Date
        Me.TWOrderNumber = Forms![frmToolOrders]![TWOrderNumber]
        Me.Customer = Forms![frmToolOrders]![CustomerNameID]
        Me.PONumber = Forms![frmToolOrders]![PONumber]
        Me.PartNumber = Forms![frmToolOrders]![PartNumber]
        Me.Material = Forms![frmToolOrders]![txtMaterialID]
        Me.Process = Forms![frmToolOrders]![txtProcessID]
    End If
'.....
'=====

But it should read like this:

'=====
'.....
If Not IsNull(Forms![frmToolOrders]![TWOrderNumber]) Then
    If IsNull(Me.TWOrderNumber) Then

        Me.ShippingTicketNumber = DMax("ShippingTicketNumber", "tblShippingTickets") + 1
        Me.TicketDate = Date
        Me.TWOrderNumber = Forms![frmToolOrders]![TWOrderNumber]
        Me.Customer = Forms![frmToolOrders]![CustomerNameID]
        Me.PONumber = Forms![frmToolOrders]![PONumber]
        Me.PartNumber = Forms![frmToolOrders]![PartNumber]
        Me.Material = Forms![frmToolOrders]![txtMaterialID]
        Me.Process = Forms![frmToolOrders]![txtProcessID]
    End If
End If

'.....
'=====

HTH

mmcdonal