Me.S_No = Nz(DMax("S_No", "T_02_TeklifDetay", "TeklifVerilenFirma='" & _
Me.TeklifVerilenFirma & "'")) + 1
benim hatam yukardaki kodu form güncelleme olayına yazmışım"F_02_TeklifDetayAltForm" yer alan aşağıdaki kodu tamamen silin
_______________________________________________________________________
Kod:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me.S_No = Nz(DMax("S_No", "T_02_TeklifDetay", "TeklifVerilenFirma='" & _
Me.TeklifVerilenFirma & "'")) + 1
End Sub
yukardaki kod yerine formdaki "ekleme sonrası"na olay girin
Private Sub Form_AfterInsert()
Me.S_No = Nz(DMax("S_No", "T_02_TeklifDetay", "TeklifVerilenFirma='" & _
Me.TeklifVerilenFirma & "'")) + 1
End Sub