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