otomatik sayı

[hedefkaya]

benim iki tablom var
herkisinin
sıra no alanı otomatik sayı

benim istediğim
eğer birinci tabloda son kullanılan sayı 5 ise ikinci tablodadada 6 dan devam etsin
veya
2. tabloda son kullanılan 5 ise 1. tabloda 6 dan devam etsin

bu konuda yardım ederseniz sevinirim
teşekürler

 

[modalı]

Sayın hedefkaya,

Küçük bir örnek eklerseniz daha çabuk sonuca varabiliriz.

Formunuzun yapısı da önemli.

Ama DMax fonksiyonu işinizi görebilir

 

[seruz]

Türkçe versiyonundaki ismini tam bilmiyorum. (EklemedenÖnce gibi birşey olmal&#305
Formların BeforeInsert event'ında Dmax komutu ile yapabilirsiniz.

Örnek göndermezseniz ancak bu kadar yardımcı olabiliriz.

 

[hedefkaya]

ilginiz için teşekürler örnek aşağıda

 

[modalı]

Sayin hedefkaya,

Öncelikle Tablolarınızın sıra no alanlarını ID olarak değitirdim. (Tablolarda alan adı oluştururken boşluk bırakmamaya ve Türkçe karakter kullanmamaya dikkat edin)

Sonra bu alanın biçimini otomatik sayıdan sayıya çevirdim.

En son da şu kodu ekledim:

Private Sub isim_BeforeUpdate(Cancel As Integer)
Dim a, b As Integer
a = DMax("[ID]", "Tablo1")
b = DMax("[ID]", "Tablo2")

If a > b Then
    Me.ID = a + 1
Else
    Me.ID = b + 1
End If
End Sub

Yukarıdaki kodu tabi ki her iki forma da eklemeniz gerekiyor.

Sanırım çalışacaktır. ben deneyemiyorum.

İyi çalışmalar

 

[hedefkaya]

teşekürler sayın modalı
fakat olmadı runtime eror diye bir hata veriyor
boş bir zamanınızda ilgileirseniz sevinirim

 

[seruz]

Sn. modalının kodu doğru, sadece beforeupdate değil
beforeinsert olsa daha doğru olur.
Siz büyük ihtimalle autonumber'ı kaldırmadınız.

istediğiniz çözümü ekte bulabilirsiniz.

 

[hedefkaya]

TEŞEKÜRLER SAYIN seruz
ELLERİNE SAĞLIK