yalnız "F_02_TeklifDetayAltForm" da S_Noyu hesaplarken kullandığım Dmax komutunu değiştirmek gerek
dmax boş ise sorun çıktığından Nz(DMax(………...…)) şeklinde olmalı
o formdaki kodu 
__________________________________________________________________________
Private Sub Form_BeforeUpdate(Cancel As Integer)

Me.S_No = DMax("S_No", "T_02_TeklifDetay", "TeklifVerilenFirma='" & _

             Me.TeklifVerilenFirma & "'") + 1
End Sub
___________________________________________________________________________

aşağıdaki ile değiştirin

Private Sub Form_BeforeUpdate(Cancel As Integer)

Me.S_No = Nz(DMax("S_No", "T_02_TeklifDetay", "TeklifVerilenFirma='" & _

             Me.TeklifVerilenFirma & "'")) + 1

End Sub