Hocam; ADO ile ilgili bir çok örnek inceledim ancak bir türlü başaramadım. Benim örnekte veya başka bir örnekte 2 tane veri ile de olsa bir örnek olursa gerisini çözeceğimi düşünüyorum. Eğer böyle bir örnek verirseniz sevinirin
Sizin örnek üzerinden gidelim o zaman. Siz tam olarak ne istiyorsunuz örneklendirerek anlatırsanız hepimiz yardımcı oluruz.
Hocam ilginiz için öncelikle teşekkür ederim. Hocam eklediğim örnekte F300_Gorusme formunda KİŞİSEL ALAN ile ilgili bilgiler T100_ogrenciler isimli tablodan alınacak. GÖRÜŞME BİLGİLERİ kısmı doldurulacak ve bu bilgilerin tamamı T200_rehberlikgorusme tablosuna kaydedilecek.
Eklediğiniz örnekte bahsettiğiniz tablolardan bazıları yokken bazılarının ismi farklı. Ayrıca örneklendirirseniz daha iyi olur. Mesela xxxx formundaki yyyy açılan kutuya tıklayınca zzz isimli tablodan ttt kriterine göre bilgiler otomatik getirilecek........
F300_Gorusme formunda KİŞİSEL ALAN ile ilgili bilgiler
Okul No,
Adı Soyadı,
Sınıfı,
TC Kimlik No
cinsiyeti
alanları T100_ogrenciler isimli tablodan Okul No alanından seçtiğimiz okul numarasına göre dolduracak veya F300_Gorusme formunda liste kutusundan da öğrencileri çift tıklayarak KİŞİSEL ALAN ile ilgili bilgiler doldurabiliriz.
GÖRÜŞME BİLGİLERİ yazısının altındaki
Görüşme No,
Görüşme Tarihi,
Randevu Tarihi,
Sınıf Öğretmeni,
Neden,
Sorunlar,
Sonuç,
Danışman
alanları ise kendimiz dolduracağız ve bu bilgilerin tamamını T200_rehberlikgorusme tablosuna kaydedeceğiz.
cmdKayit tıklanma olayına aşağıdaki kodu yazıp deneyin.
On Error Resume Next
Call Kayit
HataBul (err.Number)
'----------------------------------
'
'----------------------------------
Dim rs As New ADODB.Recordset
rs.Open "T200_rehberlikgorusme", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields("ogretmen") = Me.ogretmen.Column(0)
rs.Update
rs.Close
burada sadece Öğretmen adını tabloya kaydediyor. Eğer istediğiniz bu ise diğer istediğiniz alanları örnekteki gibi düzenleyebilirsiniz.