Kendi programlarımda kullandığım bir yöntemle yola çıkarak ustalarımızın affına sığınarak aşağıdaki kodu deneyebilir misiniz? Sorununuza çözüm olacaktır diye umut ediyorum...
Kod:
On Error Resume Next
Dim sql As String
DoCmd.SetWarnings (False)
sql = "UPDATE tblKonu SET tblKonu.Baskan = [Forms]![frmMalzeme]![txtBaskan], tblKonu.Bunvan = [Forms]![frmMalzeme]![txtBunvan] WHERE tblKonu.KonuID=[Forms]![frmMalzeme]![txtKonuID];"
DoCmd.RunSQL sql
DoCmd.SetWarnings (True)
Me.Requery
Recalc