AccessTr.neT

Private Sub isyeri1_Change()

    Me.isgecmis = Nz(Me.isyeri1.text, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub iskolu1_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1.text, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub yapis1_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1.text, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isgirtar1_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1.text, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isciktar1_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1.text, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isyeri2_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2.text, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub iskolu2_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2.text, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub yapis2_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2.text, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isgirtar2_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2.text, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isciktar2_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2.text, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isyeri3_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3.text, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub iskolu3_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3.text, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub yapis3_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3.text, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isgirtar3_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3.text, ".") & "|" & Nz(Me.isciktar3, ".")

End Sub



Private Sub isciktar3_Change()

    Me.isgecmis = Nz(Me.isyeri1, ".") & "|" & Nz(Me.iskolu1, ".") & "|" & Nz(Me.yapis1, ".") & "|" & Nz(Me.isgirtar1, ".") & "|" & Nz(Me.isciktar1, ".") _

     & "|" & Nz(Me.isyeri2, ".") & "|" & Nz(Me.iskolu2, ".") & "|" & Nz(Me.yapis2, ".") & "|" & Nz(Me.isgirtar2, ".") & "|" & Nz(Me.isciktar2, ".") _

     & "|" & Nz(Me.isyeri3, ".") & "|" & Nz(Me.iskolu3, ".") & "|" & Nz(Me.yapis3, ".") & "|" & Nz(Me.isgirtar3, ".") & "|" & Nz(Me.isciktar3.text, ".")

End Sub

bu kod ile tek bir alana kısa kısa bilgilerin olduğu 15 adet metin kutusu içeriğini yazdırıyorum
böyle  yapmasam Form_BeforeUpdate olayında Me.isgecmis kutusunun değerini güncel şekilde alamıyorum
dikkat ettiyseniz her kutunun text özelliği için o kutuda olmam gerekiyor bu yüzden tek bir fonksiyon içine değer gönderip 15 adet yazmak yerine tek bir fonksiyon yazamıyorum. belki de ben yapamıyorum.
text özelliğini kullanmasam o zamanda metin kutusunun change olayını kullanamıyorum 
böyle bir çıkmaz içinde çıkış yolu olarak bunu uzun yoldan yapmak zorunda kaldım

bunu kısa yoldan nasıl çözebilirdim
hem text özelliğini kullanacağım 
hem change olayını kullanacağım
hem Form_BeforeUpdate olayını kullanacağım

Isgecmis değeri hangi aşamada kullaniliyor

Form_BeforeUpdate olayında 
15 kutunun içini tek kutuda birleştiriyorum
bu tek kutunun içeriğinin değişmesi beforeupdate olayını tetkliyor
şimdilik bu kod kalabalığı çözümü sağlıyor ama daha kolay yolu olsa gerek diye düşünüyorum
diyelimki anket yapıyoruz ve bir sürü checkbox var bunların değerini tek kutuda birleştirsek her kutu için bu kodu yazmak gerekecek

Keşke örnek bir dosya atsaydınız. Böyle anlaması zor oluyor. Kendimi örneğinizin içinde bulmam  lazım.

örnek ekliyorum
ne demek istediğim umarım anlaşılmıştır 
bir fonksiyon gibi bir şey yazayım yüzlerce metin kutusunun change olayını çok kısa bir şekilde halledeyim

öncelikle değiştiğinde çalışmasını istediğiniz metin kutularının IM/Tag özelliğine degistiginde yazın sonrada form load /form yüklendiğindeolayına aşağıdaki kodu ekleyin

Dim ctl As Control

    For Each ctl In Me

        If ctl.Tag = "degistiginde" Then

            ctl.OnChange = "=Degisti([" & ctl.Name & "])"

        End If

    Next ctl

sonrada ilgili forma aşağıdaki fonksiyonu ekleyin

Public Function Degisti(ByRef ctl As Control)

Dim ctl2 As Control

Me.Metin0 = ""

    For Each ctl2 In Me

        If ctl2.Tag = "degistiginde" Then

            If ctl2.Name = ActiveControl.Name Then _

               Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl2.Text))) = 0, ".", Trim(ctl2.Text)) Else _

               Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl2), ".")

        End If

        

    Next ctl2

Me.Metin0 = Mid(Me.Metin0, 2)



End Function

metin0 değerini isgecmis ile değiştirin