Formdan Tabloya

01/03/2021, 01:03

fenerli6774

Ö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
01/03/2021, 01:15

fenerli6774

Şö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.
01/03/2021, 12:12

berduş

Bir çok durumda dosyanızı eklemeniz çözümü bulmayı kolaylaştırır, o nedenle dosyanızı ekleyin.
01/03/2021, 15:00

berduş

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
02/03/2021, 13:41

fenerli6774

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.