Skip to main content

AccessTr.neT


web browser döngüsü

web browser döngüsü

Çözüldü #1
başlık garip olabilir ama yapmaya çalıştığım tam olarak şu

bir kurumda görevliyim kurumumuz öğrencilerinin ders notlarını tek seferde almak için böyle bir çalışma gereksinimi duydum.

bu yüzden uygulamanın içindeki bilgiler tablosunda kaç tane kayıt varise o kadar kayıt adedince web browseri (veri yollama) adlı formdaki şekle göre çoğaltmasını istiyorum. bu sayede güvenlik kodlarını tek tek elimle girip komut düğmesine basarak bazı bilgiler çekmek istiyorum (bilgi çekmek için başka bir konu açma düşüncesindeyim. )

ikinci olarak tablolardaki tc kimlik nolarının ve okul numaralarnın otomatik olarak kutulara eklenmesini temin ederseniz ayrıca minnet duyarım. (güvenlik kodlarını tekl tek kendi elimle yazacağım )

formunuzdan çok istifade ediyorum. fakat hala öğrenme aşamasındayım. yardımlarınız için şimdiden teşekkür ederim.

bu arada tc kimlik numarasının 11 haneli yapabilmek için alan özelliği "metin" yaptım bilgilerinize
.rar veriçekimi.rar (Dosya Boyutu: 17,37 KB | İndirme Sayısı: 24)
muradoglu, 28-04-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 18/10/2011, 16:58, Düzenleyen: muradoglu.
Cevapla
Çözüldü #2
cevap yazabilmem için malesef iki adet öğrenci bilgisini özel mesajla göndermeniz gerekiyor.
Cevapla
Çözüldü #3
Dim rstkayit As ADODB.Recordset
Dim lR As Long
Dim lR1 As Long
Dim ObjElement As HTMLObjectElement
Set rstkayit = New ADODB.Recordset
rstkayit.Open "SELECT * FROM ogrenciler", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set ObjElement = WebBrowser1.Document.all().tags("table").Item(35)
lR = ObjElement.rows.length - 1
For lR1 = 1 To lR
With rstkayit
.AddNew
.Fields("tckimlik") = ObjElement.rows(lR1).cells(1).innerText
.Fields("adı") = ObjElement.rows(lR1).cells(2).innerText
.Fields("soyadı") = ObjElement.rows(lR1).cells(3).innerText
.Fields("okulno") = ObjElement.rows(lR1).cells(4).innerText
.Fields("sınıfı") = ObjElement.rows(lR1).cells(5).innerText
.Fields("durumu") = ObjElement.rows(lR1).cells(6).innerText
.Fields("kurumkodu") = Mid(Right(WebBrowser1.Document.all.Item("IOMPageHeader1_lblKurumIlIlce").innerText, 8), 1, 6)
.Update
End With
Next lR1

ben bu şekilde öğrenci listelerini alıyorum ancak toplu not veren Html sayfası varsa bu işe yarar kodun çalışabilmesi için referanslardan microsoft Html object seçmen gerekiyor
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task