AccessTr.neT

Tam Versiyon: WEB ten çekilen bilgiyi forum daki bir metin kutusuna aktarma.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Ç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.
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
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 ?
Verdiğim koddaki
Kod:
Me.Metin17=""
kodunu silersen düzelir.
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?
(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.
Sayfalar: 1 2 3