Getting last entry of field for default value in form

[Torinjr]

I have a form, shown in the pic below, that contains combo boxes which i want to get the last entry of their field for the default value. I want to do this because the user is required to input many records and often the 'Tendering Name' and 'Item Type' are the same, thus reducing the time to enter the data into the form.

Does anyone know how i can do this? I hope the pic is ledgible.

[Torinjr]

The form is Saving the records fine using the 'Add Item to Data' button. I want to be able to click 'Next Item' and have the form go to the next record, with the Tender Name and Item Type already entered using the same values as the previous entry. Thanks.

[pbaldy]

How about

http://access.mvps.org/access/forms/frm0012.htm

[Missinglinq]

Paul's given you a link to the standard method, but FYI there is a keyboard shortcut that enters the same data, for a Control, that was last input into the Control:

<Ctrl> + <'>

Note that this even works if the Form is closed and later reopened!

Welcome to the forum!

Linq ;0)>

[Torinjr]

Thanks for the help, I have finally got a working solution. Here is the code:


Private Sub NextItem_Click()

Const cQuote = """" 'Thats two quotes
Me!cboTenderName.DefaultValue = cQuote & Me!cboTenderName.Value & cQuote


Const cQuote1 = """" 'Thats two quotes
Me!cboType.DefaultValue = cQuote1 & Me!cboType.Value & cQuote1
DoCmd.GoToRecord , , acNewRec


End Sub


You guys rock!

[pbaldy]

Happy to help!

[Torinjr]

Following on from this, i'm trying to get the code to stop from going to the new record if any of the fields are Null.
Here is my current code: although i suspect the exit function is not the command im after.

Private Sub NextItem_Click()

If [cboItem] = Null Then
MsgBox "Please enter the Item Description "
Exit Function

ElseIf [Quantity] = Null Then
MsgBox "Please enter the Quantity "
Exit Function

ElseIf [cboUOM] = Null Then
MsgBox "Please enter the Unit "
Exit Function

ElseIf [UnitPrice] = Null Then
MsgBox "Please enter a Unit Price "
Exit Function

End If

Const cQuote = """" 'Thats two quotes
Me!cboTenderName.DefaultValue = cQuote & Me!cboTenderName.Value & cQuote

Const cQuote1 = """" 'Thats two quotes
Me!cboType.DefaultValue = cQuote1 & Me!cboType.Value & cQuote1

DoCmd.GoToRecord , , acNewRec

End Sub

[pbaldy]

It's a sub, not a function, so

Exit Sub

[Torinjr]

This has solved my error thanks, however when i test the form it still goes to the next record despite me leaving one of the fields Null. Why does the If loop fail to stop this?

[pbaldy]

That isn't a valid way to test for Null. Try

If Len(Me.cboItem & vbNullString) = 0 Then

[Torinjr]

Perfect, you're a legend. Saving me so much time.

[pbaldy]

No problemo!

[Torinjr]

How do I set the default value for these fields on the next record?

I changed the line to DoCmd.GoToRecord , , acNext however I now need to set/update the default value on the next record from a Null value to the value from the previous record?

[pbaldy]

How about this, in the after update event of the control?

http://access.mvps.org/access/forms/frm0012.htm

[Missinglinq]

Paul gave you a link for doing this...and you've posted code that does this, but here's a quick recap:

You can use the AfterUpdate event of the Control holding your data to set the DefaultValue for the Field. From that time forward, until you either manually change the data or close your form, the data will be entered automatically in each New Record.

Private Sub YourControlName_AfterUpdate()
   Me.YourControlName.DefaultValue = """" & Me.YourControlName.Value & """"
End Sub

This syntax is valid for Text, Number, DateTime and Boolean Datatypes.

You’ll need to do this for each Control that you want to ‘carry forward.’

Linq ;0)>