تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تحويل كود VBA إلى لغة الفيجوال بيسك دوت نت
#1
اريد المساعدة فى تحويل كود لإضافة حسابات جديدة لشجرة مكتبة بطريقة أوتوماتيكية بناء على جدول المستويات حيث أن البرنامج عندى على أكسس 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
الرد
تم الشكر بواسطة:
#2
أرجو المساعدة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تحويل النص الى صوت mne3000 5 105 , 05:19 PM
آخر رد: ابو روضة
  [VB.NET] ممكن مساعدتي في اكمال مشروعي في فيجوال بيسك hothif 2 296 23-03-20, 11:13 PM
آخر رد: IBRA99000
  [VB.NET] اضافة سكربت في مشروع فيجوال بيسك Alaamakkawi 1 73 22-03-20, 05:40 AM
آخر رد: alshandodi
  [VB.NET] ممكن سيريال تفعيل فيجوال بيسك 2010 bakriano30@yahoo.com 4 1,422 20-03-20, 04:34 PM
آخر رد: hamadz
  تحويل قاعدة اكسس الي سكول atefkhalf2004 1 88 16-03-20, 01:42 PM
آخر رد: عبد العزيز البسكري
  ممكن تحويل هذا الكود ال .net mohamedahmed1 3 174 14-03-20, 08:42 PM
آخر رد: Re9x
  هل يوجد في معرض القصيم للكتاب كتب فيجوال بيسك؟ nowiglah 2 91 09-03-20, 01:14 PM
آخر رد: alsalamoni
  هل من مساعد في تحويل من فيجوال 6 الى الدوت نت ؟ samira20 2 111 29-02-20, 07:47 AM
آخر رد: samira20
  [VB.NET] ممكن التعديل على المثال بتبديل أدوات ديف اكسبريس إلى أدوات فيجوال بيسك rfhdgd 3 143 24-02-20, 03:06 AM
آخر رد: alsalamoni
  فيجوال بيسك 2010 المبرمج العبقري 5 2,470 21-02-20, 10:47 PM
آخر رد: مستر فرفوش

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم