otomatik sayı ama istediğimde değişiklik yapayım,ilkini beceremedim, örnekte yardım

[sudamlasi79]

ÖRNEK DOSYA: www.mak.yildiz.edu.tr/db1.rar
resimde gördüğünüz gibi, 1 de yeni kayıt diye tıkladığımda 2 deki sayı takip etsin , ama istediğimde sayıyı değiştirebileyim istiyorum, sayıları otomatik sayıyla takip ettirebiliyorum ama gerekli değişikliği yapamıyorum,

 

[yeni54]

bence, GelenEvrak tablosundaki KayıtID alanını tablodan hep çıkart. ikinci bir tablo yap.
alanları KayıtID - Otomatik Sayi ve xxx - metin(20) olan bir tablo aç.

ana formunun "geçerli olduğunda" olayına bir kod yaz. bu kod
deminki tabloya bir kayıt atsin ve atmış oldugu kayda ait KayıtID değerini
alsın. Bu değeri KayıtNo için kullan.

Ben genelde bu yöntemi kullanıyorum. Özellikle birden fazla tabloda
tek merkezli kayıt numarası işlerinde çok işe yarıyor.
Kullandığım function şu:

Public Function Numara_Uret() As Long

Dim sql As String
Dim MyValue As Long

Randomize
MyValue = CLng((999999999 * Rnd) + 1)

sql = "insert into numara_table (xxx) values ('" & MyValue & "')"
CurrentDb.Execute (sql)

MyValue = DLookup("KayıtId", "numara_table", "xxx = '" & MyValue & "'")

sql = "update numara_table set xxx = NULL where KayıtID = " & MyValue
CurrentDb.Execute (sql)

Numara_Uret = MyValue

End Function

kullanımı :
KayitNo = Numara_Uret

 

[modalı]

Sayın kalbinidinle,

Bakın yeni kayıt ekle düğümesinin kodlarına ufak bir değişiklik sanırım işinizi örecektir

Private Sub Komut72_Click()
On Error GoTo Err_Komut72_Click

    DoCmd.GoToRecord , , acNewRec
   [COLOR=red] Me.[Kayıt No] = DLast("[Kayıt No]", "[Gelen Evrak]") + 1
[/COLOR]Exit_Komut72_Click:
    Exit Sub
Err_Komut72_Click:
    MsgBox Err.Description
    Resume Exit_Komut72_Click
    
End Sub

Burada en son kayıt numarasına bir ekleyip, ilgili alana yazıyor.

İyi çalışmalar

 

[yeni54]

Sayın Modalı,
bu yöntem çok kullanıcılı sistemde sorun çıkartmaz mı?

 

[modalı]

Bence hayır. Çünkü yeni kayıt düğümesi kliklendiği anda access in o tabloyu kitlemesi gerekir. Öyle olsaydı elle girildiğinde de aynı karışıklığın oluşması gerekirdi diye düşünüyorum.

 

[sudamlasi79]

bu şekilde kodlama olmadı, neden olmadı anlamadım, örnek dosya üzerinde kodları uygulamalı gösterirseniz sevinirim

 

[sudamlasi79]

yardım eden olmayacakmı,

 

[sudamlasi79]

kıymetli forum arkadaşları ufak sorunumla ilgilenebilirmisin:hey: