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,,