ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
11/02/2009 17:13
Konu Sahibi
nihatkr
Yorumlar
6
Okunma
2981
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Üye
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Çözüldü 
Örnek içerisinde olması gereken işlemi istedim.

Kısaca;

1 iş var 10-12 taşeron var. Her taşeron aylık olarak hakediş düzenlemektedir.

Her taşeronun hakedişini otomatik sıra nosu ile yapmasını istiyorum.

İşin konusuna ve taşeronun adına göre hakediş nosunu bir öncekinden görüp bir sonraki numarayı ekleyecek.

Teşekkürler ilgilenlere.


Ek Dosyalar
.rar   Gemi İnşa Takip.rar (Dosya Boyutu: 20,78 KB / İndirme Sayısı: 30)
Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
iş bir tanemi yani bir kaç değişik iş varmı
iş sadece bir adetse

bu bir kaç değişik olaydan oluştuğu için dmax veya Dlookup ile halledilmez sanırım bunu sorgulu bir dao yada ado ile çözülebilir

Set rst = CurrentDb.OpenRecordset("SELECT * FROM taseronhakedisi WHERE isinkonusu Like '" & Me.isinkonusu & "*' And taseronadi Like '" & Me.isinkonusu & "*'
)
if rst.RecordCount=0 then
me.hakedisno=1
else
rst.Movelast
me.hakedisno=rst!hakedisno+1
end if


bu şekilde işin konusu ve taşeron adına göre tabloyu sorgular ve kayıtları sayar kayıt yoksa 1 yazar eğer kayıt varsa en son kayda gider onun hakediş nosunu alır üzerine +1 ekler ve metin kutusuna yazar

buna benzer örneği benim eklediğim
kod deposunda bulabilirsin


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Üye
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Çözüldü 
iş bir adet değil değişken. imaltın durumuna göre 12 ile 15 arasında değişiyor işin konusu


Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
demek istediğim

yani a işi b işi işleride kendi aralarında sıralayacakmısın

yani mehmet emminin a işini 3 defa yapmış b işini 4 defa yapmış bunlarıda kendi aralarında sıralayacaksan kritere bir And daha ekleyerek bir kriter daha eklersin bu şeklide sadece işin konusu ve işin taşeron adına göre süzüp sıra no veriyor lakin bana sorasan birde ödendi diye bir alan ekle böylece sadece ödeme yapılmamış olanları sıralasın işin daha kolay olur


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla

nihatkr

Ofis 2007-2003-2010
Kullanici Avatari
Altın Üye
814
29/10/2008
272
İstanbul
Ofis 2007
03/09/2016,04:40
Çözüldü 
yok öyle bir sıralama yapmayacağım. ödendi ilede işim yok. bana lazım olan sadece otomatik sıra no versın.

a kişisi B imalatında aa işini yapmış 3. hakediş
a kişisi B İmalatında ab işini yapmış 2. hakediş
a kişisi A imalatında aa işini yapmış 7. hakediş
a kişisi A İmalatında ab işini yapmış 12. hakediş

bu liste uzayıp gidiyor c,d,e,f,g kişileri diyerek

bunlara bır sonrakınde 1 eklesin yeterli. ödeme işi ayrı.


Cevapla

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
Çözüldü 
senin istediğini yapan kod bu
Private Sub taseronfirma_Exit(Cancel As Integer)
Dim rst As Recordset
Dim sd As String
sd = "SELECT * FROM taseronhakedisi WHERE isinkonusu Like '" & Me.isinkonusu & "*' And taseronfirma Like '" & Me.taseronfirma & "*'" & ""
Set rst = CurrentDb.OpenRecordset(sd)
If rst.Recor DCount = 0 Then
Me.hakedisno = 1
Else
rst.MoveLast
Me.hakedisno = rst!hakedisno + 1
End If
rst.Close
Set rst = Nothing
End Sub

yalnız alan isimlerini hem tabloda hemde formda aynen yazdığı gibi değiştir ayrıca tablo adınıda taseronhakedisi bu şekilde değiştir birde unutma asla türkçe karakterler kullanma alan adlarında ve aralarında boşlukta bırakma illada bırakacam karışıyor diyorsan ali_gel diye altçizgi ile yap boşlukları


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Otomatik olarak güncel kur ile çarpsın kallike 9 2.661 02/11/2017, 06:01 ozanakkaya
Çözüldü Otomatik Sayı Başlangıç Değerini Değiştirmek? ALTANs 5 3.503 29/10/2017, 02:42 ozanakkaya
Çözüldü Açılan İlişikli Kutular Rapor Alanında Sadece Sayı Olarak Gözüküyor whelkshell 9 521 26/10/2017, 11:13 accessdelisi
Çözüldü Rapor Alanın Boyutu Otomatik Büyüsün Veya Küçülsün burhanb 3 159 22/10/2017, 19:54 userx
Çözüldü Formda Otomatik Sayı Hatası ştekin 2 97 27/09/2017, 13:03 ştekin
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.