[ÇÖZÜLDÜ] accesste koşullu toplam

[Fuat Şirin]

değerli hocalarım

vb6 da bir projede uğraşıyorum
sorunum şu

barkod      cinsi        renk     no  adet     fiyat       tutar
-----------------------------------------------------------
86908880002 -erkek atlet - beyaz - 6   -  1   -     6    -     6
86908880001 -erkek atlet - beyaz - 5   -  1   -     5    -     5
86908880001 -erkek atlet - beyaz - 5   -  1   -     5    -     5
86908880002 -erkek atlet - beyaz - 6   -  1   -     6    -     6
86908880002 -erkek atlet - beyaz - 6   -  1   -     6    -     6

ben barkod okutarak bu şekilde giriş yapıyorum
istediğim

86908880001 -erkek atlet - beyaz - 5   -  2   -     5    -     10
86908880002 -erkek atlet - beyaz - 6   -  3   -     6    -     18

gibi geçmesi yani toplaması

bunu yapma imkanım var mı hocam

 

[Fuat Şirin]

bı konuda değerl hocalarım yardımcı olursa sevinirim

 

[modalı]

Sayın Fuat Şirin,

Elebette imkanınız var. Öncelikle hangi veritabanını kullandığınızı bilmem gerekiyor. Ancak tablo yapınıza itirazım var. Excelde yapar gibi veritabanında tablo yapmanızın mahsuru var. Ben çok bahsettim tekrar etmeyeceğim.

Dikkat ederseniz her satırda bir sürü şey tekrar ediliyor. Hesaplanan alan tabloda vs.

İyi çalışmalar

 

[Fuat Şirin]

hocam magza.mbd
içinde dg tablosunu kullanıyorum bunun içinde

bana nasıl yapacağım konusunda bir yol gösterirseniz o yönde yapayım

bu konuda değerli yorumlarınıza gerçekten ihtiyacım
bu tabloyu mesela nasıl yapmalıyım

sizin tecrubelerinizden faydalanmak isterim

 

[mehmetdemiral]

Sayın FuatŞirin
Sayın modalı'nın söylemek istediği şey, tablo yapınızla ilgili. Bir ürünün bilgilerini indexlenmiş olarak "ürün" tablosuna kod mantığı kullanarak ve tüm özelliklerini kaydettikten sonra, "ürün giriş" tablonuzda sadece o ürünün benzersiz kodu yer almalı. Herşey birbirine bağlantılı olarak çalışacaktır. Tekrar tekrar tüm bilgilerin ikinci tabloya kaydedilmesi gereksiz, mantıksız ve işlemi yavaşlatmaya yönelik bir angarya olacaktır.

Sayın modalı sanırım bunu anlatmak istiyor. Kolay gelsin.

 

[modalı]

Sayın Fuat Şirin,

Size şu an için Access inizi açıp Yardım menüsünden Örnek Veritabanları ından Northwind örnek veritabanını açıp incelemeniz. Daha sonra yapacağınız uygulamanın işleyiş tarzına göre yapacağınıza karar vermeniz. Mümkün olduğu kadar da her ayrıntıyı düşünerek veritabanınızı oluşturmak.

Bir ürünler tablonuz olmalı, her ürünün barkod dışında bir tekrar edilemez anahtar id olmalı. Bir satışlar tablonuz olmalı bunun da aynı şekilde bir id alanı bir ürün no alanı, satış adedi satış fiyatı ve gerekli ise satış tarihi alanları olamlı. Ürün id ile satışlar tablosu ürün no ilişkilendirilmeli. Her kayıtta bir ürün kaydediliyorsa adede gerek yok. Veyahut şu an benim düşünemediğim ayrıntıları göz önünde bulundurarak veritabanınızı oluşturmanız.

