ต้องการให้ ที่อยู่ของเรา เป็นจุดเริ่มต้น บนแผนที่ เลยค่ะ และข้อมูลจากเรคอร์ดแสดงอีกที่อยู่นึงเมื่อคลิกปุ่ม จะไปยัง Google Mapให้สามารถคำนวณระยะทางได้ค่ะ

โค๊ดที่ใช้อยู่นะคะ

Private Sub Command36_Click()
    Dim StrLinkURL As String
    Dim StrLink As String
    Dim StrAddr() As String
    Dim i As Integer
        StrLinkURL = "sAddr=via ที่อยู่ของเรา &daddr="Me.CusAdd_a & " " & Me.CusAdd_add & " " & Me.CusAdd_c & " " & Me.Zipcode
        StrLink = "https://www.google.co.th/maps/@13.7818813,100.5531142,13z?hl=th&q="
       
    StrAddr = Split(StrLinkURL, " ", , vbTextCompare)
    
    StrLinkURL = " "
    For i = LBound(StrAddr()) To UBound(StrAddr())
        StrLinkURL = StrLinkURL & StrAddr(i) & "+"
    Next i
       
    StrLinkURL = Left(StrLinkURL, Len(StrLinkURL) - 1)
    Me.Command36.HyperlinkAddress = StrLink & StrLinkURL
            
End Sub

แต่มันไม่ขึ้นเป็นที่อยู่เริ่มต้นให้ค่ะ ช่วยหน่อยนะคะ