07/01/2013, 23:00
after update olayını bu şekilde düzenlemeniz lazım.
combo olmasın dediğiniz için metin kutusuna çevirmiştim onu.
Private Sub Metin12_AfterUpdate()
Dim demiral As Integer, ilktarih As Date
ilktarih = Nz(Me.Metin12)
demiral = Nz(Me.Metin14)
Me.Metin16 = ilktarih + demiral
Me.List2.Requery
End Sub
combo olmasın dediğiniz için metin kutusuna çevirmiştim onu.
Private Sub Metin12_AfterUpdate()
Dim demiral As Integer, ilktarih As Date
ilktarih = Nz(Me.Metin12)
demiral = Nz(Me.Metin14)
Me.Metin16 = ilktarih + demiral
Me.List2.Requery
End Sub