İhracat ve cari hesap takibi ile ilgili

[mbasoguz]

Arkadaşlar merhaba öncelikle çok güzel paylaşımlar mevcut. Güzel bir site. Ben hazır bir access üzerinde bir çok değişiklik yaparak bir program yaptım (yapmak denilirse) bu program ihracatları takip ediyor ve carilerini tutuyor fakat bir iki şeyi daha değiştirmek istedim değiştiremedim programı ekliyorum bana yardımcı olursanız sevinirim. İsteklerim şunlar;
1)Programa girince ana geçiş panasu geliyor bu panoda "müşterilere göre sipariş gir görüntüle" ye basınca solda şirket yazıyor. BURADA BİR AÇILAN KUTU OLSUN KAYDETTİĞİM ŞİRKETLERİ BURADAN SEÇEREK GETİREYİM.
2)"müşterilere göre sipariş gir görüntüle" ekranında sola aşağıda "SİPARIŞLER"E tıklayın burada ürün kodları ürün açıklaması ve brim fiyatları var burası ürünler olarak yaptığım tablodan çekiliyor. fakat burada bazen özel ürünlerin(listede olmayan) satışı yapılıyor. Listeye eklemeden buraya özel ürünleri yazamıyorum illa ki kayıt istiyor. Kayıt yapmadan buraya ürün yazmak istiyorum...
3)Yine "müşterilere göre sipariş gir görüntüle" ekranında iken ortadaki alanda faturalandımı? diye bir alan var oraya bir onay kutusu koymak istiyorum ve onaylı değilse, raporlada müşteriden alacak olarak gözükmemesini istiyorum.
4)Müşteri ödemeleri adlı raporda da diğer raporlarda olduğu gibi tarih aralığı sorsun istiyorum.
Hepsi bu kadar yardımlarınızı bekliyorum. Şimdiden teşekkür ederim.

 

[Taruz]

Merhaba sayın mbasoguz,

1-Formun üstüne açılan kutuyu koyun, tablodan firma adlarını listeleyin..
Özellikler/olay/ güncelleştieme sonrasına şu kodu yazın,

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ŞirketAdı] = '" & Açılankutuadı & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

seçtiğiniz firma ekrana gelir..

2-Çalışmanızdaki ilişkileri inceledikten sonra; yerinizde olsam buna bulaşmaz yine her ürün için yeni kayıt yapardım. Aynı şartlarda harici veri girişine izin vermeniz için tablo ve kodlarınızdaki kurgular gereği ciddi değişiklik yapmak gerekli. Tabii bence. Belki daha basit çözümü vardır.

3- Formdaki Faturalandı mı? alanı ilişkisiz. Öncelikle tabloda(Siparişler) bir alanda bunu ilişkilendirin.

Sipariş giriş formunuza onay kutusu ekleyip bu alanı bağlayın. "Müşterilere Göre Siparişler Alt Formu"nuza da ikinci bir onay kutusu ekleyip, forma bağlı kaynağa bu alanıda ekleyin. böylece ilk ekranda faturalanmış yada faturalanmamış olduğunu görün.

4-Raporun kaynağındaki Ödeme tarihi alanı ölçütüne Between [Başlagıç Tarihi] And [Bitiş Tarihi] yazın..

Hızlı oldu; eksik anlattığım bir bölüm varsa yine yardımcı olmaya çalışırım.. Kolay Gelsin..

 

[assenucler]

Rica

Sn. msbasoguz,

İyi günler. 15 sene önce bir ihracatçı firmada 2 yıl çalışmıştım. Dosya içeriği ilgimi çekti ve eserinizi çok beğendim.

Soru ve istediklerinizin yanıtını aldıktan sonra, son halini görmek isterim.

Siteye yüklerseniz, bundan büyük mutluluk duyarım.

Başarılar dilerim. Kolay gelsin ve teşekkürler.

 

[hamitcan]

Sayın mbasoguz, konu başlığı seçerken daha dikkatli olalım lütfen.Başlığı ben değiştirdim.

 

[mbasoguz]

Merhaba bilgiler için çok teşekkür ederim. Deneyeceğim... Sorum olursa tekrar sorabilirim değilmi?

 

[mbasoguz]

Sn. Assenucler;
Çok teşkkür ederim son halinide sizinle paylaşacağım.

 

[mbasoguz]

Sayın Taruz; Anlattıklarınızı aynen yapmaya çalıştım fakat olumusuz. Yapamadım. Acaba sizin program üzerinde düzeltme yapmanızı istesem çok mu olur. Teşekkürler.

 

[Taruz]

Hangisinde sorun yaşadınız?

Birlikte yapalım..

 

[mbasoguz]

İşin aslı hepsinde sorun yaşadım. 1. de açılan kutu yaptım fakat şirket isimleri gelmedi. 2. de Ürün açılır kutusunu özellikler/veri/listeye sınır/ Hayır yaptım access bunu yapamıyor diye bir hata ile karşılaştım. 3. ise onay kusunu yaptım ilişkilendiremedim. İşin aslı bunları yapamayınca 4. denemedim.

 

[Taruz]

1- "Müşterilere Göre Siparişler" adlı formunuzun üzerine bir açılır kutu koyun. İsmi "Açılankutu" olsun.

özellikler/veri/satır kaynağına gidin ve aşağıdakileri yazın-yapıştırın.

SELECT Müşteriler.ŞirketAdı FROM Müşteriler GROUP BY Müşteriler.ŞirketAdı ORDER BY Müşteriler.ŞirketAdı;

Sonrasında özellikler/olay/güncelleştirme sonrasında'ya gidin. Açılan kutudan [olay yordamı]nı seçin. Kenardaki düğmeye tıklayıp Private Sub Açılankutu _AfterUpdate() ile End Sub arasına şu kodu yazın-yapıştırın..

Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ŞirketAdı] = '" & Açılankutu & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Bilgisayarımla, daha doğrusu ActiveX lerle sorun yaşadığım için düzenleme yapıp gönderemiyorum.. Bu şekilde olacak artık.

 

[mbasoguz]

Hocam dediklerinizi aynen yaptım. Üzerinde dağiştirme yatığım dosyayıda eke koyuyorum. Neden hata veriyor anlamıyorum. Seçtiğim şirketin isimleri gelmiyor fakat bilgileri gelmiyor. Yardımlarınız için teşekkürediyorum.

 

[Taruz]

Siz üsteki mevcut metin kutusunu değiştirmişsiniz..

Formun alt kısmına yeni bir açılan kutu ekleyip yapın.. Eskiye dair bir şeyi bozmayın ve en iki firma kaydınız olsun ki filitreleme yapınca farkına varın..

 

[mbasoguz]

Hocam saolasın ilgin için teşekkür ederim.. Yeni bir açılan kutu koydum. Şirket isimleri geldi.. Fakat firmaya ait bilgiler(ödemeleri-borçları-adresi vs..) gelmedi.. Nerede yanlış yapıyorum? Hocam eke koydum..

 

[akd]

Merhaba sayın mbasoguz,
Malesef proğramı yanlış oluşturmuşsun,
Müşterilere Göre Siparişler tablona firma ismi eklemen gerek,
çünkü satışı kime yaptığın belli degil, yaptığın satış genel gibi oluyor,
o satışları bir firmaya bağlamak gerek, sonra firmayı bulunca o firmaya ait satışları bulabilir.
İyi çalışmalar...

 

[Taruz]

Hocam saolasın ilgin için teşekkür ederim.. Yeni bir açılan kutu koydum. Şirket isimleri geldi.. Fakat firmaya ait bilgiler(ödemeleri-borçları-adresi vs..) gelmedi.. Nerede yanlış yapıyorum? Hocam eke koydum..

Açılan kutunun güncellemeden sonrasının içindeki kodun " & Açılankutu & "'" bölümünü " & Açılan_kutu & "'" olarak değiştirin.

 

[mbasoguz]

Muhteşem

Hocam gerçekten sizi çok uğraştırdım. Çok teşekkür ederim. Çok mutlu oldum çalışınca. Peki diğer sorunlarıda çözmemiz mümkünmüdür? Eğer sizi çok uğraştırdıysam başka bir yerlerden çözmeye çalışayım.. Çalışan hali ekte.

 

[Taruz]

Uğraşmak sorun değil.. Yardım edebiliyorsam ne mutlu.

2 ve 3 nolu sorunlar uzun iş. Kolayını yapalım..

4- Veritabanı penceresinden sorgular, ordan da Müşteri Ödemeleri sorgusunu seçin; tasarım görünümünde açın. Aşağıda ölçüt kısmı var. Ödeme Tarihi alanın altındaki ölçüt sırasına

Between [Başlagıç Tarihi] And [Bitiş Tarihi]

yazın.

Kaydedin, tamamdır.

 

[mbasoguz]

Hocam harika buda tamamdır. Kusura bakmayın işten dolayı çok seri şekilde cevaplar yazamıyorum. Bir yandan çalışıyorum. Sabrınız için saolun..

 

[Taruz]

3. isteğinizi adım adım çözelim, daha kolay olur.

veritabanı penceresi/tablolar/Siparişler'i tasarımda açın. Alan adı bölümüne fatura isminde bir alan ekleyin, veri türü Evet-Hayır olsun. Kaydedin kapatın.

İkinci adım; siparişler formunu tasarımda açın. Araç kutusundan onay kutusu seçip formun üzerine (Alacak Miktarının altına) yerleştirin, ismi Faturalandı olsun. Kutunun özelliler/veri/kayıt kaynağını fatura yapın. kaydedin, çıkın. Kayıt yaparken, siparişiniz faturalı ise burayı işaretlemeyi unutmayın.

Bunları yapın üçüncü adım var.

 

[mbasoguz]

Hocam;
veritabanı penceresi/tablolar/Siparişler'i tasarımda açtım. Alan adı bölümüne fatura isminde bir alan ekledim, veri türü Evet-Hayır yaptım. Kaydedip kapatım.
İkinci adım; "siparişler formunu tasarımda açın" demişsiniz fakat bu onay kutusunun gözükeceği yer "Müşterilere Göre Siparişler Alt Formu" olduğundan bu formda Araç kutusundan onay kutusu seçip formun üzerine (Alacak Miktarının altına) yerleştirdim, ismi Faturalandı yaptım. Kutunun özelliler/veri/kayıt kaynağını fatura yapın. kaydedip, çıktım. Hatam var mı?