Sıra numarası atamak

[akd]

Merhaba arkadaşlar,
Aşağıda gönderdigim çalışmamda,
modeller adlı formada iki tane sıra numarası var
1. kendi otomatık sıra numarası
2. ise benim yapmak istedigim sıra numarası
yukarıdaki açılır kutudan hangi ürünü seçersem kaç tane varsa ona göre sıra numarası vermesi ,
örneyin Bilgisayarı seçince yandaki 2. sıra numarasında 1 2 3 4 diye sıralandırmasını yapamadım.
İlgilenecek aradaşlara şimdiden teşekkürlerimi sunarım.

 

[akd]

Merhaba arkadaşlar,
Bu konuda fikri olan yokmu arkadaşlar.

 

[xorion]

Bakınız lütfen...

 

[akd]

Merhaba sayın orion
elinize sağlık çok güzel.
ama son satırdan kaynaklanan bir sorun var galiba
hata uyarısı veriyor
rs.FindFirst "[" & KeyName & "] = " & KeyValue
bu satır sarı oluyor ve
ifade içinde sözdizimi hatası (eksik işleç)
diyor.
Neden acaba...

 

[xorion]

Bende hiç bir hata vermemişti ama (Office XP), şu an ise (Office 2007) sadece tümünü gösterde çalışıyor.. 2003 te denemedim ama sorun olacağını pek sanmasam da referanslar harici başka bir neden de gelmiyor aklıma!..Dosyayı deneyen başka biri de çalışıp çalışmadığını söylerse iyi olurdu...

 

[modalı]

Sayın xorion

Uygulama mükemmel çalışıyor.

sayın akd,

Referanslarınızı kontrol edin DAO 3.6 Library nin yüklü olması gerekiyor. Get Line Number fonksiyonunun çalışabilmesi için.

İyi çalışmalar

 

[akd]

Merhaba sayın modalı,
DAO 3.6 object Library referans etmişim zaten,
yalnız sayın orion ofixsXP de yazdığını onda sorun olmadığını söyledi,
ben ofis2003 kullanıyorum
Function GetLineNumber(F As Form, KeyName As String, KeyValue)
bu satırda şu degişikligi yapınca uyarı mesajı almıyorum artık
Function GetLineNumber(F As Form, KeyName As String, KeyValue As Integer)
As Integer ekleyince uyarı mesajı almıyorum yalnız
en alttaki boş satırda yani
otomatik numara yazan satırın karşında #hata yazıyor
Sayın orion'un pc sinde 0 yazıyormuş
benimkinde de 0 yazsa hiç bir sorunumuz kalmayacak.
Çok Çok teşekkürler ...

 

[hızır]

Bende de ofis 2003 var. problem yok.

 

[akd]

Bütün arkadaşlar Selamlar,
İlgilerinizden dolayı çok çok teşekkürlerimi sunarım,
Şimdi ofisdeki pc de denedim gayet normal çalışıyor,
xorion arkadaşıma çok çok teşekkürlerimi sunarım...