Sayın Özgür bey,
Yine olmadı,emeğiniz için çok teşekkür ederim.

Konu çözülmüştür,emeği geçen herkese tşk.ederim.

Sayın fascioglu, bu güne kadar 178 Konunuza cevap yazdık. 

Sorunuzu çözdüyseniz nasıl çözdüğünüzü de belirtirseniz memnun olurum.

Sayın Ozan hocam,
Her şeyden önce sizlerin yapmış olduğu emek ve mesainiz için sonsuz teşekkür ederim,yardımlarınız unutulmaz.
Sorunun cevabına gelince daha evvel farklı bir projede aldığım bir yardım sonucu aşağıdaki kodları buldum ve bu şekilde çözdüm.
Saygılarımla.

Private Sub Komut10_Click()

On Error GoTo Err_Komut10_Click

    DoCmd.GoToRecord , , acNewRec



Me.Gelir_No.SetFocus

    Me.Gelir_No = Nz(DMax("Gelir_No ", "tbl_GELIRCESIDI"), 0) + 1

Exit_Komut10_Click:

    Exit Sub



Err_Komut10_Click:

    MsgBox Err.Description

    Resume Exit_Komut10_Click

    

End Sub

Cevabınız için teşekkür ederim, konunuz taşınmıştır.