AccessTr.neT

Bul · 22/10/2009, 02:56

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

Bul · 22/10/2009, 11:43

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

Bul · 22/10/2009, 12:30

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 ?

Bul · 22/10/2009, 16:19

Verdiğim koddaki

Kod:

Me.Metin17=""

kodunu silersen düzelir.

Bul · 23/10/2009, 11:48

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?

Bul · 23/10/2009, 11:51

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

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri