Z
zat via AccessMonster.com
I have a form that allows users to input values and then select a "Breakdown"
button on the same form to input more values. These two forms are linked by
a SANum. I can put the data in the main form with no problem. I select the
breakdown button the SANum is not populated; I enter values and close the
breakdown form, reopen it and the values are gone. However, when I close the
entire form and reopen it, then click on the breakdown button the SANum field
is populated with the correct number and I can now enter the dollar values
that will stay. The users will not be real happy if I make them close the
form and reopen it each time. Any suggestions on what I'm doing wrong. The
Button is an OnClick Event Procedure with this code:
Private Sub Command81_Click()
On Error GoTo Err_Command81_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAwardFeeBreakdown"
stLinkCriteria = "[strSANum]=" & "'" & Me![strSANum] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command81_Click:
Exit Sub
Err_Command81_Click:
MsgBox Err.Description
Resume Exit_Command81_Click
End Sub
button on the same form to input more values. These two forms are linked by
a SANum. I can put the data in the main form with no problem. I select the
breakdown button the SANum is not populated; I enter values and close the
breakdown form, reopen it and the values are gone. However, when I close the
entire form and reopen it, then click on the breakdown button the SANum field
is populated with the correct number and I can now enter the dollar values
that will stay. The users will not be real happy if I make them close the
form and reopen it each time. Any suggestions on what I'm doing wrong. The
Button is an OnClick Event Procedure with this code:
Private Sub Command81_Click()
On Error GoTo Err_Command81_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmAwardFeeBreakdown"
stLinkCriteria = "[strSANum]=" & "'" & Me![strSANum] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command81_Click:
Exit Sub
Err_Command81_Click:
MsgBox Err.Description
Resume Exit_Command81_Click
End Sub