Webrowser ve java düğmeleri
Tarih
13/04/2009 13:59
Konu Sahibi
esrefigit
Yorumlar
3
Okunma
1784
Konuyu Oyla:
  • Derecelendirme: 3/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3/5 - 1 oy



esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Open(Cancel As Integer)
WebBrowser1.Navigate "http://www.halkbank.com.tr/iban/iban.asp"
End Sub

Private Sub Komut5_Click()
Dim sayi As Integer
For sayi = 70 To 1 Step -1
DoCmd.GoToRecord , , acGoTo, sayi
ibanal
Next sayi
End Sub
Function ibanal()
WebBrowser1.Document.Links.Item(56).OnClick
WebBrowser1.Document.getElementById("txtBranchCode").Value = "510"
WebBrowser1.Document.getElementById("txtCustomerNo").Value = Me.hesap
WebBrowser1.Document.Links.Item(55).OnClick
Me.İBANNO = WebBrowser1.Document.getElementById("txtIBAN").Value
End Function



burda ben form üzerinden topluca iban aldım bu arada mehmet kardeşimize teşekkür ederim ona böyle for next döngüsü saçmalık dememe rağmen kim derdiki işime yrayacak burda webrowseri form üzerine aldım ve form üzerinde kayıtları for next ile ileri doğru götürerek heer seferinde ibanları aldım burda dikkat edilmesi gereken nokta bizim web sayfalarındaki java link veren düğmelere tıklayamamızdı neden derseniz düğmeler java href linki içeriyordu ve üzerine odaklanınca linki veriyor ve tıklayınca o linke kod gönderiyordu neyse onuda çözmüş olduk bu şekkilde

Kod:
WebBrowser1.Document.Links.Item(55).OnClick


birde bu linkli düğmenin kaçıncı item olduğunu bulmanın da bir yolunu bulduk oda

Kod:
WebBrowser1.Document.Links.Item(55).focus


bu şkilde iteme focuslanıyor sizde doğru yere tıklayıp tıklamadığınızı görüyorsunuz


neyse birde bu kodu hiç webrowser olmadan yaptım ama sanal olarak bir web sayfası açıp ordan iban almak bayağı sürüyordu fakat belki birinin işine yarar diye onuda ekliyorum örneğe


Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Sub Komut2_Click()
Dim say As Integer
say = 0
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("per")
Do Until rst.EOF
rst.Edit
 say = say + 1
rst![İBANNO] = ibanal(rst![HESAP NO])

rst.Update
        rst.MoveNext
        MsgBox say 'next appointment
    Loop
    
    rst.Close
    Set rst = Nothing
End Sub

Function ibanal(ByVal hesapno As Variant) As String
Dim iban As String
Dim objShell, objIE As Object
 
    strURL = "http://www.halkbank.com.tr/iban/iban.asp"
     Set objShell = CreateObject("Wscript.Shell")
     Set objIE = CreateObject("InternetExplorer.Application")
        With objIE
         .Visible = False
          .Silent = True
          .Navigate (strURL)
          Do While .readyState <> 4
            DoEvents
          Loop
            With .Document
               .Links.Item(56).OnClick
               .getElementById("txtBranchCode").Value = "510"
              .getElementById("txtCustomerNo").Value = hesapno
              .Links.Item(55).OnClick
              iban = .getElementById("txtIBAN").Value
            End With
       End With
 ibanal = iban
objIE.Quit
Set objIE = Nothing
Set objShell = Nothing
Exit Function
End Function


aslında bu kodu kod deposuna eklemek isterdim ama çalışmıyor

meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.732
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
Dün,02:10
Eeee sevgili Eşref.. Ben sana anlatamamıştım ne işime yarayacağını.. Ama gördüğün gibi bazen yarıyormuş di mi?. Bu arada o günkü çalışmada

Kod:
DoCmd.GoToRecord , , i


şeklinde düşündüğümüz satırı

Kod:
DoCmd.GoToRecord , , acGoTo, i


şeklinde yazdım. Sanırım gözümüzden kaçtı..

İnadına, ille de Accesstr.net...
Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.021
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Gözümden kaçmış eşref hocam, bu değerli bilgiler için çok teşekkürler
Cevapla


zetyu
Aktif Üye
Kullanici Avatari
Aktif Üye
121
12/03/2009
0
Belirtilmemiş
Ofis XP
09/11/2016,20:42
örnek eklerseniz çok mutlu olurum.
örnekte verebilirseniz sevinirim.çünkü siz örnekler verince defalarca okuyarak yada değiştirerek bilginizden yararlanma fırsatını daha çok vermiş oluyorsunuz.


Ek Dosyalar
.mdb   web broser buton ogren deneme.mdb (Dosya Boyutu: 124 KB / İndirme Sayısı: 93)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formda Komut Buton Düğmeleri Renk Efect Uygulaması HandSword 5 2.774 29/04/2010, 14:20 yakupkiris
  Işıklı komut düğmeleri BigBossTurk 5 1.853 03/02/2010, 10:12 ogulcan92
  Form Üzerinde Gezinti Düğmeleri ozanakkaya 2 2.513 10/10/2009, 01:21 ozanakkaya
  Resimli Komut Düğmeleri Bilgisayarcı 26 8.039 15/06/2009, 00:35 Bilgisayarcı


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