AccessTr.neT

if isnull (me.kqyitno) =1 then
End if


Diğer kodun altına bunu ekleyip deneyiniz.

Denedim sonuç aynı hocam.

öncelikle kayıt no yu bir arttırarak me.kayitno alanına yazdırıyorsunuz değil mi? 
yazdırıyorsanız ilk kod da kayıt olmayacağı için boş gelecek me.kayitno 

ve burada 

if isnull (me.kayitno)=1 then 
end if

dediğinizde boş görünce 1 yazacak

Yazmadı ama.

Uygulanan kod.

Private Sub Komut65_Click()
DoCmd.GoToRecord , , acNewRec
Me.KayitNo = DMax("KayitNo", "T_MUSTERIKAYIT") + 1
If IsNull(Me.KayitNo) = 1 Then
End If


End Sub

else kodu kullanmamışsınız ondan kaynaklanıyor. bu olursa bunu yap eğer olmazsa bunu yap dememişsiniz.

DoCmd.GoToRecord , , acNewRec

If IsNull(Me.KayitNo) = 1 Then

else

Me.KayitNo = DMax("KayitNo", "T_MUSTERIKAYIT") + 1

End If

deneyiniz.