Replies

Thanks John – I’ll try it and let you know how it goes. BTW, what’s in your fnValidateEmail function?
Thanks,
Gwenda

Thank you Steve. I’ll try it. Am also having good luck with using the VBA DateValue function. I inserted a column to the right of my column of mal-formed dates and used: activecell.value = DateValue(activecell.offset(0,-1).value).

Somewhere there is also a post from Charlotte who said you should decompile and then re-compile your Access 97 database, compact and repair it, and then do the conversion. BTW, de-compile is a command line switch, e.g. at the command prompt type msaccess.exe /decompile yourdatabase.mdb.
Rock on,
Gwenda

Kevin, I’m interested in knowing where to get a free object library for email from vba … especially if you can vouch for its usefulness.
Gwenda

*That* is a cool suggestion!

Charlotte … I did as you suggested and ran, as a test, the same code snippet from Word where it performed perfectly. Then, weirdly IT WORKED from Access too. I dunno’ what changed, but I’m happy.
Many thanks,
Gwenda

Charlotte when you say “use a static variable”, do you mean something like:

Public Function MyFunction() As String
Static XYZ
If nz(XYZ) = “” then
‘code to lookup the value from the table and put it into XYZ
end if
MyFunction = XYZ ‘the name of the global variable
End Function

set the controlsource in the propertysheet like this:

=MyFunction()

Thanks … Gwenda

Hi Mark,
Why couldn’t you just use code sorta’ like the test code I put in my reply to Bawn?
Gwenda

Hi Bawn … I fooled around with this a bit and am able to create a custom toolbar and populate with names of open forms:

Sub test()
Dim menubar As CommandBar
Dim newcombo As CommandBarComboBox
Dim frm As Form

Set menubar = CommandBars.Add _
(Name:=”Custom2″, Position:=msoBarFloating, menubar:=True)
With menubar
.Protection = msoBarNoMove
.Visible = True
End With

Set newcombo = CommandBars(“Custom2”).Controls _
.Add(Type:=msoControlComboBox)
For Each frm In Forms
With newcombo
.AddItem frm.Name
.OnAction = “switch to form” ‘would have to call a function here to switch to the form you want
End With
Next frm
End Sub

Hi Bawn,
In online help is code to populate a CommandBarCombox Object which I pasted below. Then couldn’t you cycle through the collection of open forms and populate the combobox with their names?

Set combo = CommandBars(“Custom”).Controls(2)
With combo
.AddItem “First Item”, 1
.AddItem “Second Item”, 2
.DropDownLines = 3
.DropDownWidth = 75
.ListIndex = 0
End With

Gwenda

Charlotte – You recommend “decompile and then compile your A97 code in Access 97”.

The compile is accessed off the Debug menu in 97 …. but HOW do you decompile???

Thanks, Gwenda

As always, Charlotte, a word from you is worth a whole day of reading technical books.
Thanks,
GWenda

Hi Allan,
I would create a new table with one record in it to hold your multipliers. Then begin your “run” through the database by opening the table with your values and reading them into memory variables and then closing the table and then do the rest of your processing by referencing the memory variables.

Maybe Charlotte or other lumineries will have a different approach.
Gwenda

Allan,
Your algorithm as far as I can see, is exactly what you wrote in your post: cycle through records, updating # number to max of 18 and compute the FICA, Health, etc.

I would open a recordset and loop to EOF, calling sub-routines or functions to do calculations on each record.
Gwenda

Mark,
I’m not quite sure what kind of document contains the .mp3’s information, but if its Word or Excel, you can use the CustomDocumentProperties property of the Workbook (in XL) or Document (in Word). Here’s the example out of Excel’s Help:

rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.CustomDocumentProperties
Cells(rw, 1).Value = p.Name
Cells(rw, 2).Value = p.Value
rw = rw + 1
Next