Programa que procura um código postal

Dim base As Database ' Base de dados

Dim tabela As Recordset ' Tabela

Dim vprocura As String ' critério de procura

' Definir a base de dados que contem a tabela

Set base = CurrentDb

' Abrir a tabela "codigospostais"

Set tabela = base.OpenRecordset("cpostal_t", dbOpenSnapshot)

'Repetir o programa até ser dado um codigo nulo

Do While True

    ' Ler o valor a procurar.

    vprocura = Trim(InputBox("Codigo Postal"))

    If vprocura = "" Then Exit Do

    'Criar critério de procura

    vprocura = "cpostal = '" & vprocura & "'"

    With tabela

    ' Procurar o primeiro registo que satisfaz o critério

        .FindFirst vprocura

        ' Se não encontrar dá mensagem de erro e sai

        If .NoMatch Then

            MsgBox "Nao encontrou " & vprocura & "."

            Exit Do

        Else

            ' Caso encontra escreve a localidade correspondente

            MsgBox " A Localidade é " & !localidade

        End If

    End With

Loop

tabela.Close

base.Close