AccessTr.neT

Herkese merhabalar. Uğraştığım bu uygulamada bir çok temel hatayı düzelttiğime inanıyorum. Ama bazı ufak ayrıntılarda boğuldum ve benim bilgim ve araştırmalarım çözmem için yeterli olmadı. Biraz ayrıntılı yazdım ki anlaşılır olsun diye. Vakit ayırıp yardımcı olursanız çok sevinirim. Teşekkür ederim.

Sorunlar :

1) "F_FATURA_GIRISI" formunda "Yeni Fatura" butonuna tıklayınca, otomatik "Kayıt Id" numaramı ekrana yazdırdım. ama "Fatura Ayrıntısı Girişi" butonuna tıklayınca, bununla ilişkilendirdiğim "FATURA_IDFK" numarasını ne ekrana ne de kayıta otomatik olarak attıramıyorum. Her seferinde elle girmem gerekiyor.

2) "F_FATURA_AYRINTI" formunda "ÜRÜN ADI" birleşik giriş kutusundan ürünü seçince, "ÜRÜNGRUBU" nu otomatik yazdırabildim. ama "KDV" yi bir türlü otomatik yazdıramadım.

3) "T_FATURA_AYRINTI" tablosundaki "KDVLIFIYAT" ı, ID numarasına göre toplatmak istiyorum. Yani Fatura Toplamı.

4) "S_FATURALAR_SORGU" sorgusunda ve "RAPORLAMA" formunda, sorgu sonuçlarında, adetleri ve KDV li fiyatları toplatamadım. Bunları formun altındaki kutulara yazdırmak istiyorum.

Bir de son olarak; "F_RAPORLAMA" formunda tarih filtresini seçerken, takvim görüntüsünden mouse ile seçilecek şekilde yapmamız mümkün mü? Ben uğraştım ama beceremedim.

Merhaba, 
Fatura Ayrıntısı Girişi (Komut432) butonunun tıklandığında olayındaki katıştırılmış makroyu sil, yerine olay yordamı olarak

If Nz(DCount("FATURA_IDFK", "T_FATURA_AYRINTI", "[FATURA_IDFK]= " & [Metin425]), 0) = 0 Then



    DoCmd.SetWarnings False

    DoCmd.RunSQL "INSERT INTO T_FATURA_AYRINTI (FATURA_IDFK) VALUES ('" & Me.Metin425 & "')"

    DoCmd.SetWarnings True



End If



    DoCmd.OpenForm "F_FATURA_AYRINTI", acNormal, , "[FATURA_IDFK]=" & [Metin425]

kodu ekle.

Diğer soruların için uygun konu başlığı ile yeni konu açarak sorunuzu sorunuz.

Ozan bey çok teşekkürler. yalnız "FATURA AYRINTI" formunda, "Kayıt Ekle" ile Faturaya yeni satır eklemek isteyince değer yine sıfır geliyor. Aynı kod o butonda da işe yarar mı?

F_FATURA_AYRINTI isimli formdaki Kayıt Ekle butonunun tıklandığında olayına

Dim GKayitNo As Integer



GKayitNo = Me.FATURA_IDFK



DoCmd.GoToRecord , , acNewRec



Me.FATURA_IDFK = GKayitNo

kodu ekle. KATIŞTIRILMIŞ MAKRO YERİNE HER ZAMAN OLAY YORDAMI KULLANMAYA ÇALIŞ

Ozan bey çok teşekkür ederim. Elinize sağlık.