Sub KayitDolas(Optional xGez As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim str As String
Dim SSQL As String
' SSQL = "SELECT * FROM tbl_ornek"
Set db = CurrentDb
' Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)
Set rs = db.OpenRecordset("tbl_ornek", dbOpenTable, dbSeeChanges)
rs.MoveFirst
With rs
' Set the index.
.Index = "PrimaryKey"
If xGez = 0 Then
.MoveFirst
ElseIf xGez = 2 Then
.MoveLast
Else
If Len(Me.tid & "") = 0 Then GoTo Kapat
.Seek "=", Me.tid
.Move xGez
End If
If .BOF Or .EOF Then GoTo Kapat
End With
Me.tadi = rs.Fields("adi").Value
Me.tid = rs.Fields("id").Value
Kapat:
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
kodun kaba mantığı şu xGez değişkeni ile yordama yapacağı işlem bilgisi gönderiliyor
- xGez = -1 ise bir önceki kayda gider
- xGez = 1 ise bir sonraki kayda gider
- xGez = 0 ise bir ilk kayda gider
- xGez = 2 ise bir önceki kayda gider
mesela sonraki kayda gitme düğmesinin yordamı
Private Sub BtnSonra_Click()
KayitDolas 1
End Sub