Search results

Afternoon all, I am using a 2003 Access DB on Windows 10 (I have Access 2010 as well at home on my laptop but need the query to work on a 2003 instalation). I have a table (tbl_myDB) with one of the columns as class these can be 01, 08, 10, 47, 56 and multiples of these. I have a table...

Morning all, It's been a very long time since I have done anything in Access and despite googling I cannot see the answer I need, so I hope someone can help with this. I have two tables (mydb and tbl_Repairs) that I need to use to produce a form of. In tbl_mydb and tbl_Repairs I have field...

Thanks :) That got me thinking straighter

I am stumbling today badly Sorry for these dumb questions. In column D I have a date (different on each row) and in Column E I have another date (again different dates on different rows) I need Column D conditional formatted to that If the date in column D is less than Column E then it turns...

Thanks Brian AND Minty :) See it had to be something simple and now saves me :banghead:

So basicly I could have a form with command buttons on it and click one to execute the vbs to generate a particular webpage. That sounds interesting. My only problem is that my company may not allow vbs script to run, hince putting the code in an Access macro.

Thanks for the assistance guys. A bit advanced for me some of it. I am going to have a play with the ideas over a few days and report back. Watch out for loads of dumb questions ;)

Superb Brian thanks :) Just as an aside. If I want another column to show up the word expired in it if it is prior to "today" how could I do it? Would I use the same field again, with an if statement in the criteria? I tried to do it like this with Iif( <date(),"Expired","") But...

Hi again, Tried this but didn't work :( Any advice please

Hi, I want to query a table in Access 2003. I have set up the query and under criteria I need to to just select the items that are due for review. the items that need to be reviewed need to be done 21 days prior to the expiry date. i.e. Item 1 expiry date = 31/07/2015. The query would show...

Cheers James. I'll have a play with a bit of a test database and see how it goes. Mind you this email functionality may prove to also be helpful :)

This is the vbs I would like to use (this is the version I used on an older project the new DB is totally different). Const ForReading = 1, ForWriting = 2 strFilePath = "1871.html" Set fs = CreateObject("Scripting.FileSystemObject") Set ts = fs.OpenTextFile(strFilePath,ForWriting,True) ' open...

Hi all, Currently this is in the theory stage of a DB I am planning, if I pursue the DB any further I need to know if I can do this. I am hoping to create a Database but from the the data within a table I need to create a web page. I know that you can save a table as a webpage but we...

Thanks. OR the only other way it to produce a mdb, but my company does not want to let me have access. OR hand code each page :(

Hi all, I know that excel had a built in function to create a web page but it is not what I need allow me to explain. We have an intranet and I am fed up of the link going to a excel that has been set up as a htm file. Frequantly columns are collapsed and ruin the data contained within the...

Tight I'll change that when I get home. You are a star Brian I will adapt it just to count the colus to giver an overall stat of all the pens scored.

Sorted the reset problem. In the cell named "Penalties" I have place the formula =myPen(filename) Now when the name changes ... BINGO the penalty count changes :) Also just as aside .... I can modify the code changing the names of varibles and rng etc. to use it to completely do away...

Bad day and a half :( :banghead: Sorry for being dense. Usually I get things like this easily once explained. No offence taken. Is there a way to "reset" the pentot to zero before calcs are made to stop the glitch I posted?

Thanks for you paitence. Function myPen(a As Range) Dim rngP As Range Dim pentot As Long pentot = 0 For Each rngP In Range("ALLGoals") If rngP.Value = Range("filename").Value And rngP.Interior.ColorIndex = 35 Then pentot = pentot + 1 End If Next rngP myPen = pentot End Function...

Hi Brian, Been a bad day :banghead: so I hope what I am about to post makes sense and is right. I have used this code in a module making it a function. (I have had to change rng to rngP due to the fact I have rng in another bit of code). Function myPen(a As Range) Dim rngP As Range Dim...