Private Sub Timer5_Timer()
Dim a As Integer
On Local Error Resume Next
'Adodc3.RecordSource = "select * FROM AIRS "
'Adodc3.Refresh
Adodc3.Recordset.Filter = adFilterNone
Adodc3.Refresh
Adodc3.Recordset.Filter = "NO LIKE '" & Text7 & "%'"
If (Adodc3.Recordset.RecordCount 0) Then
Adodc3.Recordset.MoveLast
With MSFlexGrid1
For a = 1 To Text2
Adodc3.Recordset.AbsolutePosition = a
.TextMatrix(1, a) = Adodc3.Recordset.Fields("ALAN1")
.TextMatrix(2, a) = Adodc3.Recordset.Fields("ALAN2")
.TextMatrix(3, a) = Adodc3.Recordset.Fields("ALAN3")
.TextMatrix(4, a) = Adodc3.Recordset.Fields("ALAN4")
.TextMatrix(5, a) = Adodc3.Recordset.Fields("ALAN5")
.TextMatrix(6, a) = Adodc3.Recordset.Fields("ALAN6")
.TextMatrix(7, a) = Adodc3.Recordset.Fields("ALAN7")
.TextMatrix(8, a) = Adodc3.Recordset.Fields("ALAN8")
.TextMatrix(9, a) = Adodc3.Recordset.Fields("ALAN9")
.TextMatrix(10, a) = Adodc3.Recordset.Fields("ALAN10")
.TextMatrix(11, a) = Adodc3.Recordset.Fields("ALAN11")
.TextMatrix(12, a) = Adodc3.Recordset.Fields("ALAN12")
.TextMatrix(13, a) = Adodc3.Recordset.Fields("ALAN13")
.TextMatrix(14, a) = Adodc3.Recordset.Fields("ALAN14")
.TextMatrix(15, a) = Adodc3.Recordset.Fields("ALAN15")
.TextMatrix(16, a) = Adodc3.Recordset.Fields("ALAN16")
.TextMatrix(17, a) = Adodc3.Recordset.Fields("ALAN17")
.TextMatrix(18, a) = Adodc3.Recordset.Fields("ALAN18")
.TextMatrix(19, a) = Adodc3.Recordset.Fields("ALAN19")
.TextMatrix(20, a) = Adodc3.Recordset.Fields("ALAN20")
Next a
End With
End If
Timer5.Enabled = False
End Sub
VERI TABANINDA ENSON KAYITA GİDEMIYORUM NEDEN?KOMUTU KULLANMAMA RAĞMEN
__________________