The form I'm creating will allow the user to registar welds based on a numerbic intervale (ex. 1 of 3). Now if the user is only making 1 weld register and click one of the buttons, it saves to the table fine. However if the user is trying to registar more than 1 registar weld (ex: 2 of 3) and clicks a different button on the second of third weld, then the SN for the second and third welds are not saving in the table on a different line.
Example: 1 of 3
sn = xxxxxxxxx = "Good"
sn = ccccccccc = "POP"
sn = bbbbbbbbb = "Other"
Recorded on the table would read:
sn = xxxxxxxxx = "Good" (WeldResults); "POP"(WeldResul ts1); "Other" (Weldresults2)
All of this would be on one line in the table instead of 3 different lines in the table.
How do I fix this? Here is the code for the textboxes:
"Good" textbox
"POP" Textbox:
Hope this makes sense, any help would be appreciated. I not sure why it's not recording the choices independently.
Thanks
Example: 1 of 3
sn = xxxxxxxxx = "Good"
sn = ccccccccc = "POP"
sn = bbbbbbbbb = "Other"
Recorded on the table would read:
sn = xxxxxxxxx = "Good" (WeldResults); "POP"(WeldResul ts1); "Other" (Weldresults2)
All of this would be on one line in the table instead of 3 different lines in the table.
How do I fix this? Here is the code for the textboxes:
"Good" textbox
Code:
Private Sub Text55_Click()
DoCmd.RunCommand acCmdSaveRecord
If Not IsNull(Me.SN.Value) Then
LastPosSN = Me.SN.Value
End If
If PosPullTestCount = Me.PullTestNum.Value Then
MsgBox "Time to perform a pull-test on a scrap cell!"
PosPullTestCount = 1
Me.Text30.Value = Me.PullTestNum.Value
DoCmd.OpenForm "GeneralTabPullTest"
DoCmd.GoToRecord , , acNewRec
Forms!GeneralTabPullTest!LotNumber = Me.LotNumber
Forms!GeneralTabPullTest!CreationDate = Now()
Else
PosPullTestCount = PosPullTestCount + 1
Me.Text30.Value = Me.PullTestNum.Value
End If
End Sub
Code:
Private Sub Text52_Click()
DoCmd.RunCommand acCmdSaveRecord
MsgBox "CLEAN ELECTRODES NOW"
If Not IsNull(Me.SN.Value) Then
LastPosSN = Me.SN.Value
End If
If PosPullTestCount = Me.PullTestNum.Value Then
MsgBox "Time to perform a pull-test on a scrap cell!"
PosPullTestCount = 1
Me.Text30.Value = Me.PullTestNum.Value
DoCmd.OpenForm "GeneralTabPullTest"
DoCmd.GoToRecord , , acNewRec
Forms!GeneralTabPullTest!LotNumber = Me.LotNumber
Forms!GeneralTabPullTest!CreationDate = Now()
Else
PosPullTestCount = PosPullTestCount + 1
Me.Text30.Value = Me.PullTestNum.Value
End If
End Sub
Thanks
Comment