+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: webden bilgi alma (/konu-webden-bilgi-alma.html)
Cvp: webden bilgi alma - kadirdursun - 02/09/2010
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?
Cvp: webden bilgi alma - alpeki99 - 02/09/2010
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.
Cvp: webden bilgi alma - kadirdursun - 02/09/2010
sayın alpeki ben bilgates değilim tane tane anlatın lütfen
editör butonuda nedir?
Cvp: webden bilgi alma - alpeki99 - 02/09/2010
Ş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.
Cvp: webden bilgi alma - kadirdursun - 02/09/2010
Kod:
tamam gördümCvp: webden bilgi alma - kadirdursun - 03/09/2010
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 SubKod:
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