Form Ve Alt Forma Otomatik Id Numarası Tanımlama

26/04/2020, 11:30

enginceken

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.
26/04/2020, 14:40

ozanakkaya

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.
26/04/2020, 16:10

enginceken

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ı?
26/04/2020, 16:52

ozanakkaya

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Ş
26/04/2020, 17:08

enginceken

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