sayaç

[enginbagci]

Merhabalar
bir alanda varsayılan değer olarak her yeni kayit yapmtığımda alandaki enbüyük sayının her zaman bir fazlasını nasıl verebilirim.

Teşekkürler

 

[gulsum1]

=dmax(alanadı,tabloadı)+1

yok bu sıralama belirli bir kritere göre yapılacaksa ozaman da

=dmax(alanadı,tabloadı,kriteralanadı=kriter)+1

 

[enginbagci]

=dmax(alanadı,tabloadı)+1

yok bu sıralama belirli bir kritere göre yapılacaksa ozaman da

=dmax(alanadı,tabloadı,kriteralanadı=kriter)+1

Çok özür dilerim ben yapamadım bu dediğinizi ekte bir örnek dosya yapmaya çalıştım formumda yeni kayıt yapmaya çalıştığımda numara olan hücre en son kalan ne ise mesela tabloda gözüktüğü gibi 22402 nin üzerine bir eklemesini istiyorum.
Gerçekte formum alt form bu yüzden varsayılan değer olarak yapmaya çalıştım ama maalesef beceremedim yardımcı olursanız sevinirim.

Şimdiden teşekkürler.

 

[Taruz]

Merhaba..

Yeni kayıt düğmesinin koduna bu kodu yazın..:

DoCmd.GoToRecord , , acNewRec
numara = DMax([COLOR=red]"[/COLOR]numara[COLOR=red]"[/COLOR], [COLOR=red]"[/COLOR]tablo1[COLOR=red]"[/COLOR]) + 1

Tablodaki numara alanında buluna en büyük sayının bir fazlasını yeni kayda atamış olacaksınız..

 

[enginbagci]

Merhaba..

Yeni kayıt düğmesinin koduna bu kodu yazın..:

DoCmd.GoToRecord , , acNewRec
numara = DMax([COLOR=red]"[/COLOR]numara[COLOR=red]"[/COLOR], [COLOR=red]"[/COLOR]tablo1[COLOR=red]"[/COLOR]) + 1

Tablodaki numara alanında buluna en büyük sayının bir fazlasını yeni kayda atamış olacaksınız..

Merhabalar Sayın Taruz
Cevabınız için teşekkür ederim ama benim gerçeık formumda kullanacağım sayaç yeri Alt forumda bunun için nasıl yapabilirim acaba yardımcı olursanız sevinirim.

 

[Taruz]

Komutu alt formdan verecekseniz aynı şekilde kullanın. Üst formdan vereceseniz de şu şekilde kullanabilirsiniz..:

Me.[COLOR=red]alt_form_ismi[/COLOR].Form.[COLOR=red]numara[/COLOR] = DMax("numara", "tablo1") + 1

Alt forma yeni kayıt komutu ile kullanacaksanız da bu şekilde..:

Me.[COLOR=red]alt_form_ismi[/COLOR].SetFocus
DoCmd.GoToRecord , , acNewRec
Me.[COLOR=red]alt_form_ismi[/COLOR].Form.numara = DMax("numara", "tablo1") + 1

 

[enginbagci]

yapamadım ama yinede cok teşekkür ederim...