Private Sub listehisse_AfterUpdate()
Call Suzgec
End Sub
 
Private Sub Metin215_afterupdate()
Call Suzgec
End Sub
 
Sub Suzgec()
Dim SQLa As String
SQLa = "SELECT TOP " & IIf(IsNull(Me.Metin215) Or Me.Metin215 = 0, DCount("*", "kademeler"), Me.Metin215) & " kademeler.id, kademeler.hisse_adi, kademeler.kademe, kademeler.satilacak_kademe, kademeler.alinacak_kademem, kademeler.lot_sayi, [kademe]+0.5 AS altdeg " & _
"FROM kademeler INNER JOIN talimat ON kademeler.hisse_adi = talimat.hisse_adi WHERE (((kademeler.hisse_adi) Like '*" & Me.listehisse.Column(1) & "')) ORDER BY kademeler.id DESC , kademeler.kademe DESC"
Me.Liste91.RowSource = SQLa
Me.Liste91.Requery
End Sub