Ö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
Formdan Tabloya
Şö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.
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.
Son Düzenleme: 01/03/2021, 01:17, Düzenleyen: fenerli6774.
(Sebep: Düzeltme)
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
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.
Konuyu Okuyanlar: 1 Ziyaretçi