[freehego]

اريد المساعدة فى تحويل كود لإضافة حسابات جديدة لشجرة مكتبة بطريقة أوتوماتيكية بناء على جدول المستويات حيث أن البرنامج عندى على أكسس 2010 ويعمل بكفائة ولكن أريد تحويله إلى لغة الفيجوال بيسك دوت نت

كود :

Private Sub cmdactivate_Click()
On Error Resume Next
   Me.SVE.Enabled = True
   Me.cmd_undo.Enabled = True
   Me.EXI.Enabled = False
   mod_button
 Static myl(9) As Integer
 Dim mylen, myclen, mylevel, i As Integer
 Dim myac1, myac2 As String
  myl(1) = DLookup("[L1]", "Chart")
  myl(2) = DLookup("[L2]", "Chart")
  myl(3) = DLookup("[L3]", "Chart")
  myl(4) = DLookup("[L4]", "Chart")
  myl(5) = DLookup("[L5]", "Chart")
  myl(6) = DLookup("[L6]", "Chart")
  myl(7) = DLookup("[L7]", "Chart")
  myl(8) = DLookup("[L8]", "Chart")
  myl(9) = DLookup("[L9]", "Chart")
  myac1 = Me.Bok_No_
  mylen = Len(myac1)
  myclen = 0
  mylevel = 0
    For i = 1 To 9
      myclen = myclen + myl(i)
      If myclen >= mylen Then
       mylevel = i
       myclen = myclen - myl(i)
       myac2 = Left$(myac1, myclen)
       Exit For
      End If
    Next i
'-----------------------------'
   If Len(myac1) <= Len(myl(1)) Then
   Bok_No = DMax("Bok_No", "Books", "IsPrim = True") + 10
   Me.BokLevel = mylevel
   End If
   Me.father_no = myac2
   Me.father_name = Trim(DLookup("[Bok_Name]", "Books", "[Bok_No]=" & myac2))
   Me.father_eng = Trim(DLookup("[Bok_Name_Eng]", "Books", "[Bok_No]=" & myac2))
   If Len(myac1) > Len(myl(1)) Then
   Bok_No = DMax("Bok_No", "Books", "father_no = " & Me.father_no_) + 1
   Me.BokLevel = mylevel
   Me.father_name = Trim(DLookup("[Bok_Name]", "Books", "[Bok_No]=" & myac2))
   Me.father_eng = Trim(DLookup("[Bok_Name_Eng]", "Books", "[Bok_No]=" & myac2))
   End If
   Me.Bok_No.SetFocus
End Sub