Nesne Gizle Göster Eylemi.

kamil_55 · 25-12-2021, 20:26

(03-10-2018, 16:55)dsezgin demiş ki: Sn Saygın;

Amatorce baslamis oldugunuz uygulama, profesyonel isler icin kullanilma amaci uygulama tablo ve iliski yapilandirmalarinin iyi yapilmasi, sonraki islemler icin daha verimli olacaktir.
Access uygulamalari, tekrar eden veri ile etmeyecek olani gruplama ile daha verimli sonuclar alabilirsiniz.
Yaptiginiz isin tum senaryosunu en iyi siz biliyorsunuz, access bilgisinin aktarimi adina oneride bulunmustum.

Tahmini oneriler;
1. İLETİŞİM tablosunda kac gorusme verisi ayri tablo olabilir.
2. KASA tablosunda sozlesmeno olmali.

GTBGK Biten İletişim =DCount("*";"tbliletisim";"iletisimdurumu='İletişim Bitti'")
GTBGK Sözleşme Yapılan İletişim =DCount("*";"tbliletisim";"iletisimdurumu='Sözleşme Yapıldı'")
GTBGK HAlen Bekleyen İletişim =DCount("*";"tbliletisim";"isnull(iletisimdurumu)")
Visual Basic
private sub form_current() me.sozlesmeno.visible=iif(me.iletisimdurumu="Sözleşme Yapıldı",-1,0) end sub

sn.dsezgin hocam, gizle göster konusu geçtiğinden bu konuya istinaden talebimiz olacak,
vagon_arac_takip_formu'muzda sevk durumu açılan kutumuz verileri daha önce "değer listesi" nden oluşmaktaydı ve değişimine göre aşağıdaki kodu uyguladığımızda sevk_tarihi ve varış_tarihi metin kutuları gizle/göster çalışıyordu.

Private Sub sevk_durumu_AfterUpdate()

If Me.sevk_durumu = "VARIŞ DOLU" Then
Me.varis_tarihi.Visible = True
Else
Me.varis_tarihi.Visible = False

If Me.sevk_durumu = "VARIŞ BOŞ" Then
Me.varis_tarihi.Visible = True
Else
Me.varis_tarihi.Visible = False

If Me.sevk_durumu = "SEVK" Then
Me.sevk_tarihi.Visible = True
Else
Me.sevk_tarihi.Visible = False

End If
End If
End If

End Sub

fakat, sevk_durumu açılan kutumuz artık verilerini tbl_sevk tablosundan alıyor ve aynı kodu uyguladığımızda gizle/göster çalışmıyor, burada farklı bir kod mu kullanmamız gerekir. teşekkürler.

dsezgin · 25-12-2021, 20:48

If Me.sevk_durumu = "VARIŞ DOLU" Then satirini If Me.sevk_durumu.Column(1) = "VARIŞ DOLU" Then

Açılan kutu ilişkili sütun 1 satır kaynağı SQL'inde karşılaştırmayı ikinci sütun ile yapıldığından column(1) olarak veri çekilip eşitleme kontrolü yapılmalı.

kamil_55 · 25-12-2021, 21:24

sn.dsezgin hocam, evet tahmin etmeliydim, çok teşekkürler çalıştı. bu konuyla ilgili son olarak, bu yordama mesaj verdirebilir miyiz kullanıcıya? örneğin "VARIŞ DOLU" seçildiğinde lütfen varış tarihi giriniz gibi.

dsezgin · 25-12-2021, 23:18

OPERASYON BİLGİ SİTEMİ_Backup.rar (Boyut: 1,22 MB / İndirilme: 26)

sevk veya varış tarihleri için tek metin kutusu yeterli, sevk durumu güncellemesi ile tabloda yazılacak sütunu seçilebilir.

kamil_55 · **Kayıt Tarihi:** 15.04.2020

Evet böyle daha güzel olmuş elinize sağlık.

kaydettikten sonra tarih alanında tarih yerine 44555 şeklinde bir rakam kalıyor sizde de oldumu acaba?

dsezgin · 26-12-2021, 00:47

(26-12-2021, 00:04)kamil_55 demiş ki: kaydettikten sonra tarih alanında tarih yerine 44555 şeklinde bir rakam kalıyor sizde de oldumu acaba?

Visual Basic
Private Sub sevk_durumu_AfterUpdate()
Me.durum_tarihi.ControlSource = IIf(Eval(Nz(Me.sevk_durumu, 0) & " IN(3, 4)"), "varis_tarihi", IIf(Nz(Me.sevk_durumu, 0) = 2, "sevk_tarihi", vbNullString))
If Me.durum_tarihi = "" Or IsNull(Me.durum_tarihi) Then
    Me.durum_tarihi.Format = "@;[Red]" & IIf(Eval(Nz(Me.sevk_durumu, 0) & " IN(3, 4)"), "Varýþ", IIf(Nz(Me.sevk_durumu, 0) = 2, "Sevk", "-")) & " Tarihini Giriniz!"
Else
    Me.durum_tarihi.Format = "Short Date"
End If
Me.durum_Etiket.Caption = IIf(Eval(Nz(Me.sevk_durumu, 0) & " IN(3, 4)"), "varis_tarihi", IIf(Nz(Me.sevk_durumu, 0) = 2, "sevk_tarihi", "-"))
End Sub

Prosedürü yukarıdaki gibi değiştirin.

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Nesne Tanımlamada Sub Or Function Not Defined Hatası	tarkanaykın	5	198	14-03-2022, 03:10 Son Mesaj: tarkanaykın
	Accessda Adı Soyadı Ve Time Ve Tarih Alanım Da Ilk Girileni Göster	ahmet114	7	515	15-07-2021, 22:20 Son Mesaj: ahmet114
	[VBA] Sürekli Form Label Göster/gizle	benuva	2	374	27-01-2021, 15:40 Son Mesaj: benuva
	[SORGU] Ilişkisiz Nesne Biçimlendirme	ÜmitSamlı	12	861	21-05-2020, 14:02 Son Mesaj: ÜmitSamlı
	Nesne ile Arac Bolumu	dalyan	3	494	10-09-2019, 20:45 Son Mesaj: onur_can
	[SORGU] Sadece yazıları göster	ErkanE	1	472	04-01-2019, 16:51 Son Mesaj: Taruz
	[VBA] Access Nesne Tasarımı	asoha	3	803	14-10-2018, 19:55 Son Mesaj: dsezgin
	[SORGU] Alan değerleri "boş" olanları sorguda göster	sadikcoskun	2	1.089	01-01-2018, 23:04 Son Mesaj: sadikcoskun

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL