+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yeni Kayıt Ekle İle Kayıt No Eklemek. (/konu-yeni-kayit-ekle-ile-kayit-no-eklemek.html)
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - ozguryasin - 05/05/2018
if isnull (me.kqyitno) =1 then
End if
Diğer kodun altına bunu ekleyip deneyiniz.
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - fascioğlu - 05/05/2018
Denedim sonuç aynı hocam.
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - ozguryasin - 05/05/2018
ö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
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - fascioğlu - 05/05/2018
Yazmadı ama.
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - fascioğlu - 05/05/2018
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
Cvp: Yeni Kayıt Ekle İle Kayıt No Eklemek. - ozguryasin - 05/05/2018
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 Ifdeneyiniz.