otomataik sıra

eskala · 19 Haziran 2007

Merhabalar efendim,
benim sorum şu, ekteki örnek üzerinden, form üzerinde sıra no olan kısım formun altında her kayıtta artan sıra numarası ile aynı olmasını istiyorum. tablodan otomatik sayı özelliği olmadan nasıl sağlanacak. çünkü bazen kayıt silindiğinde eğer otomatik sayı ile tanımlanmışsa formdaki sıra no ilerde oluyor, alttaki ile uyuşmuyor. bilmem anlatabildim mi? yani form üzerindeki sıra no ile alttaki sayaç numarası aynı olacak, ama nasıl?
teşekkürler...

gulsum1 · 19 Haziran 2007

cevap

ilk olarak no alanını sayı yapacan otomotik sayı olmayacak sonrada bu vereceğim kodları kopyala yapıştır

Option Compare Database
'bu kod sen yeni kayıt girdiğinde en son kaydı alır ve üstüne 1 ekleyip no alanına yazar
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As New ADODB.Recordset
rs.Open "dene", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast

If rs.EOF <> True Then
Do
Metin6.Value = rs("no") + 1

rs.MoveNext
Loop Until rs.EOF

End If
Set rs = Nothing
Set conn = Nothing
End Sub
'bu kod ise formu ilk açtığında eğer daha önce silmiş olduğun bir kayıt varsa bütün tablonun no alanlarını yeniden 1 den başlayarak sıralar
Private Sub Form_Open(Cancel As Integer)
Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "dene", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
i = 0
If rs.EOF <> True Then
Do
i = i + 1
rs("no") = i
rs.Update
rs.MoveNext
Loop Until rs.EOF

End If

DİKKAT! bu kod eğer ilişkili tablolarınız varsa yani bu tablo bir başka tablo ile ilişkili ise onu başka bir alan ile ilişkilendirin no alanı her kayıt silindiğinde değişeceğinden arıza çıkarır önemle duyurulur

unutmadan ikincikodu silme düğmesinde silme işleminin sonuna eklerseniz sadece bir kayıt silindiğinde tablodaki no alanını yeniden düzenler

gulsum1 · 20 Haziran 2007

işte bu nedenden dolayı özel istek olmadan sorulara cevap vermek istemiyorum soru soruldu ben 3 saat zaman harcayıp soruyu cevaplandırdım ama sorunun sahibi ortada yok arakası takip edilmeyen sorulara cevap vermemek isteyişimin nedeni işte bu

kadirdursun · 20 Haziran 2007

haklısınız, size hak veriyorum sayın gulsum1.
birde benim durumumda olan var. son bir kaç sorumu soruyorum ama cevap alamıyorum.

garip bir durum.

gulsum1 · 20 Haziran 2007

senin sorunu gördüm ama sende görüyorsun senin sorun öyle ben yaptım oldu denecek bir soru değil uğraş ister hadi sende kaçarsan

eskala · 21 Haziran 2007

çok haklisiniz sayın Gülsüm hanım,
ama ben soruyu sorup çekip gitmedim, verdiğiniz cevabı yapmaya çalışıyorum ama olmuyor, hata veriyor, örnek form üzerinde siz bir bakın hatayı fark edeceksiniz.

emeğe saygı boynumun borcudur.
bu sitede her soruya elinizden geldiğince cevap veriyorsunuz, ne kadar takdir edilseniz azdır. hani miilletvekili adayı olsanız ve kendinizi hani şu excel web tr de bir gülsüm hanım vardı o benim işte deseniz mitinglerde, sanırım bayağı oy alırsınız

)

eskala · 21 Haziran 2007

ben bir veritabanında bu durumun sözkonusu olduğu bir örneğe rastladım, şöyle ki, form üzerinde sıra no olan metin kutusunun varsayılan değer kısmına
=[CurrentDb].[OpenRecordset]("kayıtlar").[RecordCount]+1
şeklinde bir formul girilmiş. bu yöntemle sorumun yarısı çözülüyor, ancak eğer aradan bir kayıt silinirse sapma oluyor, işte bu durumda çözüm nasıl olabilir.
teşekkür ederim.

eskala · 21 Haziran 2007

olay çözülmüştür. verdiğiniz kod da
rs("no") = i

satırındaki no alanı tablodaki no adıymış. ben bunu formda verdiğim metin adı olarak uyguladığım için hata verdi.
teşekkürler herkese, hakkını helal et Gülsüm hanım.