Subform INSERT INTO...VALUES Problem

[dipitiduda2]

Hello All: I am trying to insert a new row
into a table using a subform's cmd button. The problem I'm having is that one of
the values being passed through to the statement is not saving when I commit the
transaction. The main form "frmProgramsAdult" passes this value "ProgramID" from
a combo box to the 1st subform object "subfrm_ProgramsAdult_PFRRs" using Link
Master and Child fields on "ProgramID". The 1st subform then has a Label with
OnClick event to open the 2nd subform "subfrm_ProgramsAdult_PFRRs_Add". The
"ProgramID" value is being passed through to the 2nd subform in the OnLoad event
using Me.OpenArgs code. When I open the 2nd subform the ID is being passed
through to the text box "txtProgramID". I'm using strSQL to INSERT INTO...VALUES
but the "ProgramID" value is not being saved.

Please help - I'm a newbie


at this and I need some assistance.

A. 1st Subform Label
"subfrm_ProgramsAdult_PFRRs" - opens 2nd Subform
"subfrm_ProgramsAdult_PFRRs_Add"
- passes through "ProgramID"
value

Private Sub cmd_AddPFRR_Click()
On Error GoTo 
cmd_AddPFRR_Click_Err

Dim stDocName As String
Dim stLinkCriteria As 
String

stDocName = "subfrm_ProgramsAdult_PFRRs_Add"
stLinkCriteria = 
"[ProgramID] = " & Me![ProgramID]

DoCmd.OpenForm stDocName, , , 
stLinkCriteria, acFormAdd

cmd_AddPFRR_Click_Exit:
Exit 
Sub

cmd_AddPFRR_Click_Err:
MsgBox Error$
Resume 
cmd_AddPFRR_Click_Exit

End Sub

B. 2nd Subform OnLoad Event
-
passes through "ProgramID" value from 1st Subform

Private Sub 
Form_Load()

Dim Args As Variant

If Not IsNull(Me.OpenArgs) 
Then
Args = Split(Me.OpenArgs, ";")
Me.txtProgramID = 
Args(0)
Me.txtProgramName = Args(1)
End If

End Sub

C. 2nd
Subform INSERT INTO...VALUES code
- tried passing in "ProgramID" value as
"txtProgramID" but that didn't work either

Private Sub 
cmd_SavePFRR_Click()
On Error GoTo cmd_SavePFRR_Click_Err

On Error 
Resume Next

Dim strSQL As String

strSQL = "INSERT INTO 
tbl_ProgramsAdult_PFRRAccts (PFRRID, ProgramID, CampusProgramID, 
SubCampusProgramID, PFRRStatus, FeesRecdFromEntityType, BeginBalance, 
FeesRecdDeposited, " & _
"FeesDisbursed , TotalFeesRecdDeposited, 
InterestRecd, FeesRecdCSProg, OtherRevenueAdjustments, 
DescriptionOtherRevenueAdjustments, TotalRecdAmount, AdminOpsAllocation, " & 
_
"CampusUmbrellaAllocation, ExcessFundsLECSAllocation, ActualRewardsPaid, 
BankFeesPaid, OtherExpensesAdjustments, DescriptionOtherExpensesAdjustments, 
TotalExpendedAmount, EndBalance, " & _
"BankBalance, RewardsUnclaimed, 
RewardsPaidAdminOpsAcct, CalendarYear, NoteID, DateCreated, CreatedByID, 
DateDeleted, DeletedByID, DateSubmitted, SubmittedByID, DateReturnedByOOG, 
ReturnedByID, " & _
"DateReturnedByPartner, PartnerReturnedByID, 
DateResubmitted, ResubmittedByID, DateCertified, CertifiedByID, 
DateReviewedByOOG, OOGReviewedByID, DateReviewedByPartner, PartnerReviewedByID, 
DatePartnerApproved, " & _
"PartnerApprovedByID, DateApprovedByOOG, 
OOGApprovedByID, DateDataToPartner, DataToPartnerByID, IsActiveFlag) " & 
vbCrLf & _
"VALUES (PFRRID, ProgramID, CampusProgramID, 
SubCampusProgramID, PFRRStatus, FeesRecdFromEntityType, BeginBalance, 
FeesRecdDeposited, FeesDisbursed, " & _
"TotalFeesRecdDeposited, 
InterestRecd, FeesRecdCSProg, OtherRevenueAdjustments, 
DescriptionOtherRevenueAdjustments, TotalRecdAmount, AdminOpsAllocation, " & 
_
"CampusUmbrellaAllocation, ExcessFundsLECSAllocation, ActualRewardsPaid, 
BankFeesPaid, OtherExpensesAdjustments, DescriptionOtherExpensesAdjustments, 
TotalExpendedAmount, " & _
"EndBalance, BankBalance, RewardsUnclaimed, 
RewardsPaidAdminOpsAcct, CalendarYear, NoteID, DateCreated, CreatedByID, 
DateDeleted, DeletedByID, DateSubmitted, " & _
"SubmittedByID, 
DateReturnedByOOG, ReturnedByID, DateReturnedByPartner, PartnerReturnedByID, 
DateResubmitted, ResubmittedByID, DateCertified, CertifiedByID, " & 
_
"DateReviewedByOOG, OOGReviewedByID, DateReviewedByPartner, 
PartnerReviewedByID, DatePartnerApproved, PartnerApprovedByID, 
DateApprovedByOOG, OOGApprovedByID, DateDataToPartner, " & 
_
"DataToPartnerByID, IsActiveFlag)"

Debug.Print strSQL

If 
Me.Dirty = True Then Me.Dirty = False

DoCmd.SetWarnings 
False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings 
True
DoCmd.Requery
DoCmd.RunCommand acCmdClose

If (MacroError 
<> 0) Then
Beep
MsgBox MacroError.Description, vbOKOnly, ""
End 
If

cmd_SavePFRR_Click_Exit:
Exit 
Sub

cmd_SavePFRR_Click_Err:
MsgBox Error$
Resume 
cmd_SavePFRR_Click_Exit

End Sub

[dipitiduda2]

Solved: I was calling "ProgramID" from 2 different places. I simply unbound the 2nd subform and passed through values using OpenArgs. Thanks!