(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

Kodu Seç

Kodu Kopyala

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.

(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

Kodu Seç

Kodu Kopyala

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?