Default Series

R

RMires

Is there any way to step through a series of defaults in a control? For
example, for the first record, have A as the default, then B, then C, then
start over at A, B, C, A, etc.
 
K

Klatuu

Yes, but the problem is knowing where to start on any given data entry
session. By that, I mean when you close the form last time, the last record
you entered was a "B", so how do you know that or do you always start with
"B"? Not knowing your business rules, I can't tell you the logic to select
which value to use. The business rules for this also will determine where
and when you change the Default Value setting.
 
R

RMires

Yes, it should start with the same each day. I'm entering a volume pumped of
gasoline additive each day, but there are seven different brands. It will
usually be the same order, but not necessarily. The volumes come off of a
report in order of brand everyday, so for ease of entry I'd like to have the
each brand come up as the default in order. The only other way I can think of
would be to pre-fill the table, but that doesn't seem the best way to do it
to me.
 
K

Klatuu

Any time you consider pre-filling tables, slap yourself in the head, take a
coffee break, and start over <g>

Okay assuming you will start at the same place each day and you will be
going A, B, C, A, B ,C, etc. Here is a plan.

In the form Load event, set the beginning default value for the control.

Me.txtBrand.DefaultValue = "A"

Then in the Form After Update event, change it:

Dim strLastBrand As String

strLastBrand = Me.txtBrand.DefaultValue
Select Case strLastBrand
Case Is "A"
Me.txtBrand.DefaultValue = "B"
Case Is "B"
Me.txtBrand.DefaultValue = "C"
Case Is "C"
Me.txtBrand.DefaultValue = "A"
End Select
 
R

RMires

Let's pretend for a moment that I'm new to access and don't really have much
programming experience...

I assume I can put the
Me.txtBrand.DefaultValue = "A"
into the code builder. Does the "Me" translate into the form name?
The form is named frmEntry, and the Text Box is named Tank. I put
frmEntry.Tank.DefaultValue = "A"
and got a Variable not Defined Error
 
K

Klatuu

Me refers to the form the code module belongs to.
For fully qualified code it would be:
Forms!frmEntry!Tank.DefaultValue = "A"
But you can use either
Me!Tank.DefaultValue = "A"
or
Me.Tank.DefaultValue = "A"
 
R

RMires

I forgot about putting forms! before the form name. I'm slowly getting there
though. It's accepting the code now, but instead of "A" I'm getting a #name?
The control is actually a combo box with a table as the control source.
Could this be a problem?
 
K

Klatuu

A table can't be a control source. A control source is either a field in the
form's record source or an expression that returns and displays a value.
If "A" is in the combo's list, it should work.
Post your code so I can have a look.
Also, include the row source of the combo and what is in the Control Source
property of the combo.
 
R

RMires

I'm sorry, the table is the Row Source. The Brand Names are listed in a field
called Tank in both tables.

Form: frmEntry
Combo Box: ctlTank
Tables: tblEntry (frmEntry's Record Source)
tblTanks (ctlTank's Row Source)

Control Source of the Combo is Tank

Code:
Private Sub Form_Load()
Me.ctlTank.DefaultValue = "A"
End Sub
 
K

Klatuu

Oops! My Bad. The default value has to be expressed as a string in quotes,
so we have to include th quotes in the string. Should be:

Private Sub Form_Load()

Me.ctlTank.DefaultValue = """A"""

End Sub

Notice the nice indenting that makes code easier to read :)

Now that is (expanded for visibility)

" " " A " " "
 
K

Klatuu

Well, good. I certainly did my share of the fumbling <g>
The newsgroup editor is much more forgiving of syntax than VBE.
 
R

RMires

What is the "newsgroup editor"?

Klatuu said:
Well, good. I certainly did my share of the fumbling <g>
The newsgroup editor is much more forgiving of syntax than VBE.
Click to expand...
 
Top