Postcode lookup stopped working

wackywoo105

Registered User.
Local time
Today, 06:25
Joined
Mar 14, 2014
Messages
203
[SOLVED] Postcode lookup stopped working

EDIT: 22/05/18 This has stopped working on a window 7 machine. Can anyone help? Please see posts lower down.

The excellent piece of code contained here that allows uk postcode address lookup:

http://www.access-programmers.co.uk/forums/showthread.php?t=216444

has recently stopped working.

Does anyone have a replacement or know a way to fix it?
 
Last edited:
I answered a similar question recently, I researched it and the website needs payment when you go over 20 hits could it be that?
 
FYI, moved from sample forum and approved both posts since that forum is moderated.
 
That's a problem with answering questions via mobile, I don't get all of the moderator information about the thread.
 
I read your post about 20 free hits a day. I don't get any results anymore at all. It has only stopped working over last couple of days on 2 separate computer. It was working fine prior to this and I wasn't registered. I wonder if they have modified the website code to block it?

Can someone actually try it and see if it works for them?

EDIT: And I can still click through on the site so surely it would block me if I needed to register.

EDIT2: I'm going to have a look at the website code and see if I can get it working again. I'm not great at this but I like a challenge.
 
Last edited:
Slight Thread hijacking, and I can't post the link up as I'm on the mobile, but in the UK you can actually download a full postcode list from the office of national statistics - warning its BIG. takes a bit of work to use but well worth it. 😎
 
Last edited:
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:

Code:
    Set winReq = New WinHttpRequest
    With winReq
        .Open "GET", sStr, False
        .Send
        HTM = Split(Replace(.ResponseText, """", "'"), "<")
        If .Status <> 200 Then
            MsgBox ("Address not found")
            Exit Sub
        End If
    End With

It still works fine on my windows 10 machine.

I have spent some time on google but am struggling to come up with a solution. Can anyone help?
 

Users who are viewing this thread

Back
Top Bottom