Replies

Baiju

I think if you replace the DAY($L2) with 1 in the formula it should work correctly.

Nick

Steve

I had a similar problem, and I got round it by creating a separate form with the calendar object on it. I used the Click event on various command buttons with a calendar image on them to open the calendar form modally. The code also sets a global control variable according to which date control has to receive the date. There is an OK command button on the calendar form which sets the date on the global control variable, and then closes the calendar form.

I found this to much easier than having several calendar controls on the user form itself. Let me know if you need any more details.

Nick

Lee

Using the function Year(Date) will give you the current year

Nick

Hans

Thanks for the pointers – I think I can re-use Zave’s code.

Nick

Lucas

You could create a table to contain the boilerplate text with a line number field in it, and then read it using a loop into a string variable. I have done this before, and used asterisks to bracket variables, e.g. *username*. Once the string has been created, you then use the Replace function to substitute the actual variables for the *…* text.

HTH

Nick

Andy

There is a free product Database Compare 2.0 at http://www.starinix.com[/url%5D which is very useful.

Nick

Andy

Something like this should do :

Set qdf = CurrentDb.QueryDefs(rst(“Queryname”))
qdf.Execute (dbFailOnError)
“Total recs amended = ” & qdf.RecordsAffected

Nick

Rory

An excellent bit of coding – thanks very much for that

Nick

Hans

Thanks for that quick answer. I’m not expecting the arrays to be too large – probably 20/25 elements, so that should work fine.

Nick

Hans

Just picked up this code to add to my date function library.

Many thanks for your usual high standards

Nick

I think it may depend on what your “certain number” consists of. If it is the first x of the total number of records, and assuming the total records are less than 65,000, the simplest solution might be to use DoCmd.TransferText to import the whole file, and then to create a range consisting of rows from x+1 to the end, and then delete those rows.

Nick

Steve

Without seeing the details of your list it’s difficult to know how many countries are involved, but this web page might provide useful information as the basis for a lookup :

http://www.iso.org/iso/english_country_nam…d_code_elements%5B/url%5D

Nick

Mike

I looked up some old code & it is possible you need to set the Solid property before the Transparency :

With XLshp
With .Fill
.Solid
.ForeColor.SchemeColor = 9
.Transparency = 0.5
End With
.Line.Style = msoLineSingle
.Line.Visible = msoTrue
End With

HTH

Nick

Mike

I’m not sure exactly why it fails, but you could try creating the chart in code without the progress bar, then record a new macro, create the progress bar manually, and view the code after you have done it. This should show what is happening.

Nick

Ian

Joel Spolsky is excellent on general GUI design :

http://www.joelonsoftware.com/uibook/chapt…0000000057.html%5B/url%5D

Nick