Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

webden bilgi alma

kadirdursun
kadirdursun
Access Cevaplanmış Soruları
60
23662

webden bilgi alma

Çözüldü #25
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,15:55
Yorumları: 1.293
Konuları: 106
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
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?
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!


(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #26
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 43
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 26/10/2023,01:33
Yorumları: 6.137
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #27
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,15:55
Yorumları: 1.293
Konuları: 106
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
sayın alpeki ben bilgates değilim tane tane anlatın lütfen Img-grin
editör butonuda nedir?

Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!


(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #28
alpeki99
Düşünmek en zor iştir...
alpeki99
www Bul
Uzman
Adı Soyadı: Ol....
Yaşı: 43
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 26/10/2023,01:33
Yorumları: 6.137
Konuları: 162
Kayıt Tarihi: 29/10/2008
Teşekkür Puanı: 1.291
Mesleğiniz: Yazılım Geliştirici
Ş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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #29
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,15:55
Yorumları: 1.293
Konuları: 106
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
Kod:
tamam gördüm
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!


(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #30
kadirdursun
Aktif Üye
kadirdursun
Bul
Aktif Üye*
Adı Soyadı: Ka.... DU....
Yaşı: 44
Konum: İstanbul
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Bugün,15:55
Yorumları: 1.293
Konuları: 106
Kayıt Tarihi: 12/01/2009
Teşekkür Puanı: 86
Mesleğiniz: İnşaat Mühendisi
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
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!


(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task