Toplu aktarma

[akd]

Merhaba arkadaşlar,
Liste1 de teklif malzemleri yazıyorum, adeterinide AKTAR butonuna tıkladığımda
bunların adetlerini Liste2 tablosundaki adetlere toplu bir şekilde nasıl ekletebiliriz.
İyi çalışmalar...

 

[yeni54]

Ekteki örneği incele.

 

[hozzeybek]

valla çok güzel bir örnek sağolasın yeni54

 

[beab05]

Merhaba;

Yeni54, ne kadar ilgili bilmiyorum ama örneğini inceleyince aklıma geldi. Şu meşhur taksitlendirme olayı sql ile daha iyi olmaz mı? Aynı şekilde insert, delete kullanarak. Denerim dersen senin için küçük bir örnek hazırlarım ( diğer yöntemlerle yapılanları gördüm, nedense ısınamadım) . Seni yakalamışken sorayım

 

[akd]

Merhaba sayın yeni54,
Ufak Bir yanlış anlaşma olmuş, liste2 dekini silmeyecek, Adeti onun üzerine ekleyecek, Kalem liste2 de 5 adetse yeni eklenecek 3 Adet se aktarınca liste2 de 8 olması gerek, yani her ekle dedigimde adetleri olanların üzerine eklemesi lazım.
İyi çalışmalar...

 

[yeni54]

Merhaba;

Yeni54, ne kadar ilgili bilmiyorum ama örneğini inceleyince aklıma geldi. Şu meşhur taksitlendirme olayı sql ile daha iyi olmaz mı? Aynı şekilde insert, delete kullanarak. Denerim dersen senin için küçük bir örnek hazırlarım ( diğer yöntemlerle yapılanları gördüm, nedense ısınamadım) . Seni yakalamışken sorayım

Diğer yöntemleri hatırlamıyorum ama, deneriz tabi, neden olmasın?

 

[yeni54]

Merhaba sayın yeni54,
Ufak Bir yanlış anlaşma olmuş, liste2 dekini silmeyecek, Adeti onun üzerine ekleyecek

o da kolay da, (aslında uğraştırıcı bir iş, liste1 i >0 olacak şekilde loopa sokup,
liste2 de varmı bakacan, varsa update edecen yoksa insert edecen. şuan pek vaktim yok ama yöntem bu)

yanlış ekleme olursa, mesela butona 2 kere tıklarsa yanlışlıkla geri nasıl alacaksın peki?

 

[beab05]

Yine sayın akd nin verdiği örneklerinde vardır bolca taksit konuları Bir örnek hazırlayıp buraya upload ederim... Ya da senin yoğun olmadığın bir zaman bakalım.. ( Bir başkası hazırlarsa bilemem)

 

[akd]

Merhaba sayın beab05, nasılsınız görüşmeyeli,
Taksitlendirme olayı ilemi uğraşıyorsunuz,
isterseniz benim kodları yazayım buraya,
bu arada benim sorumu kaynatığınızın farkındamısınız
İyi çalışmalar...

 

[beab05]

Merhaba sayın beab05, nasılsınız görüşmeyeli,
Taksitlendirme olayı ilemi uğraşıyorsunuz,
isterseniz benim kodları yazayım buraya,
bu arada benim sorumu kaynatığınızın farkındamısınız
İyi çalışmalar...

Kusura bakmayın Sizinle samimiyetimize de güvenerek araya rahat girdim. Taksitlendirme olayıyla uğraşmıyorum aslında ama sql in bu iş için daha uygun olduğunu düşünüyorum ve bu konunun çok kişinin ilgisini çektiğini sanıyorum. Hem pratik olmuş olur, sql çok keyiflidir. Yeni54 bişeyler yapabilir bu konuda.. Aslında siz bir örnek hazırlasanız sayın akd, ama hiç kod olmadan sadece tablolar ve formlar olsun, yapılmasını istediğinizi yazsanız.?? (eski kodları da görmek isteriz tabii)

Neyse sizin soruya geri dönelim, çok fazla kaynadı, buharlaşmak üzere

 

[akd]

Rica ederi sayın beab05, bende şaka yapıyorum zaten,
Taksitlendirme konusunda benim bir sorunum yok çok şükür,
ama istenilen birşey varsa memnuniyetle yardımcı olmaya çalışırız,
bilgimiz dahilinde tabii, ama sizler gibi üstadların yanında bizim sözhakkımız olamaz bence.
İyi günler dilerim...

 

[maltinkaya]

Slm ArkadaŞlar Benİm Bİr Proje Var Ama Macro Yazmasini Bİlmİyorum Kasa Ve Carİlerle İlgİlİ Yardimci Olurmusunuz

 

[yeni54]

koda bulaşmadan sql ile halloldu yine

 

[yeni54]

eee dosya nerde diyeceksiniz. herzamanki gibi unuttum

 

[akd]

Çok teşekkürler Sayın yeni54,
elinize sağlık çok güzel olmuş,
sakın yanlış anlamayın, ama ben kod ile olmasını daha çok istedim,
daha pratik olurdu.
İyi çalışmalar...

 

[yeni54]

kod ile çalışan daha pratik olmaz. daha külfetli olur.

 

[akd]

ben cari hesapta şu kodu kulanıyorum, satışı yaparken aynı anda stok tablosundaki malzemenin karşısındaki adet'e yazılan miktarı eklettiriyorum,
bu kodu çoğula çeviremezmiyiz.
Dim rs As New ADODB.Recordset
rs.Open "TbStok", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
If [T9] = "A" Then 'Al&#305;&#351; ekleme
If rs("Cinsi") = Me.T3 Then
rs("GirenAd") = rs("GirenAd") + Me.T5
rs.Update
End If
End If
selamlar...

 

[yeni54]

&#231;o&#287;ula &#231;evirmekten kast&#305;n ne?

 

[akd]

Say&#305;n yeni54, sizi yoruyorum hakk&#305;n&#305;z&#305; helal edin,
Demek istedigim, kod ile tek tek adet eklemesi yapabiliyorum,
Burada gaye bir teklif mektubu haz&#305;rlan&#305;yor, teklife tamam denildiginde,
bu adet ler stoktaki &#231;&#305;kan adet miktar&#305;n&#305;n &#252;zerine eklenecek, yani &#231;&#305;k&#305;&#351;&#305; yap&#305;lm&#305;&#351; olacak, toplu &#351;ekilde
A&#351;a&#287;&#305;daki kodda her sat&#305;&#351;ta, sat&#305;lan miktar&#305; stok tablosundaki mal&#305;n kar&#351;&#305;s&#305;ndaki &#231;&#305;kan adet miktar&#305;na ekliyor.
Dim rs As New ADODB.Recordset
rs.Open "TbStok", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rs.EOF <> True Then
Do
If [T9] = "S" Then ' Sat&#305;&#351; D&#252;&#351;me
If rs("Cinsi") = Me.T3 Then
rs("CikanAd") = rs("CikanAd") + Me.T5
rs.Update
End If
End If

Selamlar, say&#287;&#305;lar...