I have two tables one that has an so number and company name in it with the so being primary. I also have a table that stores everything that goes with that so number and all the information that goes with it. Ie: piece, datescheduled, size(l x w), and dateshipped.
I have a form in which the user can enter a so number and the company whice the order goes with and i have a subform in which you can enter all the pieces that go with that so number. What i am having problems with is when i added a check box to ship the whole shop order, i can only get it to ship the first piece. I also have a txtbox named newshipdate on my mainform.
Dim message, title, default
Dim reposnse As Integer
Dim myvalue As Date
On Error GoTo Err_shipdie_Click
message = "Please enter the date the die shipped"
title = "Shipping dies"
default = date
myvalue = InputBox(message, title, default)
response = MsgBox("Is " & [myvalue] & " the right date shipped", vbYesNo, "Continue")
If response = vbYes Then
newshipdate = myvalue
[so_number_Subform2].Form![dateshipped] = newshipdate
End If
Exit_shipdie_Click:
Me.newshipdate = Null
Exit Sub
Err_shipdie_Click:
MsgBox Err.Description
Resume Exit_shipdie_Click
End Sub
I would appreciate any help i can get because i am stumped.
brandon
I have a form in which the user can enter a so number and the company whice the order goes with and i have a subform in which you can enter all the pieces that go with that so number. What i am having problems with is when i added a check box to ship the whole shop order, i can only get it to ship the first piece. I also have a txtbox named newshipdate on my mainform.
Dim message, title, default
Dim reposnse As Integer
Dim myvalue As Date
On Error GoTo Err_shipdie_Click
message = "Please enter the date the die shipped"
title = "Shipping dies"
default = date
myvalue = InputBox(message, title, default)
response = MsgBox("Is " & [myvalue] & " the right date shipped", vbYesNo, "Continue")
If response = vbYes Then
newshipdate = myvalue
[so_number_Subform2].Form![dateshipped] = newshipdate
End If
Exit_shipdie_Click:
Me.newshipdate = Null
Exit Sub
Err_shipdie_Click:
MsgBox Err.Description
Resume Exit_shipdie_Click
End Sub
I would appreciate any help i can get because i am stumped.
brandon