+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Haritada Noktalar Arası Mesafe Ve Etiketleme (/konu-haritada-noktalar-arasi-mesafe-ve-etiketleme.html)
Haritada Etiketleme - temre - 15/05/2021
Merhaba,
Ekli örnekte etiket sütunundaki bilginin raptiyede gözükmesi için yardımcı olabilir misiniz lütfen?
RE: Haritada Etiketleme - temre - 30/05/2021
Merhaba,
Konuyu biraz ilerletmeye çalıştım.
Değerli üstadlar,
Açılan haritanın Form1 içinde açılması için yardımcı olabilir misiniz?
RE: Haritada Etiketleme - atoykan - 31/05/2021
Sorunuzu tam anlayamadım Sayın @temre Bing haritanız zaten form1 webbrowser controlde açılıyor, nasıl bir sorun yaşıyorsunuz?
RE: Haritada Etiketleme - temre - 01/06/2021
Form1 yüklendiği zaman harita formun içinde değil windows haritalar olarak ayrı açılıyor bende..
RE: Haritada Etiketleme - atoykan - 01/06/2021
Haritalar özelliği bende kapatılmış olduğu için bu tip bir sorun yaşamadım sanıyorum. Uygulamanızı kullanacak herkes Haritalar uygulamasını engelleyeceksiniz demek abes olur, ilk fırsatta açıp bir kontrol edeceğim.
RE: Haritada Etiketleme - atoykan - 02/06/2021
Sayın @temre
Form_Load olayının kodunu aşağıdaki ile değiştirip dener misiniz?
Private Sub Form_Load()
Dim Sql As String
Dim ADO_RS As ADODB.Recordset
Dim objWMIcimv2 As Object, objProcess As Object, objList As Object
Dim intError As Integer
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [Tablo1]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
ADO_RS.MoveFirst
Do While Not ADO_RS.EOF
If ADO_RS("Seç") = -1 Then
WebBrowser1.Navigate "bingmaps:?collection=point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & "_&lvl=15"
End If
ADO_RS.MoveNext
Loop
ADO_RS.Close
Set ADO_RS = Nothing
strTerminateThis = "maps.exe"
Set objWMIcimv2 = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objList = objWMIcimv2.ExecQuery("select * from win32_process where name='" & strTerminateThis & "'")
For Each objProcess In objList
intError = objProcess.Terminate 'Terminates a process and all of its threads.
If intError <> 0 Then Exit For
Next
Set objWMIcimv2 = Nothing
Set objList = Nothing
Set objProcess = Nothing
End Sub