• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

chèn cách xem vị trị

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • [Hỏi] chèn cách xem vị trị
• chèn cách xem vị trị

• RE: chèn cách xem vị trị

  hieuvn > 10-12-15, 05:15 PM

  tức là  nếu bạn dùng win10 x64  và Office2016  thì không cần thủ tục h@ck registry.

• RE: chèn cách xem vị trị

  kuzinhy > 10-12-15, 05:50 PM

  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ĩ

• RE: chèn cách xem vị trị

  hieuvn > 10-12-15, 06:14 PM

  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é

• RE: chèn cách xem vị trị

  kuzinhy > 10-12-15, 07:49 PM

  bạn cho minh bản demo mơi di

• RE: chèn cách xem vị trị

  kuzinhy > 10-12-15, 08:01 PM

  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

• RE: chèn cách xem vị trị

  ongke0711 > 10-12-15, 08:27 PM

  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 


• RE: chèn cách xem vị trị

  kuzinhy > 10-12-15, 11:29 PM

  XIN 1 MẪU FILE NHA BẠN

• RE: chèn cách xem vị trị

  ongke0711 > 11-12-15, 12:39 AM

  Xem địa chỉ Google Map bằng Internet Explorer: Demo 2[url=http://www.mediafire.com/download/uefl1aix4ks1zyk/LayDiaChiGoogleMap.mdb][/url]

• RE: chèn cách xem vị trị

  kuzinhy > 12-12-15, 07:38 AM

  bi loi font tieng viet khi chay sang web go o gle map ban oi

• RE: chèn cách xem vị trị

  ongke0711 > 12-12-15, 03:54 PM

  (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 i = 1 To Len(sContent)
       sChar = Mid(sContent, i, 1)
       If sChar <> "" Then
           intCode = AscW(sChar)
       End If
       Select Case intCode
           Case 273
               sConvert = sConvert & "d"
           Case 272
               sConvert = sConvert & "D"
           Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863
               sConvert = sConvert & "a"
           Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862
               sConvert = sConvert & "A"
           Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879
               sConvert = sConvert & "e"
           Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878
               sConvert = sConvert & "E"
           Case 236, 237, 297, 7881, 7883
               sConvert = sConvert & "i"
           Case 204, 205, 296, 7880, 7882
               sConvert = sConvert & "I"
           Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907
               sConvert = sConvert & "o"
           Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906
               sConvert = sConvert & "O"
           Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921
               sConvert = sConvert & "u"
           Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920
               sConvert = sConvert & "U"
           Case 253, 7923, 7925, 7927, 7929
               sConvert = sConvert & "y"
           Case 221, 7922, 7924, 7926, 7928
               sConvert = sConvert & "Y"
           Case Else
               sConvert = sConvert & sChar
       End Select
    Next
    ConvertToUnSign = sConvert
End Function 


  
  Link file Demo 3
• Bài trước Bài tiếp