+- 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ığı: İlçe Okulları Acces Yardım (/konu-ilce-okullari-acces-yardim.html)
İlçe Okulları Acces Yardım - 159288 - 12/02/2013
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
HELP
Cvp: İlçe Okulları Acces Yardım - simendifer - 12/02/2013
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
Cvp: İlçe Okulları Acces Yardım - esrefigit - 19/02/2013
ö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