İlçe Okulları Acces Yardım
Tarih
12/02/2013 21:58
Konu Sahibi
159288
Yorumlar
2
Okunma
1488
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
159288
Üye
Kullanici Avatari
Üye
A.... Z.... Y....
1
1
12/02/2013
0
Ankara
Ofis 2010
11/03/2013,15:42
Çözüldü 
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









+rep HELP +rep
Cevapla

simendifer

Kullanici Avatari
Onursal
E.... Ç....
887
30/10/2008
322
Çankırı
emekli
Ofis 2007
Bugün,00:00
Çözüldü 
Sponsor Reklam
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


Ek Dosyalar
.rar   Harita.rar (Dosya Boyutu: 127,57 KB / İndirme Sayısı: 0)
Cevapla

esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
359
Konya
Ofis 2003
12/05/2017,17:08
Çözüldü 
ö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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 317 11/05/2017, 22:59 sadooo
Exclamation İl İlçe kriter seçimine göre sorgulama Ferhat Çetin 6 151 10/05/2017, 03:51 ozanakkaya
Photo Arama Kutusu Hakkında Yardım AloneX 6 118 05/05/2017, 13:52 AloneX
  Kasa Hareketleri İçin Yardım Tablodan Tabloya Otomatik Ekleme uMits 35 482 12/04/2017, 19:21 uMits
Brick İç İçe Bağlantılı Açılan Kutu Denetimlerini İlişkilendirme (İl Ve İlçe Benzeri) mustafakucuknazli 19 432 05/04/2017, 12:38 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status