Save some text fields and clear others

[whisp0214]

I have a data entry form with 7 combo boxes and text fields. Once the data is all entered they hit a button(save & new) and the form clears so they can make another entry. What I would like to do is have only 3 text boxes clear and the other 4 remain filled in when the save button is clicked. I have tried using requery and null on only the desired boxes to no avail. Does anyone have a suggestion that can point me in the right direction?

Thanks in advance.

Garret

[June7]

This is a BOUND form and you are simply moving to a new record row? What value do you want in the 4 textboxes - the last values entered by users? Use code in each control AfterUpdate event to set its DefaultValue property.

[Missinglinq]

You could do it in the Control's AfterUpdate event, as June7 suggested (and this is where most developers do this) but I see no reason why it wouldn't work if you put it at the beginning of your 'save & new' button's OnClick code:

Me.ControlToSave1.DefaultValue = """" & Me.ControlToSave1.Value & """"  
Me.ControlToSave2.DefaultValue = """" & Me.ControlToSave2.Value & """"  
Me.ControlToSave3.DefaultValue = """" & Me.ControlToSave3.Value & """"

The nice thing about this code is that it is valid for Text, Number, Date and Yes/No Field Datatypes!

Linq ;0)>

[whisp0214]

Thanks Missinglinq and June 7. That code accomplished what I wanted, but now I ran into another stumbling block. My reset button no longer resets the controls that I changed the Default Value to. I have tried setting each field to Null and used the me.controlname = "" to no avail. Any suggestions?

[whisp0214]

Nevermind. I just had to reorder the code on my reset button and reset the default value to null. Thanks again!

[June7]

Why would you even set BOUND data controls to null or empty string? If you move to new record row they should be empty.

Exactly what is the design and code for this form? Is it a BOUND form with BOUND controls?

[whisp0214]

It is a data entry form with 7 controls, and it is BOUND with BOUND controls. When a person is entering multiple items, which happens frequently, I wanted 4 of the controls to remain after they save the entry. Basically those 4 items change infrequently and the other 3 change every time. That way the user only has to enter 3 things instead of 7 for every new entry. When they need to change all 7, they can then hit the reset button and start from scratch.

[June7]

Don't understand the issue. If user does not want those values then they can change them which will also trigger setting the DefaultValue property to those new inputs.

[whisp0214]

The 7 controls are empty to start, then the user fills in all 7(nothing Auto Populates). They click a button called Save & New(this is where I put the code like Missinglinq mentioned). After the on click event, 4 controls stay as they were entered and 3 reset to blank. Now the user can just enter information in those 3 controls for their next entry. They can keep repeating this process until they need to change all 7. Then they click the reset button(where i put the code from Missinglinq with modifications) which resets the 4 controls default value to nothing. My code is below if that helps.

[Private Sub cmdClear_Click() On Error GoTo cmdclear_click_err

Me.cboSalesID.DefaultValue = Null & Me.cboSalesID.Value & """"
Me.cboAssistantID.DefaultValue = Null & Me.cboAssistantID.Value & """"
Me.cboVendorID.DefaultValue = Null & Me.cboVendorID.Value & """"
Me.cboRetailerID.DefaultValue = Null & Me.cboRetailerID.Value & """"

If Me.Dirty = True Then
DoCmd.RunCommand acCmdUndo


Exit Sub
End If


cmdclear_click_exit:
Exit Sub

cmdclear_click_err:
MsgBox Error$
Resume cmdclear_click_exit

End Sub



Private Sub cmdsave__new_Click()
On Error GoTo cmdsave_new_click_err

DoCmd.Save

Me.cboSalesID.DefaultValue = """" & Me.cboSalesID.Value & """"
Me.cboAssistantID.DefaultValue = """" & Me.cboAssistantID.Value & """"
Me.cboVendorID.DefaultValue = """" & Me.cboVendorID.Value & """"
Me.cboRetailerID.DefaultValue = """" & Me.cboRetailerID.Value & """"

DoCmd.Requery

cmdsave_new_click_exit:
Exit Sub

cmdsave_new_click_err:
MsgBox Error$
Resume cmdsave_new_click_exit

End Sub]

[June7]

If you want to clear the DefaultValue property then don't reference the controls.

Me.cboRetailerID.DefaultValue = ""