AccessTr.neT

Herkese merhaba.
Ekte örneğim üzerinden soracağım birçok soru var (8 tane). Ancak, başlıkların farklı olması gerekliliği ve siteye daha fazla örnek olması sebebi ile aynı örnek üzerinden sorularımı siz değerli hocalarıma yönlendireceğim.
Hepsini önce aşağıdaki gibi sıralamamda umarım sakınca yoktur. Bu konu başlığı altında ilgili olan sorularım 1 ve 2'dir.
Saygı ve selamlarımla.

1. Alt formda [İl/Ülke] verisi girildikten sonra [Haftanın günü] yani (WeekDay) otomatik olarak gelsin.
2. Alt formda [İl/Ülke] verisi girildikten sonra [Sevkiyat] otomatik olarak gelsin. [İl/Ülke] verisini “0114IltrafikKodlari” tablosunda arayacak; arama sonucu varsa “YURTİÇİ” yoksa “Yurtdışı” yazacak.
3. Altformdaki [Sevk tarihi] sekme tarihine göre otomatik süzülsün.
4. [Hafta] verisi silindikten sonra sekme adları “Pazartesi”, “Salı”, “Çarşamba”,.. şeklinde yazsın.
5. [Hafta] verisi silindikten sonra “Pazartesi” sekmesinde tüm Pazartesi tarihliler, “Salı” sekmesinde Salı tarihliler,.. şeklinde yazsın. Bu ayrımın kolay yapılması için [Haftanın günü] kaydının yardımcı olacağını düşünmüştüm.
6. [Hafta] değeri silindikten sonra Altformda yeni kayıt satırı oluşturmasın. [Hafta] seçimi yaptıktan sonra kayıt yazabilirsiniz mesajı versin.
7. Üst formda [Form3].[Sevkiyat] boş iken Altformdaki [Sevkiyat] sütununda “YURTİÇİ” ve “Yurtdışı” gözüksün. Seçim yapıldıktan sonra değere göre Altformda süzgeç uygulasın.
8. Altformda otomatik doldurma fonksiyonunu aktif edemedim?

1 ve 2. sorularınızın cevabını hallettik sanırım, inceleyip geri dönüş yapın lütfen.

Ercan hocam, öncelikle ilginize teşekkür ederim.
1.soru-ok, 2.soru ile ilgili geçici sorguyu inceliyorum. o tabloya kayıt atmıyor, şehir adı olarak geliyor (BU KISMI HALLETTİM). Ben "YURTİÇİ" veya "Yurtdışı" şeklinde tablodaki [Sevkiyat] file'a kayıt atmasını istiyorum (BURAYA UĞRAŞIYORUM). Bu arada ben de biraz karıştırayım

merhaba.
[İl/Ülke] AfterUpdate olay yordamına
If DCount("*", "0114IltrafikKodlari", "[il]='" & [İl/Ülke] & "'") > 0 Then Me.Sevkiyat.Value = "YURTİÇİ" Else Me.Sevkiyat.Value = "Yurtdışı"
eklemesini de yapmak istiyorum ama başarılı olamadım. Siz değerli hocalarımdan yardım rica ediyorum.
Saygılarımla.

If DCount("*", "0114IltrafikKodlari", "[il]='" & [İl/Ülke] & "'") > 0 Then [Sevkiyat] = "YURTİÇİ" Else [Sevkiyat] = "Yurtdışı"
şeklinde yaptım - oldu. Bilerek yaptığımı iddia etmiyorum yalnız
Bu konu 1.ve2. sorularım ile bu şekilde kapandı diyebilirim. Diğer sorularıma farklı konu başlığı altında devam edeceğim. Sn.Ercan hocamın gösterdiği yöntem Access öğrenimime yeni bir pencere açtı. Kendisine tekrar çok teşekkür ediyorum.
Saygı ve selamlarımla.

Kendi başınıza bu sorununuzu çözmenize sevindim. Biraz geç kalmamın faydası oldu demekki, bundan sonra cevapları biraz geciktirsek mi acaba)

Şaka bir tarafa sevindiğimi belirtmek isterim. Kolay gelsin.