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.