İlçe Okulları Acces Yardım

12/02/2013, 21:58

159288

Acces Programında Hocam Benden Birşey İstedi Nasıl Yapabilirim
Türkiyedeki illeri secip o illerdeki okulları bulabilen okulun adını secip ara butonuna bastığında google'da kactane arama sayfası bulduğunu yazıcak ve okulun adı seciliyken başka bir butona bastığında google mapsda yerini gösterecek birşey yapıcakmışım lütfen yardımlarınızı eksik etmeyin Şimdiden Teşekkürler









12/02/2013, 22:48

simendifer

kusura bakmayın degerli forum üyeleri böyle bir ödevi hocalar ögrecilerinden nasıl isteyebiliyor aklım ermiyor
acaba bu hocamız enaz 6 tane işlem istemiş bunun hangisini ögrencilerine göstermiş ögretmiş de istiyor bu istediğin bir tanesini acaba o ögretmen bu ögrenciye ögretmişmidir bunu merak ediyorum
forumda örnekleri var aratınız ben arattım bu link teki hasanögretmen arkadaşımızın programını ekliyorum inceleyiniz
Türkiye Haritasını kullanarak Şehir seçimi
bu programı isteginize göre düzenleyebilirsiniz takıldıgınız yerde örneginizi ekleyerek yardım talebinde bulununuz
19/02/2013, 10:51

esrefigit

öncelikle projenin tamamını yaptırmayı bekleme sana örnek olarak bakanlığın https://mebbis.meb.gov.tr/KurumListesi.aspx

sitesinden okulların ismini alma kodunu ekliyorum tabi kodun sadece il ve ilçe isimlerini alma kodu sonrasında formu submit ederek okul isimlerini getirecek ve bu isimleri parse edeceksin ve kendi formundaki açılan kutuya ekleyeceksin parse ile ilgili sitede bir çok arkadaş sana yardımcı olacaktır sonra formuna bir adet webrowser activex ekleyecek ve okul isimlerinden tıkladığını neyse sen o aşamaya bir gel sana google haritalar ve google arama seçmeli olarak nasıl yapılır ben yardım ederim


Function ilal()

Dim objShell, objIE As Object
Dim Html As HTMLDocument
Dim elc As HTMLHtmlElement
Dim sel As HTMLSelectElement
strURL = "https://mebbis.meb.gov.tr/KurumListesi.aspx"
Set objShell = CreateObject("Wscript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = False
.Navigate (strURL)
Do While .ReadyState <> 4
DoEvents
Loop
With .Document.Form1

For Each sel In .Document.Form1.ddlil
Açılan_Kutu2.AddItem sel.Index & ";" & sel.Text
Next

End With

Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop



End With




Set objIE = Nothing
Set objShell = Nothing
Exit Function
End Function




Private Sub Açılan_Kutu2_AfterUpdate()
Açılan_Kutu5.RowSource = ""
Dim objShell, objIE As Object
Dim sel As HTMLSelectElement
strURL = "https://mebbis.meb.gov.tr/KurumListesi.aspx"
Set objShell = CreateObject("Wscript.Shell")
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Navigate (strURL)
Do While .ReadyState <> 4
DoEvents
Loop
With .Document.Form1

.ddlil.Value = Me.Açılan_Kutu2.Column(0)
.submit
End With

Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop

For Each sel In .Document.Form1.ddlilce
Açılan_Kutu5.AddItem sel.Index & ";" & sel.Text
Next

End With




Set objIE = Nothing
Set objShell = Nothing

End Sub

Private Sub Form_Load()
ilal
End Sub