Alt Formda Bir Üst Satır Kontrol Etmek

aydın3838 · 11-07-2010, 10:25

Müşteri İsmi__Sıra__Tahsil Tarih__Aylık Tutar__Kalan Tutar__Tahsil Tarih__Alacağı___Ödeme Tür
Aydın________0____10.07.2010__500,00 TL__1.500,00 TL__10.07.2010__500,00 TL__NAKİT
Aydın________1____10.08.2010__300,00 TL______0,00 TL_______________0,00 TL__TAKSİT
Aydın________2____10.09.2010__300,00 TL______0,00 TL_______________0,00 TL__TAKSİT
Aydın________3____10.10.2010__300,00 TL______0,00 TL_______________0,00 TL__TAKSİT

Selam
Sorum Tahsilat Yapılacak Olan sıralamaya Göre Tahsil Formunu Açmak

Şekildeki liste Tahsilat Yapılması için Alt Formda Listelenmiş
Alt Formdaki Metinlere Çift Tıkladığımda Tahsil Formu Açılıyor Alacağı Bölümünde Sıfırdan Büyükse Uyarı Alabiliyorum

Kullanıcı 1.Sırada Tahsil Yapımamış 0,00 TL Değeri Var İse Kullanıcı 2.veya Başka Sıralamaya Tıkladığında Uyarı Verip Tahsil Formunu Açmaması
Saygılar

Taruz · 11-07-2010, 13:53

Merhaba..

Amaç Aydın'ın borcu yoksa form açılmasın mı? Biraz daha bilgi verir misiniz?

aydın3838 · 11-07-2010, 14:34

yukarıdaki tabloda SIRA 0,1,2,3 diye aylık olarak ödemeler sıralanmış

amaç veri sayfası görünümlü alt formda
tahsilat sırasına göre tahsil yapılması 1.sıradaki ALACAĞI alanı 0,00tl ise tahsilat sırası 1.sıradadır
ve kullanıcı programı kullanan herhangi biri 2.sıraya tıklarsa tahsil sırasının 1.sıra olduğunu nun bilgilendirilmesi

saygılar

Taruz · 11-07-2010, 15:00

Şimdi anladım.. Wink

Fakat bu şekilde net çözüm sunamam.. Tablo yapınızı, alanları görmemiz gerek.. Örneğiniz eklerseniz hemen bir öneride bulunabilirim.. Diğer türlü sadece yol gösterebilirm.. Şöyleki..:

Seçili kişinin alacağı sıfır olan kayıtlarından bir sorgu hazırlayın ve kayda tıkladığınızda tıkladığınız kayıttaki sıra ile bu sorgunun ilk kaydındaki sıra aynı değilse bahsettiğiniz uyarıyı verdirin.. Sorgudaki ilk kaydı dmin, dfirst veya dlookup ile alabilirsiniz.. (Bu fonksiyonlara şart vererek, sorgu kullanmadan da aynı işlem yapılabilir.)

aydın3838 · 11-07-2010, 15:36

sayın taruz bey bir kaç deneme yaptım olmadı

örneği ekledim

Taruz · 11-07-2010, 16:00

Sorgu kullanmadan kodunuza ilave yaptım..:

Visual Basic
'/// Bu kısmı ekledim Trz...
Dim ad As String
ad = Me.AdSoyAd
If DMin("TAKSİTSIRA", "Sorgu_Taksit_Haretleri", "AdSoyAd= '" & ad & "' and ALACAGI=0 ") <> Val([TAKSİT SIRA]) Then
MsgBox "Bundan önceki tarihli tahsiledilmemiş kaydı seçiniz!"
Else
'////////////
 
Form_ANA_FORM.TahsilOtomatik = Me.TahsilOtomatik
If Me.ödememiktarı > 0 Then
msg = MsgBox([TAHSİLATTARİH] & " Tarihli" & vbCr & [ALACAGI] & ",00 TL " & [ODEMETURU] _
& " Ödeme Yapılmış" & vbCr & "Alt Satırı seçin" _
& vbCr & "Düzeltmek İstiyorsanız Evet Tıklatın", vbInformation + vbYesNo, "")
If (msg = vbYes) Then
DoCmd.OpenForm "Tahsilat", acNormal, ", , acNormal"
Else
Cancel = True
End If
Else
DoCmd.OpenForm "Tahsilat", acNormal, ", , acNormal"
End If
End If

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[TABLO] Firmalardan Yapılacak Kesintileri Accesste Takip Etmek	loocas	1	257	02-02-2026, 01:43 Son Mesaj: dsezgin
	[SORGU] Row-number() Yada Satır Sayısı	kahramanselim	2	382	15-10-2024, 16:26 Son Mesaj: kahramanselim
	[RAPOR] Satır Aralarında Boşluk Olması	meceka	1	354	31-05-2024, 15:16 Son Mesaj: dsezgin
	Bir Belgenin Yazdırılmış Olması Durumunu Kontrol Etmek Hk?	adnnfrm	7	828	03-02-2024, 03:24 Son Mesaj: dsezgin
	Internet Bağlantı Kontrol	zilli	19	9.280	26-01-2024, 14:43 Son Mesaj: ates2014
	Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin.	ŞabanTR	11	997	24-12-2023, 14:38 Son Mesaj: dsezgin
	Access'e Yeni Tablo Oluşturarak Excel Import Etmek, Table'ı Sütunlara çevirmek...	İlhanYaylıcı	25	2.635	02-10-2023, 13:32 Son Mesaj: halily
	Excel Içindeki Tabloyu Access Vba Ile Refresh Etmek Hk.	adnnfrm	2	527	05-08-2023, 02:23 Son Mesaj: adnnfrm

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL