26-03-20, 11:39 AM
اريد المساعدة فى تحويل كود لإضافة حسابات جديدة لشجرة مكتبة بطريقة أوتوماتيكية بناء على جدول المستويات حيث أن البرنامج عندى على أكسس 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