Küçük bir açıklama: Barkodu metin olarak keydettiniz her metin verisi için, 10 byte + metinin boyutu kadar (Barkodlar sanırım 13) 23 baytlık bir alana ihtiyacınız var. Ürün id sini kaydederseniz o zaman uzun tamsayı kullandığınızda 4 baytlık bir veri kaydedersiniz, fark 19 bayt.

İyi çalışmalar

 

[Fuat Şirin]

sn modalı;

örnek bulanamadı diyor

bana bir örnek dosya yollasanız bende onun üzerinde

çalışsam çok makbule geçer

yardımlarınız için şimdiden çok teşekkür

 

[modalı]

Gerçi microsoft un oficce sitesinden indirilebiliyor ama ben yine de ekliyorum.

İyi çalışmalar

 

[Fuat Şirin]

bu konudaki cehaletime verin hocam

hiç bir şey anlayamadım bundan

sorduğum soru doğrultusunda

bana bir örnek tablo istemek yüzsüzlük olur biliyorum

ama olursada büyük bir jestiniz olur

 

[Fuat Şirin]

hocam inanın bu konuya çok uzağım
yardımcı olursanız gerçekten çok makbule geçer

 

[Fuat Şirin]

hocam yardım ederseniz çok sevinirim

 

[gulsum1]

sorgu ile bu tablo toplanabilir ama sayın modalının dediği gibi her okuttuğunuz ürünü tabloya ayrı bir ürün gibi değil aynı ürünleri toplayarak güncelleyin

Private Sub ürünüaktar_Click()
Dim rs As New ADODB.Recordset
rs.Open "depo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs("barkod") = barkod.value Then
rs("malmiktarı") = rs("malmiktarı")+malmiktarı.value
rs.Update
else
rs.AddNew
rs("malmiktarı") = malmiktarı.value
End If
Set rs = Nothing
Set conn = Nothing

End Sub

böylece siz her barkod okutarak forma mal girdiğinizde düğmeye tıkladığınızda aynı bakodlu ürünü forma yazdığınız miktar kadar artıracak

satarkende barkodu okutacaksınız bu sefer
rs("malmiktarı") = rs("malmiktarı")-malmiktarı.value
böyle olacak

 

[Fuat Şirin]

sn gülsüm1

yaptığınız örneği kendime uyarlayamadım

değerli hocalarım;

bana bu konuda açıklayıcı bir yol

gösterirseniz inanın çok makbule geçecek

 

[Fuat Şirin]

kullandığım dosyayı ekledim buna göre
yardımcı olursanız inanın çok makbule geçer

 

[Fuat Şirin]

Hocam
yardımcı olursanız çok makbule gçer

 

[modalı]

Sayın Fuat Şirin,

Acess uygulaması içindeki Sorgu4 istediklerinizi karşılıyor.

Tabi oradaki sorguyu VB6 aktarmak ta bir hüner.

SATIS ve URUN tabloları yapmanız gerekenler için bir fikir verecektir. Bir de ilişkileri kontrol edin bunlar da önemli.

Visual Studio da denedim

SELECT * FROM [Sorgu4]

sorgusu çalışıyor.

Bağlantı cümlesi ise.

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MAGZA.mdb"

Kolay gelsin.


İyi çalışmalar

 

[Fuat Şirin]

hocam evet sorgu4 istediklerimi karşılayor

id numarasını vererek tablo oluşturulmuş hepsi güzel hocam harika yapmışsınız

benim kafam basmıyor

bir türlü bağı çözemedim

bu sorguyu nasıl yaptığınızı bulamadım

ben mesela satış yaptığımda

satış verilerini nereye geçicem

ben satışı geçince sorgu otomatik çalışıcak mı hocam

hakkatten kafam durdu bu işte

sabah kadar uğraşıcam hocam yoksa

hiç bilmeyen bir kardeşine açıklayıcı olarak yardımcı olursan

inan beni büyük bir yükten kurtarırsın hocam

 

[Fuat Şirin]

hocam tamamdır oldu
çok saolun acayip makbule geçti