Merhaba atoz112,

Uygulamayı yabancı kaynaklardan aldığım şekli ektedir ve 2003 versiyonu uyumludur dolayısıyla 2007 de açabilirsiniz.

Ayrıca level 2 alanında hata veren yerin kodunu ekledim İnceleyebilirsiniz.

Private Sub cmdLv2MoveUp_Click()

    Dim rs1 As Recordset

    Dim CurSeq As Integer

    Dim strsql As String



    CurSeq = List2.Column(3)



    strsql = "select seq from menuıtems where Level=2 and subid=" & List1 & " order by seq"



    Set rs1 = CurrentDb.OpenRecordset(strsql)



    rs1.FindFirst "[seq] =" & CurSeq

    rs1.Edit

    rs1!seq = CurSeq - 1

    rs1.Update

    

    rs1.MovePrevious

            

            If Not rs1.BOF Then

                rs1.Edit

                rs1!seq = CurSeq

                rs1.Update

            Else

            rs1.MoveNext

                rs1.Edit

                rs1!seq = CurSeq

                rs1.Update

            MsgBox ("Already at top")

            End If

    rs1.Close



    Set rs1 = Nothing

    

    List2.Requery

End Sub

aşağıdaki satırı hatada işaretliyor.

Set rs1 = CurrentDb.OpenRecordset(strsql)

Selamlar,,