Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] chèn cách xem vị trị
#11
tức là  nếu bạn dùng win10 x64  và Office2016  thì không cần thủ tục h@ck registry.
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn
#12
You seem to be using an unsupported browser.

Old browsers can put your security at risk, are slow and don't work with newer Google Maps features. To access Google Maps, you'll need to update to a modern browser.

vậy là sao nhĩ
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn
#13
bạn dùng sẵn file demo thì bị vậy là đúng rồi (vì file demo phiên bản 2007)
xử lý: xóa webbrower trên form demo
insert mới  WebBrowser ActiveX vào form
thử lại xem sao nhé
Chữ ký của hieuvn Xin chào! Mình là hieuvn, thành viên của Thủ Thuật Access tham gia ngày Oct 2010.
Reply
Những người đã cảm ơn ongke0711
#14
bạn cho minh bản demo mơi di
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn
#15
cho mình hỏi, nếu ko dùng cách này. Mình có thề viết 1 lệnh để mở 1 trình duyệt web google map có sẵn tọa độ. Tọa độ được tham chiếu từ dữ liệu tọa độ có sẵn (mình đặt) trong access được ko vậy
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn
#16
Mở bằng trình duyệt cũng không phức tạp. Bạn chỉ cần khai báo Object InternetExplorer.exe.

Mã PHP:
Sub GoogleMapByIE(strAddress As String)
 
   Dim IE As Object
   Dim strURL 
As String
   strURL 
"http://maps.google.com/maps?q="
   strURL strURL Replace(Me.txtAddress" ""+") & "&iwloc=A&hl=en"
   Set IE CreateObject("InternetExplorer.Application")
   IE.Navigate strURL
   IE
.Visible True
End Sub 


Tạo 1 command button và gọi Sub GoogleMapByIE

Mã PHP:
Private Sub cmdMapIE_Click()
 
   Call GoogleMapByIE(Me.txtAddress)
End Sub 
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#17
XIN 1 MẪU FILE NHA BẠN
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn
#18
Xem địa chỉ Google Map bằng Internet Explorer: Demo 2[url=http://www.mediafire.com/download/uefl1aix4ks1zyk/LayDiaChiGoogleMap.mdb][/url]
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#19
bi loi font tieng viet khi chay sang web go o gle map ban oi
Chữ ký của kuzinhy kuzinhy,gia nhập Thủ Thuật Access từ 05-12 -15.
Reply
Những người đã cảm ơn
#20
(12-12-15, 07:38 AM)kuzinhy Đã viết: bi loi font tieng viet khi chay sang web go o gle map ban oi

Tôi chỉ biết 1 giải pháp là đổi địa chỉ tiếng Việt thành chữ không dấu cung cấp cho Google Map. Bạn nào có giải pháp khác hướng dẫn giùm. Cảm ơn.
Dùng hàm ConvertToUnSign để chuyển đổi. Hàm này tôi sưu tầm được trên net.

Mã PHP:
Function ConvertToUnSign(ByVal sContent As String) As String
    Dim i 
As Long
    Dim intCode 
As Long
    Dim sChar 
As String
    Dim sConvert 
As String
    ConvertToUnSign 
AscW(sContent)
    For 1 To Len(sContent)
       sChar Mid(sContenti1)
       If sChar <> "" Then
           intCode 
AscW(sChar)
       End If
       Select Case intCode
           Case 273
               sConvert 
sConvert "d"
           Case 272
               sConvert 
sConvert "D"
           Case 224225226227259784178437845784778497851785378557857785978617863
               sConvert 
sConvert "a"
           Case 192193194195258784078427844784678487850785278547856785878607862
               sConvert 
sConvert "A"
           Case 23223323478657867786978717873787578777879
               sConvert 
sConvert "e"
           Case 20020120278647866786878707872787478767878
               sConvert 
sConvert "E"
           Case 23623729778817883
               sConvert 
sConvert "i"
           Case 20420529678807882
               sConvert 
sConvert "I"
           Case 242243244245417788578877889789178937895789778997901790379057907
               sConvert 
sConvert "o"
           Case 210211212213416788478867888789078927894789678987900790279047906
               sConvert 
sConvert "O"
           Case 2492503614327909791179137915791779197921
               sConvert 
sConvert "u"
           Case 2172183604317908791079127914791679187920
               sConvert 
sConvert "U"
           Case 2537923792579277929
               sConvert 
sConvert "y"
           Case 2217922792479267928
               sConvert 
sConvert "Y"
           Case Else
               sConvert sConvert sChar
       End Select
    Next
    ConvertToUnSign 
sConvert
End 
Function 

Link file Demo 3
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Cách loại bỏ icon Filter trên Datasheet Form có nguồn là Query. toancvp 2 102 19-10-16, 08:53 PM
Bài mới nhất: toancvp
  cách sửa lỗi cant find project or library trungminh 4 232 01-10-16, 03:37 PM
Bài mới nhất: maidinhdan
  [Hỏi] Cách đưa chức năng compact & repair vào form toancvp 6 493 24-08-16, 12:19 AM
Bài mới nhất: paulsteigel
  Hướng Dẫn Cách lưu (back up database) dữ liệu! danhxetnghiem 20 2,913 07-08-16, 04:40 PM
Bài mới nhất: maidinhdan
  [Hỏi] Cách lưu trữ phần CSDL tách biệt khỏi file access toancvp 5 516 16-07-16, 09:38 PM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