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

Sn Saygın,

“OlusumKaynagi” Listesi
ID...........................KodTablosu..............................Tbl_Iletisim Alanadi

63 Oluşum Kaynağı Düğüncom ................ (Alan adı) KaynagiDüğüncom
64 Oluşum Kaynağı Müşteri Referans........ (Alan adı) KaynagiMüşteri
65 Oluşum Kaynağı Tanıdık Referansı........ (Alan adı) KaynagiTanıdık
66 Oluşum Kaynağı Firma Referansı.......... (Alan adı) KaynagiFirma
67 Oluşum Kaynağı Organizasyon Firması.. (Alan adı) KaynagiOrganizasyon
68 Oluşum Kaynağı İşletmeyi Görerek........ (Alan adı)Kaynagiİşletmeyi
69 Oluşum Kaynağı Web Sitesi
70 Oluşum Kaynağı İnstagram
71 Oluşum Kaynağı Facebook
72 Oluşum Kaynağı Twitter
73 Oluşum Kaynağı Youtube
74 Oluşum Kaynağı Diğer
75 Oluşum Kaynağı Reklam

Birlesik kutu Durum nesnesi olan form dusunup, OlusumAciklama adinda metin kutumuzu hayal edelim..
OlusumAciklama ilk etapta iliskisiz metin kutusu pozisyonunda iken, durum alani guncellemesi ile durum metin kutusuna odaklanip, bosluga kadar olan alani split komutu ile alinmasi sonrasi tbl_Iletisim tablosunda Kaynagi + bosluga kadar alinan kelimenin birlestirilmesi ile OlusumAciklama'ya ait kontrol kaynagi(ControlSource) atamasi yapilmasi ile Tbl_Iletisim durum alani statusu ile eslesen sutuna baglanmasi saglanir.
Formu SQL'inde olmayan alan atamasi, OlusumAciklama alaninda #Name? hatasi verilmesini kontrol edilmesiyle bu nesnenin gizlenmesi saglanmistir.
GizleGoster yontemi birden fazla alan kontrolu ile kod yazilmasi gerekiyor, bu yontemle sadece yeni kayit esnasinda alan gizlemesi yapilmakta.
Yontemde dikkat edilmesi gereken kod tablosunda durum adinin bosluga kadar olan tanimlama kelimesi ile Tbl_Iletisim Kaynagi.... sonuna ekleyerek sutun olusturmak gerekiyor.
Daha onceden olusturulmamis alani tanimlama ile form kodlari ile oynamadan form uzerinde gosterimi saglanmis olabilir.
Bos form SQL'i tanimlamasi ile metin kutusu olusturun ve metin.controlsource="Olan veya Olmayan" alan ismi ile atamayi deneyebilirsiniz. Olan iki alan ismi ile atama ile veri girildiginde ilgili alanlara verilerin tahsis edildigini goreceksiniz.

Visual Basic

'Durumu Güncelleþtirme Sonrasinda
Private Sub OlusumKaynagi_AfterUpdate()
Me.OlusumAciklama.Visible = True    '***Goster****
Dim Alan, Isr As String, Status As Long
Status = Nz(Me.OlusumKaynagi, 0)    '***OlusumStatusuAl*****
'****Tbl_Iletisim Alan Adi Ne Oldugunu Bul
Alan = "Kaynagi" & Split(Nz(DLookup("Kodu", "Kodlar", "KodNumarasi=" & Status), "x"), " ")(0) 
Me.OlusumAciklama.ControlSource = Alan '***Form SQL'inden metin kutusuna referans verme*****
Me.EtikOlum.Caption = Alan '**Etikete Baslik atama****
'****SQl de Alan yok ise HATA'yi alma ****
With Me.OlusumAciklama
    .SetFocus
    Isr = .Text
    Me.OlusumKaynagi.SetFocus
End With
 '***Hata durumunda gizle****
Me.OlusumAciklama.Visible = IIf(Isr = "#Name?" Or IsNull(Me.OlusumKaynagi), False, True)
End Sub