Recent content by virtualpete

Hi, I have a strange problem and cannot see why my script is not working properly. Basically the scipt works and outputs the file but it misses paret of the data at the following line ' Write contents section Do Until rstProp.EOF WriteMapContents...

Thanks Guys, I have tried to add it to the variable like so: 'Declare variables Dim db As Database ' Database Dim rstHTML As Recordset ' HTML table recordset Dim rstProp As Recordset ' Property table recordset Dim...

Hi, I am having a few issues with my module code in Access 2002. for some reason every time I write some code Access is automatically making the first letter a capital so for instance [Our Ref] should be [Our ref] but it simply will not let me do it! Temp = rstHTML!html1 & rstProp![Our Ref] &...

Thanks TJP I apprecaite your help and time :)

Hi TJP, thanks for that. Do I place the function in the recordet like this Set rstPrice = db.OpenRecordset("SELECT Period_desc, Price,Nz([Price],0), Round(Price/7,2) AS Daily_rate FROM qryPropertyPriceList WHERE [Our ref] = '" & rstProp![Our Ref] & "' And [Year] = " & rstProp![Next year...

Hi TJP, I wonder if you can help with anotehr small issue which I am sure there is an easy solution. Where is am using the Round(Price/7,2) AS Daily_rate in the recordset is there a way to put a text string if a field is empty so I will end up with correct Daily_rate values plus values saying...

Thanks TJP, I will give that a go. Thanks for your help. :)

Hi TJP, thanks for the advice. Well I think I have found a possible cause. The field Price from which I am trying to apply the calculation is actually a Text field. Now the strange thing is that it works on all values that have a £ sign but it faulters on those that have a € sign. I can of...

Thanks TJP, I do not get any messages it just hangs. If I remove the Daily_rate field it works fine and outputs a file as it should. Is there a way to work through the script to see what it does not like?

Hi, I am trying to use a calculated field in a recordset but I am having problem with the script trying to compile. my record set is Set rstPrice = db.OpenRecordset("SELECT Period_desc, Price, Round(Price/7,2) AS Daily_rate FROM qryPropertyPriceList WHERE [Our ref] = '" & rstProp![Our Ref] &...

Hi , I have manged to delete all my modules, does any one know of a way to retrieve them or find them?? I have not closed MSAccess and not compacted. And having a mild panic attack!

Thansk Bob, I just tried acFormatTXT and that works fine. Maynbe I need to play around a bit to see what works best.

Hi Bob, 2002 - pretty sure sp3

Hi Bob, this is what I have at the moment: Dim stDocName As String stDocName = "rptAvailabilityExport" DoCmd.SendObject acReport, stDocName I just tried to add , acFormatXLS so it reads DoCmd.SendObject acReport, stDocName, acFormatXLS But I get a warning saying no such format :(

Hi Bob, I have created a command button to mail the report. When i click on the button a pop up appears asking me to select a format. Do you know if there is a way to set it for this report to Excel?