02/09/2010, 12:02
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
02/09/2010, 12:02
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.
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
sayın alpeki ben bilgates değilim tane tane anlatın lütfen 
editör butonuda nedir?
editör butonuda nedir?
02/09/2010, 12:56
Ş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
Kod:
tamam gördüm03/09/2010, 10:03
sayın Seruz;
asıl yapmak istediğim iki kod var onu birleştirmek.
webden veriyi alan aşağıdaki kod
ile mükerrer kaydı engelleyen aşağıdaki kodla birleştirmek.
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 Subile 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