Option Explicit
Dim WithEvents rsDatEnv As Recordset

Private Sub Form_Load()
    Set rsDatEnv = datPartner.rscmdPartner
End Sub

Private Sub cmdElso_Click()
    rsDatEnv.MoveFirst
End Sub

Private Sub cmdElozo_Click()
    rsDatEnv.MovePrevious
    If rsDatEnv.BOF Then
        Beep
        rsDatEnv.MoveFirst
    End If
End Sub

Private Sub cmdKovetkezo_Click()
    rsDatEnv.MoveNext
    If rsDatEnv.EOF Then
        Beep
        rsDatEnv.MoveLast
    End If
End Sub

Private Sub cmdUtolso_Click()
    rsDatEnv.MoveLast
End Sub

Private Sub cmdVissza_Click()
    Dim RekMutMent As Variant
    
    RekMutMent = rsDatEnv.Bookmark
    rsDatEnv.CancelUpdate
    rsDatEnv.Bookmark = RekMutMent
 End Sub

Private Sub cmdMentes_Click()
    rsDatEnv.Update
End Sub

Private Sub cmdUj_Click()
    rsDatEnv.MoveLast
    rsDatEnv.AddNew
End Sub

Private Sub cmdTorles_Click()
    rsDatEnv.Delete
    rsDatEnv.MoveNext
    If rsDatEnv.EOF Then rsDatEnv.MoveLast
End Sub
