Skip to main content

AccessTr.neT


WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.

WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.

Çözüldü #7
Çok Teşekkürler Hocam..

Sayenizde sorunlarım çözüldü..
Son bir sıkıntım oluştu.. text alanına isim soy isim birleşiyor ama ad ve soyad arasına satır atlatması yapıyor.

Yani;

Ad soyad değilde,

Ad
Soyad

olarak alıyor buradaki geçişi nasıl engelleyebilirim ? Dolayısı ile tabloyada aynı şekilde kayıt ediyor.
tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 22/10/2009, 03:24, Düzenleyen: tartini.
Cevapla
Çözüldü #8
Sorgula butonunun kodlarını aşağıdaki ile değiştir.

Kod:
Private Sub Komut4_Click()
On Error GoTo Err_hata
Dim a, b

WebBrowser1.Document.getElementById("ctl00$mcphContent$txtOwnerIdentityNumber").Value = Metin2
WebBrowser1.Document.getElementById("ctl00$mcphContent$btnGetOwnerIdentity").Click

ProgressBar1.Visible = True

For a = 1 To 100
ProgressBar1.Value = a
       For b = 1 To 200000
    Next b
Next a
  ProgressBar1.Visible = False

    MsgBox "Sorgulama Tamamlandı.", vbInformation, "B İ L G İ "

Me.hepsi = ""
Me.adi = ""
Me.soyadi = ""
'Me.Metin17=""


Dim IE As Object
Set IE = Me.WebBrowser1

Me.hepsi = IE.Document.All.tags("table").Item(1).Rows(0).Cells(1).innerText
Me.adi = mid$(Me.hepsi, InStr(Me.hepsi, "ad:") + 3, InStr(Me.hepsi, "soyad:") - InStr(Me.hepsi, "ad:") - 5)
Me.soyadi = mid$(Me.hepsi, InStr(Me.hepsi, "soyad:") + 6, InStr(Me.hepsi, "soyad:") - InStr(Me.hepsi, "  Adreste ") - 6)
Me.soyadi = left([soyadi], InStr(1, [soyadi], " ") - 12)


Set IE = Nothing
Exit Sub
Err_hata:
MsgBox "İnternet bağlantınız yok. Lütfen Kontrol Ediniz"
Exit Sub

End Sub

Cevapla
Çözüldü #9
Hocam yardım için teşekkürler,

Ancak sürekli olarak "İnternet bağlantınız yok. Lütfen Kontrol Ediniz" uyarısı veriyor kodu değiştirdikten sonra.

Benmi bir şeyi eksik yapıyorum anlamadım. Verdiğiniz kodu aynı şekilde yapıştırdım.
Oraya eklediğiniz metin17 de sanırım adısoyad birlesim kutusu diye tahmin ediyorum.

Sizden ricam doğru olanı ekteki uygulamaya yapabilirmisiniz ?
.rar Yeni Tc Kimlik Doğrulama.rar (Dosya Boyutu: 22,08 KB | İndirme Sayısı: 27)
tartini, 14-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
Verdiğim koddaki
Kod:
Me.Metin17=""
kodunu silersen düzelir.
Cevapla
Çözüldü #11
Ayrıca; isFormLoaded fonksiyonunu silebilirsiniz.


Cancel=True kodunda ki hata ekranı çıktığında Yardım butonunu tıkladığınızda göreceğiniz üzere.

Option compare database kodunun hemen aldındaki option explicit kodunu silerseniz hata vermez.


burda kasdedilen kodu açıklarmısınız lütfen option explicit kodu hangisi?
Son Düzenleme: 23/10/2009, 11:49, Düzenleyen: down73.
Cevapla
Çözüldü #12
(23/10/2009, 11:48)down73 yazdı: Ayrıca; isFormLoaded fonksiyonunu silebilirsiniz.


Cancel=True kodunda ki hata ekranı çıktığında Yardım butonunu tıkladığınızda göreceğiniz üzere.
Option compare database kodunun hemen aldındaki option explicit kodunu silerseniz hata vermez.

burda kasdedilen kodu açıklarmısınız lütfen option explicit kodu hangisi?

Vba penceresini aç, kod satırının en üstüne bak.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task