Ç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
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.