Evde değilim ve internet bağlantımı kapattırdum fakat bir kod örneği şu şekilde
dim rs as new adodb.recordset
Dim rt as new adodb.recordset
rs.open "tabloadi1", currentproject.connection,adopenkeyset, adlockoptimistic
rt.open "tabloadi2", currentproject.connection,adopetkeyset, adlockoptimistic
Do until rs.Eof then
İf rs! Alanadi = "özgür"
Rt. Addnew
Rt! Alanadi=rs! Alanadi
Rt. Update
Rs. Close
Rt.close
Rs.movenext
Loop
Bu kod tablo 1 içinde özgür yazanları bulup tablo 2 ye kaydeder. Yani rs ile açılan tablo1 in içini belirtilen alanı tarar özgür bulur ve rt ile açılan tablo2 içine gerekli alana kayıt ekler.
Ufak tefek yazım hataları olabilir cep telefonundan küçücük bir alan kullanarak yazıyorum. İşleyiş bu tarz. Sitemizde bununla ilgili bir çok örnek mevcut
POWER 'un Çekirgesi :=)
ozguryasin,
23-09-2009 tarihinden beri
AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter.
Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla