Private Sub cmdShowMap_Click()
If cmdShowMap.HyperlinkAddress = "" Then
MsgBox "Please enter an address first.", vbOKOnly + vbInformation, "No Address Entered"
Exit Sub
End If
End Sub
Private Sub txtAddress_BeforeUpdate(Cancel As Integer)
cmdShowMap.HyperlinkAddress = Switch(Nz(txtAddress, "") <> "", "http://www.google.com/maps?q=" & txtAddress, True, "")
End Sub