Organizasyon Takip Otomasyonu (Düğün, Nişan, Etkinlik vb.)

dsezgin · 04-12-2018, 12:16

Paket sutun ozelligi birden fazla grup olusturabilir veya cikarabilirsiniz.
Yukleme dugmesi ile paket metin kutusundan birden fazla liste secip, listeye katalogtan kayit ekleyebilirsiniz.
Zorunlu alanla ilgli ne planliyorsaniz uygulayin.
Tablolarda x, ek, bos gibi kayitlar niye olusturdugunuzu anlamadim, acilan kutu veri secmede sorun olur diye dusundum.

Saygın · **Kayıt Tarihi:** 08.01.2018

Sn dsezgin

Sezgin Hocam;
Tek kelime ile muhteşem oldu çok ama çok teşekkür ederim Allah razı olsun.

Şimdi bir iki gün KATALOG listemi bir düzene sokmalıyım yoksa her şey iyice karışacak dediğiniz gibi x ve boş gibi alanları da düzelteceğim.

Hocam basit ama sürekli karşıma çıkan bir problemim var! (bunun kodlama mantığını anlamak istiyorum)
Misal;
1- Sozleşme formumda "EtkinlikTipi" listesinde yaptığım seçim, form üzerinde açacağım başka bir örneğin "Txt_EtkinlikTipi" metin kutusuna otomatikmen gelsin demek için ben metin kutusunun içine =([EtkinlikTipi]) şeklinde kodluyorum ama doğal olarak sadece kod numarası çıkıyor çünkü asıl bilgi kaynağını belirtmemiş oluyorum.
(bunu nasıl kodlamalıyım "EtkinlikTipi" "GrupID" si 2)

dsezgin · 06-12-2018, 15:20

=Dlookup("Kodu";"KODLAR";"KodNumarasi=" & [EtkinlikTipi])

kullanabilirsiniz.

Saygın · **Kayıt Tarihi:** 08.01.2018

Sn dsezgin

Sezgin Hocam Allah razı olsun sizden çok çok teşekkür ederim harika bir sözleşme formum oluyor, şu anda katalog bilgilerini ve kategorilerini girmeye çalışıyorum.

Hocam zorlandığım hususlardan biriside doldurulması gereken zorunlu alanlar.! Misal Kaydet butonunun fare tuşu bırakılırken özelliğine If IsNull (EtkinlikTarihi Or IsNull diye 15 alan adını yazıyorum.
Sonra Aynı şeyleri kapat butonuna True ya – False yap derken 50-60 satır kod yazmak zorunda kalıyorum birazda karmaşık oluyor. eminin bunun çok pratik bir yöntemi vardır.
Bir hocamızdan gördüğüm bir yöntemi kopya çekerek uyguladım ama hata verdi !

Misal;
Zorunlu olması gereken metin kutularını seçiyorum + Diğer sekmesinden İm alanına “Im_Zorunlular” diye gruplandırıyorum + VBA da aşağıdaki gibi kodluyorum ama çalıştıramıyorum.

Visual Basic
Private Sub Btn_ZorunluAlanlar_Click()
For Each BosGecilmez In Me
If BosGecilmez.Tag = "Im_Zorunlular" Then
BosGecilmez .BackColor = vbRed
End If
Next BosGecilmez
End Sub

Sorum şöyle Sezgin hocam;
1 - Seçtiğim zorunlu alanları gerek “yeni” gerekse “Kaydet veya “Kapat” gibi gerek gördüğüm butonlarda kodlamak istiyorum.
2 – kaydet dediğimde 15 adet metin kutusu içerisinde zorunlu olupta boş olan metin kutularının zemin rengini kırmızı yapsın ve ilk boş olan metin kutusuna imleç odaklansın ve alan doldurulduğunda zemin rengi rekrar eski haline gelsin demek istiyorum?

dsezgin · 09-12-2018, 01:22

Visual Basic
Private Sub Btn_ZorunluAlanlar_Click()
call BosKontrol(1) veya (2)
end sub

Visual Basic
Sub BosKontrol(Nerden As Long)
Dim BosGecilmez as control
For Each BosGecilmez In Me.controls
    If BosGecilmez.Tag = iif(Nerden=1, "Im_Zorunlular", iif(Nerden=2, "SozlesmeDüzenleyen", "W")) Then
         me.controls(BosGecilmez.name).BackColor = iif (me.controls(BosGecilmez.name)="", vbRed, vbWhite)
           MsgBox "Kırmızı alanları boş bırakamazsınız"
    End If
Next BosGecilmez
End Sub

Kontrol edilmesini istediginiz metin kutusu Im(Tag) bolumune Im_Zorunlular, SozlesmeDüzenleyenyazmalisiniz.

Saygın · 09-12-2018, 11:06

sn dsezgin

Sezgin hocam, yukarıdaki kodları uyguladım çalışıyor ama,

Tam olarak uygulamak istediğim şey şöyle;
"Btn_YeniSozlesme" butonuna basarak yeni bir sıra numarası ürettikten sonra,
"Btn_Kaydet" butonuna bastığımda eğer "Im_Zorunlular" olarak seçtiğim alanlardan boş olanlar var ise zemini kırmızı olsun ve Msage Box "Kırmızı alanları boş bırakamazsınız" desin

(Yukarıda yaptığım "Im_Zorunlular" olarak seçtiğim alanlardan sadece bir alanın zeminini kırmızı yapıyor. ben bir şeyleri eksik mi kodluyorum acaba.
misal; herhangi bir yerde If IsNull (x) Or IsNull(x) vs. Then gibi bir kodlama yapacak mıyım ? tam olarak nasıl bir sıralama takip etmeliyim sezgin hocam

Ayrıca yeni kayıt yapmaktan vazgeçilmesi durumunda eğer yanlışlıkla açıldı ise ID nin silinmemesi için yeni kayıt butonuna bastığımızda görünür olan ikinci bir "BosKaydet" butonum var o butonun zorunlu alanı ise sadece "SozlesmeDüzenleyen" kutusu

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FORM] personel takip-puantaj-stok takip personel kartı açılmıyor	mustafa.sogutlu	5	2.952	27-12-2022, 14:33 Son Mesaj: metınaycıcek
	[TABLO] Kütüphane Süreli Yayın Otomasyonu	Murat007	1	483	13-10-2020, 01:13 Son Mesaj: Murat007
	Organizasyon Takip Otomasyonu (Cari Takip)	Saygın	130	11.217	29-08-2020, 09:30 Son Mesaj: halily
	[RAPOR] Nakliye Otomasyonu	yurterkan	9	4.659	05-10-2018, 18:32 Son Mesaj: dsezgin
	İNŞAAT ŞİRKETİ OTOMASYONU	ahmet1629	2	1.423	22-12-2017, 21:10 Son Mesaj: evren89
	[TABLO] organizasyon otomasyonu	sedefkilic	1	1.691	24-07-2017, 00:25 Son Mesaj: dsezgin
	[SORGU] Yurt otomasyonu	zeynepp23	1	1.701	16-05-2017, 15:10 Son Mesaj: onur_can
	Bilet Takip Otomasyonu	clarnet40	2	2.365	01-02-2017, 22:39 Son Mesaj: EminA

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL