web sayfasındaki resme tıklatma

[serkandemirci]

arkadaşlar web sayfasında bir resim var ve resme tıklayınca bir fonksiyon çalıştırıyor oresme tıklamanın yolu nedir

 

[modalı]

Sayın serkendemirci,

İlk bakışta kaydet resmine basıldığında
AlanKontrolveKayit()
fonksiyonu çalıştırışıyor. Ama şu anda uygulama içinden nasıl çalıştırılabileceği hakkında bilgim yok araştırıp bulursam yazarım. Ancak siz öğrenci erilerini nereden alacaksınız. O önemli. bilsis iniz varmı?

 

[modalı]

Gönderdiğiniz örnekle bağlantı kuramadığım için deneme yapamıyorum, ama sanırım

IE.document.Forms(1).Elements("IOMToolbarActive1_kaydet_b").Click

Cümlesi işiniz hal edecek bir denemeniz gerekiyor.

Bir de sanırım yenikayıt düğümesinede kliklemeniz gerekiyor bu da:

IE.document.Forms(1).Elements("IOMToolbarActive1_yeniKayit_b").Click

ile gerçekleşiyor.
Eğer olursa gerisine de bakabiliriz.

Yani gönderdiğiniz excel uygulamasının kodları şu şekilde olacak:

Private Sub CommandButton2_Click()
Dim URL As String
Dim IE As Object, MyData(1 To 4) As String
URL = "[URL]http://e-okul.meb.gov.tr/IlkOgretim/OKL/IOK02001.aspx[/URL] "
MyData(1) = Range("A2")
MyData(2) = Range("D2")
MyData(3) = Range("J2")
MyData(4) = Range("D2")
 
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
Do While .readyState <> 4: Loop
With .document.all
.txtTCKimlikNoGetir.Value = MyData(1)
.txtOkulNo.Value = MyData(2)
.ddlSinifiSubesi.Value = MyData(3)
Do While IE.readyState <> 4: Loop
End With
End With
IE.document.Forms(1).Elements("btnBilgiGetir").Click
IE.document.Forms(1).Elements("IOMToolbarActive1_kaydet_b").Click
Set IE = Nothing
End Sub

iyi çalışmalar

 

[serkandemirci]

IE.document.Forms(1).Elements("IOMToolbarActive1_kaydet_b").Click
cümlesi hata verdi

onun yerine düğmenin Click lendiğinde çalıştırdığı kodları yazsak olcak galiba ama onuda uğraştım beceremedim

 

[modalı]

Klik olayı fonksiyon çalıştırıyor ve Java Script olarak yazılmış. VBA dan çalışmazlar sanırım ama yine de ekleyeyim.

Function AlanKontrolveKayit() 
dim frm 
set frm = document.forms("Form1") 
if (frm.ddlSinifiSubesi.value = "-1") then 
UyariMesaji = UyariMesaji & "Sınıfı / Şubesi Alanı Boş Bırakılamaz. "& vbCrLf end if 
 
NumAlan frm.txtOkulNo.value,"Okul No",999999,1,False 
 
'if (frm.ddlYabanciDil.value = "-1") then 
' UyariMesaji = UyariMesaji & "Kurum Tipi Alanı Boş Bırakılamaz. "& vbCrLf 'end if 
 
if Len(UyariMesaji) <> 0 then 
window.alert (UyariMesaji) 
AlanKontrolveKayit = False 
UyariMesaji = "" exit function 
 
else 
if Beklet(13) then 
frm.hiddenKaydet.value = "Kaydet" 
AlanKontrolveKayit = true frm.submit() 
end if 
end if 
end function

 

[modalı]

Bu işte bir hata var:

Ekranlara sanırım sadece TC Kimlik No lar girilecek diğer bilgiler otomatik gelecek diyor kılavuz. Eğer kılavuzdaki tüm bilgiler girilecekse bu iş 2008 in 19 Şubatında da bitmez.:???:

T.C Kimlik No: [FONT=Times New Roman,Times New Roman]Bu alana ö[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]renciye ait TC Kimlik numaras[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]n[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]girdikten sonra k[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]rm[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]z[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]ok ile gösterilen butona t[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]klad[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]n[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]zda ö[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]renciye ait ad[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman], soyad[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman], baba ad[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman], do[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]um yeri ve do[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]um tarihi bilgileri [/FONT][FONT=Times New Roman,Times New Roman]İ[/FONT][FONT=Times New Roman,Times New Roman]çi[/FONT][FONT=Times New Roman,Times New Roman]ş[/FONT][FONT=Times New Roman,Times New Roman]leri Bakanl[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ndan otomatik olarak gelecektir. Ki[/FONT][FONT=Times New Roman,Times New Roman]ş[/FONT][FONT=Times New Roman,Times New Roman]inin TC kimlik numaras[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]yaz[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]l[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]p ilgili butona bas[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ld[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]nda sistem taraf[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ndan ya[/FONT][FONT=Times New Roman,Times New Roman]ş [/FONT][FONT=Times New Roman,Times New Roman]kontrolü yap[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ld[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]ktan sonra ö[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]rencinin bilgileri [/FONT][FONT=Times New Roman,Times New Roman]ö[/FONT][FONT=Times New Roman,Times New Roman]ğ[/FONT][FONT=Times New Roman,Times New Roman]renci i[/FONT][FONT=Times New Roman,Times New Roman]ş[/FONT][FONT=Times New Roman,Times New Roman]lemleri [/FONT][FONT=Times New Roman,Times New Roman]modülünde bulunan [/FONT][FONT=Times New Roman,Times New Roman]Nüfus Cüzdan[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]Bilgileri (IOGO2003), Baban[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]n Nüfus Cüzdan[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]Bilgileri (IOGO2005), Annenin Nüfus Cüzdan[/FONT][FONT=Times New Roman,Times New Roman]ı [/FONT][FONT=Times New Roman,Times New Roman]Bilgileri (IOGO2006), Karde[/FONT][FONT=Times New Roman,Times New Roman]ş[/FONT][FONT=Times New Roman,Times New Roman]inin Bilgileri (IOGO2007) [/FONT][FONT=Times New Roman,Times New Roman]ekranlar[/FONT][FONT=Times New Roman,Times New Roman]ı[/FONT][FONT=Times New Roman,Times New Roman]na gelecektir. [/FONT]

 

[serkandemirci]

dün akşam aynı fonsiyonu kopyalayıp yapıştırdım fakat çalışmadı tekrar deniyorum

 

[modalı]

Fonksiyonu kopyalayıp yapıştırmak işi görmez bir de fonksiyonu çağırmak gerekir.

Call AlanKontrolveKayit()

gibi. Çalışabilmesi için

 

[serkandemirci]

hocam tc kimlik no ları
var bütün istediklderi alanlara bilgi girebiliyorum kod yardımıyla
fakat kaydetme işini elimle tıklamak zorundayım
gönderdiğiniz fonksiyon hata veriyor
hataysa mesajlar gösteriyor sanırsam işn püf noktası

If Beklet(13) Then
frm.hiddenKaydet.Value = "Kaydet"
AlanKontrolveKayit = true frm.submit()
End If

bu cümlede
biz burada vba kodlarıyla fareye koordinat verip resme tıklatabilirmiyiz diye düşünüyordum

 

[modalı]

Bir de şöyle deneyebilirmisiniz. Yine de emin değilim ama:

IE.document.Forms(1).Elements(id="IOMToolbarActive1_kaydet_b").Click

 

[serkandemirci]

Call AlanKontrolveKayit()
cümlesini nereye yazacağız

 

[modalı]

Fonksiyonu ayrı bir modüle yazıp Call ile başlayan cümleyi IE.document ile devam eden yere yazmak gerekiyor sanırım

 

[serkandemirci]

IE.document.Forms(1).Elements("btnBilgiGetir").Click
IE.document.Forms(1).Elements(ID = "IOMToolbarActive1_kaydet_b").Click
kodu buşekilde yazınca hata vermedi ama kayıtta yapmadı

 

[modalı]

Kayıt yapıp yapmadığını nereden anladınız? Aşağıdaki beşli listde mi görünmesi grekiyor kaydın?

Bir de yeni yayıt ekle yi deneyin ID= ile bakalım bir faaliyet gösteriyor mu=?

Bir de moraliniz düzelsin diye davranış notu uygulamasının çözümüne bakabildiniz mi?

 

[serkandemirci]

IE.document.forms(1).Elements("btnBilgiGetir").Click
IE.document.forms(1).Elements(ID = "IOMToolbarActive1_yeniKayit_b").Click
yeni kayıta gitmedi ama hatada vermedi

 

[serkandemirci]

hocam baktım cevap yazdığımı sanıyordum cevap verdim herhalde

 

[serkandemirci]

Function YeniKayit()
Dim frm
Set frm = document.forms("Form1")
frm.hdnYeniKontrol.Value = "1"
YeniKayit = True
End Function
kodundaki "frm.submit()"ne demek düzenleyeci kırmızı ile gösteriyor

 

[modalı]

Formu onayla demek o da ayrı bir fonksiyon. Sanırım sayfa doğru olarak açılmıyor. Bu yüzden fonksiyonları okuyamıyor

 

[modalı]

Sayın serkandemirci,

Ben http://www.excel.web.tr/showthread.php?t=26570 buradaki örnek diyordum

 

[serkandemirci]

halen cevap bekliyorum yanlış nerede