Запрос параметров запустить гиперссылку и открыть веб-страницу для отслеживания пакета UPS

Question

У меня есть запрос параметра, который ищет номер отслеживания для данного customer_order_ID и выводит номер отслеживания в виде ссылки на веб-сайт в виде одной записи.Посоветуйте, пожалуйста, как я могу сделать так, чтобы ссылка запускалась автоматически, когда пользователь вводит customer_order_ID в запрос параметра, чтобы пользователь мог сразу же отслеживать пакет на сайте UPS Worldship.Я не знаю VBA и не знаю SQL, но я могу создавать макросы.
Заранее большое спасибо

SELECT T.order_ID, "http://wwwapps.ups.com/WebTracking/processInputRequest?sort_by=status&tracknums_displayed=1&TypeOfInquiryNumber=T&loc=en_us&InquiryNumber1=" & [T].[tracking_number] & "&track.x=0&track.y=0" AS link
FROM tblShipmentDataFromAllCarriers AS T
WHERE (((T.order_ID)=[Please enter customer order ID]));

Answer 1

Если вам не нужно анализировать возвращаемые данные и просто хотите открыть веб-страницу, вы можете использовать Application.FollowHyperlink.Но вам не нужно выполнять конкатенацию с URL-адресом в SQL:

SELECT T.order_ID, [T].[tracking_number]
FROM tblShipmentDataFromAllCarriers AS T
WHERE (((T.order_ID)=[Please enter customer order ID]));

Тогда вы можете сохранить оставшуюся часть URL-адреса как константы:

Const c_strURL1 = "http://wwwapps.ups.com/WebTracking/processInputRequest?sort_by=status&tracknums_displayed=1&TypeOfInquiryNumber=T&loc=en_us&InquiryNumber1="
Const c_strURL2 = "&track.x=0&track.y=0"

...и затем выполните его так:

Public Sub DisplayTrackingNumber(ByVal strOrderID As String)
  Dim strTrackingNumber As String

  strTrackingNumber = DLookup("tracking_number", "tblShipmentDataFromAllCarriers", "[order_ID]=" & strOrderID)

  Application.FollowHyperlink strUrl1 & strTrackingNumber & strUrl2
End Sub

Затем вам потребуется пользовательский интерфейс для сбора OrderID от пользователя (я бы предложил форму с полем со списком) и затем вызовите эту подпрограмму.