İlçe Okulları Acces Yardım
Tarih
12/02/2013 21:58
Konu Sahibi
159288
Yorumlar
2
Okunma
1440
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.... Ç....
869
30/10/2008
319
Çankırı
Ofis 2010 32 Bit
Bugün,04:13
Çözüldü 
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)
İŞTE HAYAT DENEN ŞEY BU KADAR KISADIR.. 
Doğumda, EZAN Okunur, NAMAZ Kılınmaz  ÖLÜMDE,NAMAZ Kılınır EZAN Okunmaz.
Doğumda okunan EZAN, Ölümde Kılınacak NAMAZ İçindir 
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çö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
  Sorguda kriteri boş bırakma için yardım. okumas 3 175 24/09/2016, 11:43 okumas
Exclamation ACCES mde yardim Mehemmed Fehradli 3 169 24/09/2016, 00:18 ozanakkaya
Information Acces İle Sql Yedeği Alma A'ziz K'ızıkoğlu 3 222 06/09/2016, 12:58 atoz112
  Acces Donuyor ozkovlu29 6 325 19/08/2016, 08:46 ozkovlu29
  access Formu Tam ekran yapma yardım Onur Akgül 10 418 06/08/2016, 20:39 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya