Need help on updating text box!

[deercreek]

I have the following query and I am figuring a number to fill a text
box in a form. The code works but I cant get the text box to update
unless I change record stes and then come back.
I have the line Call GetCampDays is in 3 places.
1. The After Update event of the Start Date Control
2. The After Update event of the End Date Control
3. The Current event of the form
Anyone have any other thoughts? Thanks for help!!
Dim intTotalDays As Integer ' Counter for number of days
Dim dtmToday As Date ' To increment the date to compare
dtmEnd = DateAdd("d", -1, dtmEnd) 'don't count last day
therefore don't even look at it
intTotalDays = 0 'Startwith 0 days ' We have 0 days to
start
dtmToday = dtmStart
'InitiateCompare Date
Do Until dtmToday > dtmEnd
intTotalDays = intTotalDays + 1 ' Assum we will count

then take our weekend and Holiday
If Weekday(dtmToday, vbMonday) > 4 Then 'It is
Saturdayor Sunday
intTotalDays = intTotalDays - 1 'Take one
dayaway for weekend
ElseIf Not IsNull(DLookup("[Holidate]", "Holidays", _
"[Holidate] = #" & dtmToday & "#")) Then 'It is
aHoliday
intTotalDays = intTotalDays - 1 'Take one
dayaway for the Holiday
End If
dtmToday = DateAdd("d", 1, dtmToday) 'Add a day
forNext Compare
Loop
'Until dtmToday > dtmEnd
'All days havebeen compared
CalcWorkDays = intTotalDays 'Return the
Value

[Steve]

I don't fully understand your problem but you could try using
Me.Refresh or Me.Requery in your form. Me.Requery won't do any good
unless you have bound controls.

[deercreek]

I have tried everything I can think of to get it to update. It will
only update when I go to another record set and then back. Thats the
problem.

[Danny J. Lesandrini]

I see Me.Requery was suggested, but have you tried ...

Me.txtMyTextBox.Requery
--
Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast
"deercreek" <da*@deercreekcg.com> wrote ...

I have tried everything I can think of to get it to update. It will
only update when I go to another record set and then back. Thats the
problem.

[deercreek]

Where are you suggesting I should put this within the text box or form?

[Danny J. Lesandrini]

The word wrap on your posted code made it difficult for
me to follow, so I can't point you to a specific line, but it
should go in the code, directly following the line of code
that changes the value of the text box.
--
Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast

"deercreek" <da*@deercreekcg.com> wrote ...

Where are you suggesting I should put this within the text box or form?

[deercreek]

Nope didn't work either.

[Danny J. Lesandrini]

Well, I know this works in general, because I just posted this recently
for someone else. In trying to reproduce the issue, I can't recreate the
situation you describe. Something funky is going on. Can you post your
code again ... without the comments that wrap poorly, if possible?
--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast
"deercreek" <da*@deercreekcg.com> wrote ...

Nope didn't work either.

[Danny J. Lesandrini]

Ok I tried looking back at your code and you say that
you have the call GetCampDays in three places, but the
partial function you posted appears to be named
CalcWorkDays. If that is the case, it could cause the
text box not to update. Make sure the text box is
calling the correct function.

--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast
"deercreek" <da*@deercreekcg.com> wrote ...

Nope didn't work either.

[deercreek]

THE MODULE NAME IS GETCAMPDAYS

[Lyle Fairfield]

This is pretty complicated. Obviously there is something about your
code that Access is mishandling and I suspect that it's beyond anyone
who posts here. I don't blame you if you are frustrated.
I suggest you call MS Support (1-800-936-3500); I'm sure they'll
understand and have you up and running in a jiffy.
Hope this helps!
Merry Christmas!

[Danny J. Lesandrini]

Ok. Getting info out of you is like pulling teeth, so let me
put it this way.

You have a module named GetCampDays which contains a function
named CalcWorkDays, which, I hope, has the signature like ...

Public Function CalcWorkDays(ByVal dtmEnd As Date) As Integer
' do stuff here
CalcWorkDays = intTotalDays
End Function

This is declared as Public, so it will be visible and is a Function
because it returns a value, an Integer, the total days.

You wrote ...

I have the line Call GetCampDays is in 3 places.
1. The After Update event of the Start Date Control
2. The After Update event of the End Date Control
3. The Current event of the form

Are you saying that you put something like this in the Event Property
for each of those events?

=CalcWorkDays(Me.txtDateEnd)

Or are you saying you created event procedures for each of those
events and called the function?

Call CalcWorkDays(Me.txtDateEnd)

Of course, the call isn't assigning a value anywhere, so it would have
to look more like this ...

Me.txtDays = CalcWorkDays(Me.txtDateEnd)
Me.txtDays.Requery

I suggest that you put a break point in the public module to see if the
execution is actually getting there, and if so, when. I remember you
said that moving forward and back reveals the value, but as a matter
of debugging, you should follow the flow to see when and where the
value is being set. Then you can begin to determine where the Refresh
should be.
--

Danny J. Lesandrini
dl*********@hotmail.com
http://amazecreations.com/datafast
"deercreek" <da*@deercreekcg.com> wrote ... THE MODULE NAME IS GETCAMPDAYS