webden bilgi alma

1 2 3 4 5 6 7 8 9 10 11
02/09/2010, 12:02

kadirdursun

22. mesajdaki kodu denedim ama hiç kayıt yapmadı. aryıca 23. mesajdaki close işinide sanırım 22. mesajda yapmışsınız. doğru mu?
02/09/2010, 12:02

alpeki99

IF kontrolünde doğruda olsa UPDATE diyorsun yanlışta olsa UPDATE diyorsun. Bu arada tavsiyelerim:

1- Kodlarını yazarken Code tagları içine al yoksa çok kötü oluyor. Kodlarını yapıştırdıktan sonra sadece kod kısmını seçip editör butonlarından # butonuna bir kere tıklaman yeterlidir. Dikkat yalnız kodlarını seçtikten sonra bir kere basman gerek.

2- Kodlarını Access'te yazarken Seruz hocamın yazdığı gibi girintili usulde yazarsan hatalarını çok daha iyi görürsün, daha verimli çalışırsın.
02/09/2010, 12:43

kadirdursun

sayın alpeki ben bilgates değilim tane tane anlatın lütfen editör butonuda nedir?

02/09/2010, 12:56

alpeki99

Şu anda yazıyı yazdığım yerin hemen üstündeki B I U FONT Yazı Boyutu butonlarının olduğu ortamın hepsine editör diyoruz. Yazı yazılan kutucuğun hemen sağ üst köşedinde TV simgesinin iki sol tarafındaki buton.
02/09/2010, 13:03

kadirdursun

Kod:
tamam gördüm
03/09/2010, 10:03

kadirdursun

sayın Seruz;
asıl yapmak istediğim iki kod var onu birleştirmek.

webden veriyi alan aşağıdaki kod

Kod:
Private Sub Etiket79_Click()

On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1


Dim k As Integer


For k = 1 To 100

DoCmd.GoToRecord , T_VERITABLOSU, acGoTo, last

Me.Metin1 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(0).innerText
Me.Metin2 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(1).innerText
Me.Metin3 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(2).innerText
Me.Metin4 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(3).innerText
Me.Metin5 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(4).innerText
Me.Metin6 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(5).innerText
Me.Metin7 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(6).innerText
Me.Metin8 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(7).innerText
Me.Metin9 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(8).innerText
Me.Metin10 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(9).innerText
Me.Metin11 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(10).innerText
Me.Metin12 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(11).innerText
DoCmd.GoToRecord , , acNext                  'Bir sonraki kayıda git


Next

End Sub

ile mükerrer kaydı engelleyen aşağıdaki kodla birleştirmek.


Kod:
Dim strSQL As String
strSQL = "SELECT * T_VERIAMBARI"
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit
.Find "[ISEMRINO]='" & Me.Metin1 & "'"
If Not rstkayit.EOF Then
If MsgBox("" & Metin1 & " nolu işemri  daha önceden kaydedilmiş, Veri Güncellensin mi?", vbYesNo, "Kaydediliyor...") = vbYes Then
.Fields("ISEMRINO") = Me.Metin1
.Fields("ILCE") = Me.Metin2
.Fields("MAHALLE") = Me.Metin3
.Fields("SOKAK") = Me.Metin4
.Fields("BINANO") = Me.Metin5
.Fields("ACIKLAMA") = Me.Metin6
.Fields("CAGRITURU") = Me.Metin7
.Fields("CEVAP") = Me.Metin8
.Fields("KAYITTARIHI") = Me.Metin9
.Fields("FAALIYETTARIHI") = Me.Metin10
.Fields("FAALIYETKODU") = Me.Metin11
.Fields("FAALIYETACIKLAMASI") = Me.Metin12
.Update
Else
Exit Sub
End If
Else
.AddNew
.Fields("ISEMRINO") = Me.Metin1
.Fields("ILCE") = Me.Metin2
.Fields("MAHALLE") = Me.Metin3
.Fields("SOKAK") = Me.Metin4
.Fields("BINANO") = Me.Metin5
.Fields("ACIKLAMA") = Me.Metin6
.Fields("CAGRITURU") = Me.Metin7
.Fields("CEVAP") = Me.Metin8
.Fields("KAYITTARIHI") = Me.Metin9
.Fields("FAALIYETTARIHI") = Me.Metin10
.Fields("FAALIYETKODU") = Me.Metin11
.Fields("FAALIYETACIKLAMASI") = Me.Metin12
.Update
End If
End With
1 2 3 4 5 6 7 8 9 10 11