Private Sub Komut24_Click()
DoCmd.SetWarnings False
DoCmd.RunSQL ("insert into TERCİH ( BOLUM ) values('" & [Forms]![ANAFORM]![LISANSBOLUMLERI].[Form]![BOLUMADI] & "')")
DoCmd.SetWarnings True
DoCmd.OpenForm "TERCIH"
End Sub
EKLE düğmesinin kodunu aşağıdaki ile değiştirip deneyin.