Skip to main content

#EvdeKal


Üç şarta bağlı olarak alt formda sayı üretme

Üç şarta bağlı olarak alt formda sayı üretme

Çözüldü #1
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.
.rar Örnek1.rar (Dosya Boyutu: 36,91 KB | İndirme Sayısı: 17)
Cevapla
Çözüldü #2
Soruyu Çözecek kimse yokmu?
Cevapla
Çözüldü #3
Çözülemeyecek soru yok. Biraz daha detaylı anlatırmısınız...
Please return your positive or negative ...
Cevapla
Çözüldü #4
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,....
Cevapla
Çözüldü #5
Önceki anlatımla bu anlatım arasında fark göremedim...
Please return your positive or negative ...
Cevapla
Çözüldü #6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task