E-Okul Öğrenci Bilgileri Alma -LİSELER İÇİN

Kodla Büyü
Ofis 2007 için açılır menülerin açılmama sorunu giderildi. Okul türü seçme eklendi ama denenmedi. 32 bit 64 bit için ayrı dosyalar yüklendi.
 
program sorunsuz çalışıyor hocam, yamalar ve emeğiniz için tekrar tşk
 
Tebrikler, güzel bir program olmuş.
Ancak 1 ay öncesine kadar güvenlik kodu ile ilgili bir sıkıntı yoktu. Fakat şimdi kod görünmüyor.
Win 10 64 bit office 2010 32 bit kullanıyorum.
 
Hocam e-okujl girişi yapıyorum fakat bilgileri al dediğimde sıfır adet kayıt alındı diyor.
 
Office 2016 kullanarak üstte yazdığım hatayı alıyordum. Kaldırıp 2007 kurdum, bu sefer de Güvenlik kodu çıkmıyor bir türlü. Nasıl hallederim bu sorunu.
 
Onu da çözdüm bu sefer bu hatayı alıyorum. Okulda kelebek sınav listesi oluşturucam, listeleri indirmem lazım
G4lgnbZnRBGLCBP3oHG62A.png
 
Hocam ortaokul programındaki gibi e-okul fotoğraflarını öğrenci no adıyla toplu olarak bir klasöre indirebilmemiz mümkün müdür?
 
Çok kullanışlı bir uygulama olmuş ellerinize sağlık. Fakat şöyle bir ihtiyacım var acaba bu programa yaptırabilirmiyiz yada başka bir yolu hakkında bilgisi olan var mı diye bir sorayım dedim.

Öğrenci anne sağ/ölü bilgisini al dediğim zaman muntazam alıyor lakin merniste değişiklik olduysa öğrenci sayfasında yenile butonuna basmak gerekiyor ki bilgileri nüfustan tekrar alsın.

Örneğin e-okulda anne bilgilerine giriyorum sağ görünüyor. yenilee basınca bilgileri mernisten alıp ölüye geçiyor.

Bu yenileme işlemini en kısa yoldan nasıl yaparız?
 
e-okul öğrenci arama kısmı değiştiği için öğrenci arama kodları hata veriyor. Güncelleme yapabilir misiniz
 
Arkadaşlar ortaokulda görev yapıyorum, eokul lise farklı ortaokuldan ve erişimim de yok. Bu yüzden herhangi bir güncelleme yapamayacağım.
 
Arkadaşlar ortaokulda görev yapıyorum, eokul lise farklı ortaokuldan ve erişimim de yok. Bu yüzden herhangi bir güncelleme yapamayacağım.

Sayın hocam merhaba, ogrenci sec fonksiyonunda hata ile karşılaşıyoruz, E-okul ilk açıldığında aşağıda koyu renkli belirttiğim kısımlar "OGRMenu1_txtTCYeni" ve "OGRMenu1_btnOgrenciAra" şeklinde olacak fakat ikinci döngüde yine aşağıdaki şekilde (orjinali) olacak... Yani ilk seferde tc yeri ve buton komutu farklı olacak , nasıl yapabiliriz acaba?


Function öğrenciSeç(satır As String)

With Sheets(4).WebBrowser1.Document.getElementById("OGRMenu1_txtTC")
.Value = Sheets(1).Range("A" & satır).Value
End With
With Sheets(4).WebBrowser1.Document.getElementById("OGRMenu1_btnAra")
.Click
End With

Application.Wait (Now + TimeValue("0:00:01"))
HazırsaÇalıştır "nofonk", "noarg"

End Function
 
Function öğrenciSeç(satır As String, Optional ilk as Boolean = False)

Dim noId as String
Dim btnId as String

if ilk == True Then
noId = "OGRMenu1_txtTCYeni"
btnId = "OGRMenu1_btnOgrenciAra"
Else
noId = "OGRMenu1_txtTC"
btnId = "OGRMenu1_btnAra"


With Sheets(4).WebBrowser1.Document.getElementById(noId)
.Value = Sheets(1).Range("A" & satır).Value
End With
With Sheets(4).WebBrowser1.Document.getElementById(btnId)
.Click
End With

Application.Wait (Now + TimeValue("0:00:01"))
HazırsaÇalıştır "nofonk", "noarg"

End Function


En dıştaki döngüden önce bir değişken oluşturulur.
Dim ilkMi as Boolean
ilkMi = True

Döngü içinde öğrenciSeç fonksiyonu alttaki gibi çağrılır ve hemen ardından ilkMi değişkeni False ayarlanır.
öğrenciSeç( satırNo, ilkMi)
ilkMi = False
 
Sayın hocam ilginiz ve desteğiniz için sağolun...Kodları denedim ama başaramadım muhtemelen
En dıştaki döngüden önce bir değişken oluşturulur.
Dim ilkMi as Boolean
ilkMi = True

Döngü içinde öğrenciSeç fonksiyonu alttaki gibi çağrılır ve hemen ardından ilkMi değişkeni False ayarlanır.
öğrenciSeç( satırNo, ilkMi)
ilkMi = False
kısmında hata yaptım.

Kodlarınızla yol gösterdiniz sağolun...Ben de 2 tane öğrenci seç(öğrenciseç1 ve öğrenciseç2) fonksiyonu yaptım ilkinde güncel buton ve ara kısmını diğerinde orijinal halini kullanacak şekilde yaptım ve oldu... Dosyanın güncel hali ektedir. Çalışmanız için tekrar teşekkür ediyoruz, iyi çalışmalar... https://drive.google.com/file/d/1PG7Rm-r7p-yyA4FzFySwJqF4bm2-mH5Q/view?usp=sharing
 

Ekli dosyalar

  • E-Okul Bilgi_Alma_v2.21(Güncel)-AİHL LİSE.zip
    70.2 KB · Görüntüleme: 71
Son düzenleme:
Geri
Üst