ok so I have been researching this question all day! and have tried every possible answer that I have found.. however I am still having issues.
I have 6 fields on a form that I would like to carry over the data from those fields to the next record... I can not set the default to a specific value because it could change.
I have 3 combo boxes and 3 text boxes... I can get one of the combo boxes to work, but not the other 2 and I receive errors on them every time even though it is the exact same code I have tried on all 3.
I have tried the following code(s) below
1
const cQuote=""""
me!Control.DefaultValue = cQuote & me!Control.Value & cQuote
This works on the first combo box but not the other 2 and works on text boxes.
2
In the After Update event of the UserName field put code like this:
Me![UserName].Tag = Me![UserName].Value
In the On Enter Event of the same field put code like this:
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![UserName].Tag) Or Me![UserName].Tag = "") Then
Me![UserName].Value = Me![UserName].Tag
End If
I have tried this also, and it works but did not show the values and still gave me an error on my other 2 combo boxes.
The error I receive is a Run Time Error 438 Object Doesnt Support This Property or Method.
I have also tried Allen Brownes Assign default values from the last record
and that did not work either. I received errors.
I have 6 fields on a form that I would like to carry over the data from those fields to the next record... I can not set the default to a specific value because it could change.
I have 3 combo boxes and 3 text boxes... I can get one of the combo boxes to work, but not the other 2 and I receive errors on them every time even though it is the exact same code I have tried on all 3.
I have tried the following code(s) below
1
const cQuote=""""
me!Control.DefaultValue = cQuote & me!Control.Value & cQuote
This works on the first combo box but not the other 2 and works on text boxes.
2
In the After Update event of the UserName field put code like this:
Me![UserName].Tag = Me![UserName].Value
In the On Enter Event of the same field put code like this:
If Not Me.NewRecord Then Exit Sub
If Not (IsNull(Me![UserName].Tag) Or Me![UserName].Tag = "") Then
Me![UserName].Value = Me![UserName].Tag
End If
I have tried this also, and it works but did not show the values and still gave me an error on my other 2 combo boxes.
The error I receive is a Run Time Error 438 Object Doesnt Support This Property or Method.
I have also tried Allen Brownes Assign default values from the last record
and that did not work either. I received errors.