eksik sayıyı sıra olarak atama

1 2 3 4 5 6 7
06/08/2021, 08:04

lemoncher2

(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
06/08/2021, 09:23

berduş

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, 10:05

lemoncher2

(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ş

Private Sub Komut2_Click()
KimlikNo = Yok
CurrentDb.Execute "insert into Dizeler (Kimlik,[Dize Verisi]) values(" & KimlikNo & ",'" & Me.Metin0 & "')"
End Sub
06/08/2021, 10:42

lemoncher2

(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.
06/08/2021, 10:47

berduş

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?
1 2 3 4 5 6 7