(06/08/2021, 01:35)berduş yazdı: aşağıdaki kod daha doğru ve hızlı gibi

Function Yok() As Long

If DCount("Kimlik", "Dizeler") = DMax("Kimlik", "Dizeler") Then Yok = DMax("Kimlik", "Dizeler") + 1: Exit Function

Dim Kayit As Recordset, Sayac As Long

Set Kayit = CurrentDb.OpenRecordset("Select Kimlik from Dizeler order by Kimlik")

Kayit.MoveFirst

    Do Until Kayit.EOF

    Sayac = Sayac + 1

    If Sayac <> Kayit!Kimlik Then Yok = Sayac: Exit Do

    Kayit.MoveNext

Loop

If Yok = 0 Then Yok = Kayit.RecordCount + 1

Kayit.Close: Set Kayit = Nothing

End Function

Elinize sağlık teşekkür ederim.

Değiştirilmesi gereken alanları ve ne ile değiştirilmesi gerektiğinide yazabilirmisiniz bir de bu kodu kaydetme komutundan öncemi kullanıyorsunuz

Select Kimlik from Dizeler order by Kimlik
Kimlik : bu alan sizin sıralama yapmak istediğiniz alan
Dizeler : tablonuzun adı
kayıt ekleme butonuna KimlikNo=Yok satırını ekleyip ekleme kodunuzun kimlik alanı kısmına da KimlikNo yazacaksınız o kadar

(06/08/2021, 09:23)berduş yazdı: Select Kimlik from Dizeler order by Kimlik
Kimlik : bu alan sizin sıralama yapmak istediğiniz alan
Dizeler : tablonuzun adı
kayıt ekleme butonuna KimlikNo=Yok satırını ekleyip ekleme kodunuzun kimlik alanı kısmına da KimlikNo yazacaksınız o kadar

Size zahmet bana örnek kaydet butonuzun kodlarını atabilirmisiniz.
Ben DoCmd.GoToCommand acCmdSave komutu ile kayıt yaptırıyorum.

Private Sub Komut2_Click()

KimlikNo = Yok

CurrentDb.Execute "insert into Dizeler (Kimlik,[Dize Verisi]) values(" & KimlikNo & ",'" & Me.Metin0 & "')"

End Sub

(06/08/2021, 10:06)berduş yazdı:

Private Sub Komut2_Click()

KimlikNo = Yok

CurrentDb.Execute "insert into Dizeler (Kimlik,[Dize Verisi]) values(" & KimlikNo & ",'" & Me.Metin0 & "')"

End Sub

Sanırım ben yapamıyor olabilirim

Tablo Adı: Tablo1
Sütün Adı: Alan1

Me.Metin0 alanını neden eklediniz orayı anlayamadım.

neden örnek çalışmanızı eklemiyorsunuz ben onu anlamıyorum!
her çalışmanın kendine has bir yapısı vardır, ben sizin çalışmanızı görmeden size ne önerebilirim ki,
metin0 veri girilen bir alan metin kutusu olmadan veriler nasıl eklenecek?
çalışmanızda verileri nasıl ekliyorsunuz?