Example: 1 of 3
sn = xxxxxxxxx = "Good"
sn = ccccccccc = "POP"
sn = bbbbbbbbb = "Other"
Recorded on the table would read:
sn = xxxxxxxxx = "Good" (WeldResults); "POP"(WeldResults1); "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
Expand|Select|Wrap|Line Numbers
- 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
Expand|Select|Wrap|Line Numbers
- 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