AccessTr.neT

Örneğini yüklemek için çok uğraşmam lazım diye yüklemedim. Kusurumu mazur görün
tblOgrencibilgileri tablosunda Okulu isimli alanım var.
frmOgrencibilgileri formumda akOkulu hücresi verisini sorgudan alıyor.
Okuln adının geldiği sorgu:
(1. sütun OkulID,2.sütun Okuladı,3.sütunilçeID)
formda sorgudan okulun ismi yazıyor. Ama tabloya okulun adı değilde okulun ID sini kaydediyor.
Bu sorunu nasıl çözmeliyim.

Çözemeyince şöyle bir kod yazdım .Ama bir değişiklik olmadı.
On Error Resume Next
Dim Sql As String
DoCmd.SetWarnings (False)
sql = "UPDATE tblOgrencibilgileri SET tblOgrencibilgileri.Okulu = [Forms]![frmOgrencibilgileri]![akOkul].Column(1) WHERE tblOgrencibilgileri.OgrenciID=[Forms]![frmOgrencibilgileri]![OgrenciID];"
DoCmd.RunSQL sql
DoCmd.SetWarnings (True)
Me.Requery
Recalc

Şöyle bir kod daha yazdım olmadı:

DoCmd.RunSQL "UPDATE tblOgrencibilgileri SET tblOgrencibilgileri.Okulu = [Forms]![frmOgrencibilgileri]![akOkul]
WHERE tblOgrencibilgileri.OgrenciID=[Forms]![frmOgrencibilgileri]![OgrenciID];"

Aslında form üzerindeki hücredeki veriyi tabloda ilgili öğrencinin Okulu alanına yazdırmak istiyorum desem daha anlaşılır olur.

Bir çok durumda dosyanızı eklemeniz çözümü bulmayı kolaylaştırır, o nedenle dosyanızı ekleyin.

akOkulun ilişkili sütununu adın olduğu sütun olarak ayarlamayı dener misiniz?
yada

sql = "UPDATE tblOgrencibilgileri SET tblOgrencibilgileri.Okulu = '" & [akOkul].Column(1) & "' WHERE tblOgrencibilgileri.OgrenciID=[Forms]![frmOgrencibilgileri]![OgrenciID];"

gibi bir kodu

Teşekkür ederim. Kod ile çalışma yapacağım. Örneğini göndermeden çok uğraştıracağa benziyor. Geniş bir vaktimde örneği yükleyeceğim.