Replies

>Would you mind posing some questions to get me closer to what I need for requirements?

I think you are asking too much of most contributors here.

You will always get better results in a forum such as this by asking a specific question. To answer your original question is basically to design your data structure for you. I do that for a living, not for free. Others may choose to be more generous.

Can I take the liberty of re-phrasing your original question. “How do I learn about designing a data structure?”

Start with http://en.wikipedia.org/wiki/Entity-relationship_model

You have at least two entities, Agents and Office.

Come back with a specific query when you understand Entity relationships.

Or, be prepared to pay a professional to do the design for you.

Alternatively, use scripting.

dim objFso as object, objFile as object

Set objFso = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFso.GetFile(“YourFile.xls”)
Debug.Print objfile.DateLastModified

Use conditional formatting. Make the background colour the default ie white and then in the Condition, select Expression is, type [Textbox_1]>0, and then set the Fill Colour to yellow.

To get the colour in the printed output, you may have to set a specific colour printer and the output to colour, not just use the default printer.

I seem to have resolved my issue by removing the reference to a Date Calendar mde control. Maybe there was some incompatibility with Access 2007.

Happy Cronk

Thanks John for replying.

There are indeed References, mainly to Office Libraries. There just may be a connection between References not being “fixed” when the mdb is copied on to a later version Office, and yes, I know this definitely will not happen copying to a PC with an earlier version of Office.

Not so cranky Cronk

Why on earth would you want to put the form’s recordset in a combo box? Use a continuous form.

But in any case, how many fields are there in the Recordset close vs columns in the combo box, and does the bound column correspond with the relevant RClone field.

CR

The failures result probably because the OTID value in those inserted records already exist and I presume OTID is unique.

CR

You need to put the line
strSQLVendor = “INSERT INTO ….
after the line
strName = !VendorName

Otherwise, you are just inserting blanks.

to determine whether or not the day in the year is before the birthday or not.

eg
Function AgeCalc(ByVal pvarDate As Variant) As Variant
‘–Calculates the number of years of age from passed variable with reference to today
‘–Input pvarDate contains date
‘–Output Age expressed as an integer
‘–Example: Age = fnAgeCalc(CVDate(“21/04/1967”))

On Error Resume Next

If VarType(pvarDate) = 7 Then
AgeCalc = DateDiff(“yyyy”, pvarDate, Date) + (DateValue(Format(pvarDate, “dd/mm”)) > Date)
If AgeCalc > 120 Then
AgeCalc = Null
End If
Else
AgeCalc = Null
End If

End Function