Troubleshooting TempVals code snip

[Amyfb]

calling all eagle eyes!

What could be preventing the value of the third variable (EndDate) from being returned when called by this For Each?


#


TempVars("gtvUserName").Value = "John Smith"
TempVars("gtvUserFolder").Value = Environ("HOMEPATH")
TempVars("gtvEndDate").Value = Format(Now(),"mm/dd/yyyy")
For Each gtv in TempVars: Debug.Print gtv.Name & ":" & gtv.Value:Next
gtvUserName:John Smith
gtvUserFolder:\Users\Amy
#

(note: in my code there is no space between : Debug, but I had to add the space here to avoid an emoticon showing up)


I'm working through some lessons in a book that already has had one typo that I had to correct. Here, I can't fathom what might be going on because I can't see any difference between how all the variables are declared.

thanks in advance for tips.

cheerios
amy

[Welshgasman]

Works fine for me?
However I wrote it as

Sub amy()
Dim gtv As TempVar

TempVars("gtvUserName").Value = "John Smith"
TempVars("gtvUserFolder").Value = Environ("HOMEPATH")
TempVars("gtvEndDate").Value = Format(Now(), "mm/dd/yyyy")
For Each gtv In TempVars
    Debug.Print gtv.Name & ":" & gtv.Value
Next


End Sub

and got

gtvUserName:John Smith
gtvUserFolder:\Users\Paul
gtvEndDate:08/24/2021

[Amyfb]

i was probably editing it

[Amyfb]

Works fine for me?
However I wrote it as

Sub amy()
Dim gtv As TempVar

TempVars("gtvUserName").Value = "John Smith"
TempVars("gtvUserFolder").Value = Environ("HOMEPATH")
TempVars("gtvEndDate").Value = Format(Now(), "mm/dd/yyyy")
For Each gtv In TempVars
    Debug.Print gtv.Name & ":" & gtv.Value
Next


End Sub

and got

gtvUserName:John Smith
gtvUserFolder:\Users\Paul
gtvEndDate:08/24/2021

interesting that my book left out the declaration at the beginning. Or maybe I was supposed to have absorbed that lesson and have known to start off with it.

I added Dim gtv as TempVars to the beginning of the snip and by golly it works perfectly fine!

thanks eagle!

[Welshgasman]

Go into the VBA editor and Tools/Options
Make sure Require Variable Declaration is ticked

This will put Option Explicit at the top of new modules.
Make sure you add it for existing modules.

Then Access will notify ou when it cannot find a variable, either by you mistyping it, or not even creating it.

[Amyfb]

Go into the VBA editor and Tools/Options
Make sure Require Variable Declaration is ticked

This will put Option Explicit at the top of new modules.
Make sure you add it for existing modules.

Then Access will notify ou when it cannot find a variable, either by you mistyping it, or not even creating it.

That bit of lesson was covered about four pages later ! Thanks again.