Search results

Sorry url was wrong. Fixed now. https://access-programmers.co.uk/forums/showthread.php?t=216444 I have looked at yours recently, which is amazing and much more complex but haven't got the time to try and implement it atm. I also only really need the address lookup from postcode and was unsure...

[Solved] Postcode lookup stopped working The excellent piece of code contained here that allows uk postcode address lookup: https://access-programmers.co.uk/forums/showthread.php?t=216444 has recently stopped working. It has stopped working on a windows 7 machine. It generates a run-time...

Today this has stopped working on a windows 7 machine. It generates a run-time error saying "An error occurred in the secure channel support". This happens at the .send line here: Set winReq = New WinHttpRequest With winReq .Open "GET", sStr, False .Send HTM...

Just gave it a whirl and works fine. Thanks for your help, it's much appreciated.

Thanks will give that a try shortly.

Thanks. If I use that and then delete a birthdate to test it still gives a data type mismatch error in criterion error. EDIT I have it set to test if age is over 25 and I think thats whats causing the error. Deleting that clause and it works. I tried "Is Not Null And >25" but it doesn't help.

I use: Age: DateDiff("yyyy",[Birthdate],Date())+(Date()<DateSerial(Year(Date()),Month([Birthdate]),Day([Birthdate]))) to create a column in a query. The problem is I want some instances where Birthdate is blank. In these case it causes an error. Is there anyway I can just have it be blank for...

I have probably set something up wrongly or am not using the correct version, but on load I get this: When I first try to enter a postcode I get this: The box that pops up is this: After just leaving blank and clicking ok it seems to work. If I click cancel it stops.

Is there an example of this anywhere I can have a look at. It's something I have thought of doing in the past. I would like to attach another table so each record can have various notes along with a time and date but attaching table to table is something I haven't done before.

Had a look and that's impressive stuff. I wish I was able to create at that level. It really make me fell amateur. The only issue I have is when it loads up a box come up with "Enter Parameter Value" and "Postcodes.In.Use?" If I just leave it blank and click ok I then go through to the main...

Thanks for that. I will have a good look at it. I have until now been using a bit of code that looks postcodes up on 192.com. It stopped working at one point, as they changed the website slightly, but I managed to get it going again. I've never been completely happy with it and always wished for...

Yes it's uk so in the format ST12 1XL. I tried creating a string and storing the values there but that won't work for the table field as it then asks me to enter the value. I recently did a similar thing with phone numbers so for that I have Me.Filter = "onlyDigits(nz([Phone 1 No])) Like '*" &...

I want to change the following to remove spaces when testing for post codes Me.Filter = "[Address 1] Like '*" & TEST & "*' Or [Postal Code] Like '*" & TEST & "*'" so it would be something like Me.Filter = "[Address 1] Like '*" & TEST & "*' Or replace([Postal Code], " ", "") Like '*" &...

Ok SELECT IIf([due date] Like "*/05/2017",IIf([sms]=True,"true","false2"),"false1") AS [Current&SMS], * FROM RecallLetters WHERE (((RecallLetters.[Due Date]) Like "*/*/2017" Or (RecallLetters.[Due Date]) Like "*/*/2016" Or (RecallLetters.[Due Date]) Like "*/*/2015") AND ((RecallLetters.PartAdd)...

Big thanks for that. I'm a novice at SQL. I actually create the query using access query design view and the copy the sql generated into vba. I'm using this in another query to pick from the first query. The problem is it omits a person with a date that matches but sms is false, so it is...

I have the following SQL generate a query. SELECT * FROM RecallLetters WHERE (((RecallLetters.[Due Date]) Like "*/*/2017" Or (RecallLetters.[Due Date]) Like "*/*/2016" Or (RecallLetters.[Due Date]) Like "*/*/2015") AND ((RecallLetters.PartAdd) In (SELECT [PartAdd] FROM [RecallLetters] As Tmp...

Tanks all. There is no relationship between the tables. Dlookup did the trick.

I have a main table and a settings table. The settings table only has 1 id number and a few data fields and updated on an annual basis. I generate reports using a query on the main table but want to add in some of the data from the settings table. I am struggling with how to link the tables or...

Well I managed to sort a workaround. I simply save the the publisher document I have created. I have created a duplicate of my printer and set it up boarderless and the correct paper tray. I then use command line to set this as default printer and the print the publisher doc. Command line 1 VBA...

I don't know why it is doing this. In windows 7 it works perfectly. I have tried all iterations of close and quit etc. With windows 10 I always end up with a blank page in an still open publisher window. I may try and see if there is any microsoft support for this, but at least I have a work...