受注画面

自転車出張修理の為の受注画面をご紹介します。

受注時の顧客データ登録画面です。

電話での受注がメインですので、電話番号の検索と顧客名の検索を持っています。

ドコモとソフトバンクの携帯をつなぐと、着信時に電話番号から登録済みの顧客データを表示します。

新規顧客の場合、住所の入力は電話しながら住所を入力できるよう、マウスで、住所を選択できるようになっています。

住所を入力すると顧客先までのルートを表示します。

住所データは郵便番号データダウンロードサイトを利用しています。

都市名、町名の先頭のローマ字、町名で絞り込んでいきます。

ルート表示は、下記のVBA構文で実現しています。

Dim objIE As Object

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate "http://maps.google.co.jp/maps?f=d&source=s_d&saddr=" & Me.Lv_自宅 & "&daddr=" & Me.住所 & "&dirflg=d"
       
    Do While objIE.busy = True
        DoEvents
    Loop