+- 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ığı: eksik sayıyı sıra olarak atama (/konu-eksik-sayiyi-sira-olarak-atama.html)
RE: Otomatik Sayo - lemoncher2 - 06/08/2021
(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
RE: Otomatik Sayo - berduş - 06/08/2021
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
RE: Otomatik Sayo - lemoncher2 - 06/08/2021
(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.
RE: Otomatik Sayo - berduş - 06/08/2021
Private Sub Komut2_Click()
KimlikNo = Yok
CurrentDb.Execute "insert into Dizeler (Kimlik,[Dize Verisi]) values(" & KimlikNo & ",'" & Me.Metin0 & "')"
End SubRE: Otomatik Sayo - lemoncher2 - 06/08/2021
(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.
RE: Otomatik Sayo - berduş - 06/08/2021
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?