Skip to main content

AccessTr.neT


Form Ve Alt Forma Otomatik Id Numarası Tanımlama

Form Ve Alt Forma Otomatik Id Numarası Tanımlama

Çözüldü #1
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.
.rar DELTA_ANTALYA_TAKİP_YENİ3.rar (Dosya Boyutu: 85,62 KB | İndirme Sayısı: 3)
Cevapla
#2
Merhaba, 
Fatura Ayrıntısı Girişi (Komut432) butonunun tıklandığında olayındaki katıştırılmış makroyu sil, yerine olay yordamı olarak

Visual Basic Code
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
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ı?
Cevapla
#4
F_FATURA_AYRINTI isimli formdaki Kayıt Ekle butonunun tıklandığında olayına

Visual Basic Code
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Ş

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
Ozan bey çok teşekkür ederim. Elinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da