metinKimlik alanını girmezseniz hata verir
SQL = "update surec set firmaId=" & IIf(Len(a & "") = 0, "null", a) & _
" , alimTuruId=" & IIf(Len(b & "") = 0, "null", b) & _
",isinAdi='" & Me.isinAdi & _
"', isinTuruId=" & IIf(Len(c & "") = 0, "null", c) & _
", depoId=" & IIf(Len(e & "") = 0, "null", e) & _
", faturaTarihi= " & CDbl(Me.faturaTarihi) & _
",faturaNo='" & Me.faturaNo & "', tutar=" & Format(Me.tutar, "##,##") & _
",kdv=" & Format(Me.acilanKdv, "##,##") & ", sinifId=" & d & " where Kimlik = " & Me.metinKimlik & ""
DoCmd.RunSQL SQL