20/02/2021, 11:32
iscinar
Öncelikle:
frmIhaleolustur formun kayıt kaynağında (İfade1, İfade2, .... İfade6) alanlarını silerek işe başlayın.
daha sonra
frmMalzeme formunda btnKomkapat butonun olayındaki kodu aşağıdaki şekilde değiştirip tekrar deneyebilirsiniz
frmIhaleolustur formun kayıt kaynağında (İfade1, İfade2, .... İfade6) alanlarını silerek işe başlayın.
daha sonra
frmMalzeme formunda btnKomkapat butonun olayındaki kodu aşağıdaki şekilde değiştirip tekrar deneyebilirsiniz
Kod:
Private Sub btnKomkapat_Click()
Dim sql As String
sql = "UPDATE tblKonu SET tblKonu.Baskan =[Forms]![frmMalzeme]![txtBaskan] WHERE tblKonu.KonuID=[Forms]![frmMalzeme]![txtKonuID]"
DoCmd.SetWarnings (False)
DoCmd.RunSQL sql
DoCmd.SetWarnings (True)
MsgBox [Forms]![frmMalzeme]![txtKonuID] & " numaralı ihaleye ait komisyon güncelleme işlemi tamamlandı"
End Sub