Skip to main content

AccessTr.neT


Etiketler
Yazar: esrefigit - Cevaplar: 3 - İzleme: 3035
Webrowser ve java düğmeleri
[code]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(5
Task