Kod:
Function sıra(ByVal CustomerID As Variant, ByVal RecordID As Variant) As Double
Dim sıram As String
Dim Qst1 As String
Dim rst As DAO.Recordset
sıram = 0
If CustomerID > 0 And RecordID > 0 Then
Else
GoTo ExitPoint
End If
Qst1 = "Select * From taksit " & _
" Where musid = " & CustomerID & _
" Order By tarih, takid;"
Set rst = CurrentDb.OpenRecordset(Qst1)
If rst.EOF And rst.BOF Then
GoTo ExitPoint
End If
rst.FindFirst "takid = " & RecordID
If rst.NoMatch Then
GoTo ExitPoint
End If
Do While Not rst.BOF
sıram = sıram + 1
rst.MovePrevious
Loop
ExitPoint:
On Error Resume Next
sıra = sıram
rst.Close
Set rst = Nothing
On Error GoTo 0
End Function
örneğin ekte
not :taksit koduda yürüyen bakiye koduda bana aittir. Buna birde sıralam kodunu eklemiş oldum sayende teşekkürler böyle bir soru sorduğun için