AccessTr.neT

Merhabalar
Access 2010 da yapmak istediğim hakediş programında 3 şarta bağlı olarak ( Firmaadı, birimadı ve hizmetintürünü sorgulayarak ) hakediş numarsını verdirmek istiyorum. DMax ve If komutlarını kullanarak yapmak istedim ama başarılı olamadım.Örnek dosya ektedir.Yardımcı olacak arkadaşlara şimdiden teşekkürler

Şartlar Parantez içresinde kırmızı ile yazılı olan alanlara göre 1 den başlayarak sayı üretecek.
Veriler
Firmaadı: A, AA, AAA
Hizmettürü: B, BB, BBB
Birimadı: C, CC, CCC
hakno : 1; 1; 1 ( Birinci ay)
2; 2; 2 ( ikinci ay)
.................. .............
Sayıda sınırı da olabilir.
Bir yılık sözleşme yapılıyor 12 ay ayda bir defa ödeme yapılıyor.Yani Sözleşme hakediş no 1 den başlıyor 12 de bitiyor.Sözleşme başlangıç ve bitiş ayları yıl içerisinde her hangi bir ay olabiliyor.

Soruyu Çözecek kimse yokmu?

Çözülemeyecek soru yok. Biraz daha detaylı anlatırmısınız...

Sayin Power şöyle anlatayım.
X Firması Y ,Z gibi birden fazla birimde temizlk hizmeti verebilir.X Firmasına birimlerde yaptığı hizmet karşılığında her birim için ayrı ayrı hakediş düzenlenerek ayda bir ödeme yapılıyor. Bu hakadişlerin ayrı ayrı sıralı numara alması gerekiyor. Firma,birim ve hizmet turüne göre ayrı ayrı (Firma ,birim,hizmet hakediş no =1,2, 3. ...)
X,Y,Temizlik hiz, hakediş No=1,2,3,....
X,Y,Araç kiralama, hakediş No=1,2,3,....
X,Z,Temizlik hiz, hakediş No=1,2,3,...
X,Z,Araç kiralama, hakediş No=1,2,3,....

Önceki anlatımla bu anlatım arasında fark göremedim...

Sayın POWER merhaba
Konu başka bir siteden aldığım yardımla çözüldü. İlginize teşekkür ediyorum. Kodunu da burada yayımlıyorum.

Private Sub tutarı_AfterUpdate()
On Error GoTo Erc
Me.hakno = CLng(DMax("[hakno]", "girşalt", "[Kimlik]=" & Me.Kimlik & " And Not IsNull([hakno])")) + 1
DoCmd.RunCommand acCmdSaveRecord
Exit Sub
Erc:
Me.hakno = 1
Resume Next
End Sub