Save/Continue Is what I want???

[Z1nkstar]

When my sales team is entering orders into access I have this as their input screen---->

What I would Like I already have a Save/Close and an Undo/Exit I was wondering If I could do a Save/Continue so that the customer name, sales order, Customer P.O. , Ship To Where so that all they have to change when adding another Line Item from the same Sales Order is the item and the amount ordered (they are getting really lazy on me) so anything you can do to help me Thanks!!!

[pbaldy]

Looks like a bound form, so you can put the desired values into variables, use GoToRecord to go to a new record, then populate the appropriate controls from the variables.

[Z1nkstar]

I don't think I am completely following you Is that an answer or a statement?

[Z1nkstar]

What I would Like I already have a Save/Close and an Undo/Exit I was wondering If I could do a Save/Continue so that the customer name, sales order, Customer P.O. , Ship To Where so that all they have to change when adding another Line Item from the same Sales Order is the item and the amount ordered (they are getting really lazy on me) so anything you can do to help me Thanks!!!

[pbaldy]

That was a statement that answered the question. Pseudo code behind button

Dim strCust as String

strCust = Me.Customer
DoCmd.GoToRecord...(insert appropriate arguments)
Me.Customer = strCust

[pbaldy]

By the way, they are not lazy so much as they feel the computer can do more of the work. I've always thought that my job is to make other people's jobs easier. This is a perfect example of that. Them retyping the info is both a waste of time and an opportunity for errors.

[Z1nkstar]

So am I supposed to insert the fields that I want to keep into () or what and
I was just being funny sales team laughed at your response ha

[pbaldy]

No, the other fields would be additional lines before and after that one. If you look at help on GoToRecord, you'll see the arguments necessary to make the form go to a new record.

Go sales team!! Without you none of us has a job!

[Z1nkstar]

So the fields I want to keep would be this ???
1.Customer
2.CustomerPurchaseOrder
3.ShipTo
4.SalesOrder
The Expression given was for Customer???

strCust = Me.Customer
DoCmd.GoToRecord...(insert appropriate arguments)
Me.Customer = strCust

I would do separate expressions for each???

[pbaldy]

Like I said, you would add lines before and after the GoToRecord:

set variable 1
set variable 2
set variable 3
set variable 4
go to new reocrd
use variable 1
use variable 2
use variable 3
use variable 4

[Z1nkstar]

So Like this

Dim strCust as String
set variable 1 = Customer
set variable 2 = Sales Order
set variable 3 = CustomerPurchaseOrder
set variable 4 = ShipTo
strCust = Me.Customer
DoCmd.GoToRecord...(insert appropriate arguments)
Me.Customer = strCust
(I cant find the Help for GoToRecord Cmd)
use variable 1 = Customer
use variable 2 = Sales Order
use variable 3 = CustomerPurchaseOrder
use variable 4 = ShipTo

[Z1nkstar]

Okay I am just stomped on this one I cant get the code to work I am trying to keep 4 fields thats it. Can you write the code out or give me a better explanation of your answer?

[Z1nkstar]

I have this in another button on another form that wasn't created by me but is this what you mean?


'Set Variables
Dim MyDateEntered As Date
Dim MyItem As String
Dim MyQuantityOrdered As Integer
Dim MyCustomer As String
Dim MySalesOrder As String
Dim MyShipTo As String
Dim MyStatus As String
Dim MyOldBuildID As String
Dim MyCustomerPurchaseOrder As String



'Copy fields to variables
MyDateEntered = Me.DateEntered
MyItem = Me.Item
MyQuantityOrdered = Me.QuantityRemaining
MyCustomer = Me.Customer
MySalesOrder = Me.SalesOrder
MyShipTo = Me.ShipTo
MyOldBuildID = Me.BuildID
MyCustomerPurchaseOrder = Me.CustomerPurchaseOrder



'Go to a new record
DoCmd.GoToRecord , , acNewRec


'Reverse the process and plug old values into new record
Me.DateEntered = MyDateEntered
Me.Item = MyItem
Me.QuantityOrdered = MyQuantityOrdered
Me.Customer = MyCustomer
Me.SalesOrder = MySalesOrder
Me.ShipTo = MyShipTo
Me.Status = "2"
Me.BackOrderedFrom = MyOldBuildID
Me.CustomerPurchaseOrder = MyCustomerPurchaseOrder
Me.IsBackOrder = True

[Z1nkstar]

'Set Variables
Dim MyDateEntered As Date
Dim MyCustomer As String
Dim MySalesOrder As String
Dim MyShipTo As String
Dim MyStatus As String
Dim MyCustomerPurchaseOrder As String

'Copy fields to variables
MyDateEntered = Me.DateEntered
MyCustomer = Me.Customer
MySalesOrder = Me.SalesOrder
MyShipTo = Me.ShipTo
MyCustomerPurchaseOrder = Me.CustomerPurchaseOrder

'Go to a new Record
DoCmd.GoToRecord , , acNewRec

'Reverse the process and plug Values into New Record
Me.DateEntered = MyDateEntered
Me.Item = MyItem
Me.Customer = MyCustomer
Me.SalesOrder = MySalesOrder
Me.ShipTo = MyShipTo
Me.CustomerPurchaseOrder = MyCustomerPurchaseOrder






THIS WORKS SO NOW ITS FIXED THANKS!!!!!!!!!!

[pbaldy]

That's what I meant. Glad you got it sorted out.