Automatically Fill Fields in Subform

[cclayton000]

Does anyone have a basic example of a script that can automatically fill fields in a subform? Here is the scenario:

I have a main form for a Sample Lot and I have added some side-fields (not bound to any table) that asks basic information: Number of Samples (x), Quantity, Unit of Measure, Location, Tray...I would then like a button that triggers a script to automatically create the Sample Details (subform) that is autonumbered and then creates "x" number of sample details with all of the above fields populated with the values.

Thanks,

Chris

[cclayton000]

I think I figured it out with a little reading. I'm a noob (of course), but found that an Append Query is the direction to go. Here is my append query:

INSERT INTO Samples ( SampleLotID, LocationID, BoxID, BoxSlot, Quantity, UOMID, SampleContainer Number )
SELECT SampleLots.Samp leLotID, Forms!SampleLot s!SL_Location AS Expr3, Forms!SampleLot s!SL_Box AS Expr5, Forms!SampleLot s!SL_BTcnt AS Expr2, Forms!SampleLot s!SL_Quantity AS Expr1, Forms!SampleLot s!SL_UOM AS Expr4, Forms!SampleLot s!SL_concnt AS Expr6
FROM SampleLots
WHERE (((SampleLots.S ampleLotID)=[Forms]![SampleLots]![SampleLotID]));

The Sample Lot form has the unbound fields with a command button to automatically create additional Samples bound to that lot. Here is the button's script:

Private Sub Command31_Click ()

Dim max As Object
Dim cnt As Integer
Dim slotchk As Object
Dim boxslotcnt As String
Dim contcnt As Integer

On Error GoTo Err_Command31_C lick

Me.Refresh

Set max = Forms!SampleLot s!SL_Count
Set slotchk = Forms!SampleLot s!SL_BoxType
boxslotcnt = 0
contcnt = Me![sf_Samples].Form![SampleRowCount]

If max > slotchk Then GoTo Qty_Command_Cli ck

For cnt = 1 To max
boxslotcnt = boxslotcnt + 1
contcnt = contcnt + 1
Me![SL_BTcnt] = boxslotcnt
Me![SL_concnt] = contcnt
DoCmd.OpenQuery "AddSamples ", acViewNormal, acAdd
Next cnt

Me.Refresh

Exit_Command31_ Click:
Exit Sub

Qty_Command_Cli ck:
MsgBox "Quantity greater than Box Type", vbOKOnly, "Entry Error"
Exit Sub

Err_Command31_C lick:
MsgBox Err.Description
Resume Exit_Command31_ Click

End Sub

So, I think I'm good, but I have more testing on the DB to be sure it's stable. I have two questions now for you all.
1. Are there any obvious errors or "better way to do it" in my code?
2. As I was struggling through assigning variables, some required the "Set" command others could just be placed as expressions. Is there any posting that explains why this is the case?

Thanks,

Chris