ضرورى لا افهم هذا الكود

ياريت شرح لهذا الكود

''------------------------------

'عمل ايقاف للبرنامج بعد عملية فتحه لاكثر من 200 مرة

'Dim period_new As Single

'Dim period_old As Single

'

'strSQL = " select inf1,inf3 from MSysinf23"

'

'rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'

'rst.MoveFirst

'period_old = rst.Fields(0)

'

'period_new = period_old + 1

'rst!inf1 = period_new

'rst!inf3 = Me.txtSerialNo.Value

'rst.Update

'rst.Close

'

' DoCmd.SetWarnings False

' If period_new > 0 Then

' ' التاكد من عدد مرات فتح البرنامج

'uu:

' ' التأكد من مطابقة رقم القرص الصلب مع رقم التسجيل

' If IsNull([txtSerialNo]) Or ([txtSerialNo]) = "" Then

' Msg = "رقم الترخيص غير صحيح اتصل بمصمم البرنامج للحصول على رقم الترخيص النهائى مقابل تبرع للايتام "

' Style = vbOKOnly

' Title = " النظام المالى و التجارى" ' Define title.

' Response = MsgBox(Msg, Style, Title, Help, Ctxt)

' Me.txtSerialNo.Enabled = True

' Me.txtSerialNo.Locked = False

' Me.txtSerialNo.SetFocus

'

' Resume uu

'

'

' End If

'

' '===============================

' ' معرفة رقم الهارد

' Dim Srl As String

' Set fs = CreateObject("Scripting.FileSystemObject")

' Set h = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName ("c:")))

'

' Me.HardiskSerial.Value = h.SerialNumber

'

' Dim HDD_NO As Double

'

' HDD_NO = ((h.SerialNumber - 1457) + 7541)

'

' If HDD_NO = Val(Me.txtSerialNo) Then

'

' Set fs = CreateObject("Scripting.FileSystemObject")

'

' If fs.FolderExists("C:\WINDOWS\Toktok23") = False Then

' MkDir "C:\WINDOWS\Toktok23"

' End If

' Me.txtSerialNo.Enabled = False

' Me.txtSerialNo.Locked = True

'

' Else

' Set fs = CreateObject("Scripting.FileSystemObject")

'

' If fs.FolderExists("C:\WINDOWS\Toktok23") = True Then

' Me.txtSerialNo.Enabled = False

' Me.txtSerialNo.Locked = True

' Else

' Msg = "رقم الترخيص غير صحيح اتصل بمصمم البرنامج للحصول على رقم الترخيص النهائى مقابل تبرع للايتام "

' Style = vbOKOnly

' Title = " النظام المالى و التجارى" ' Define title.

' Response = MsgBox(Msg, Style, Title, Help, Ctxt)

' Me.txtSerialNo.Enabled = True

' Me.txtSerialNo.Locked = False

' Me.txtSerialNo.SetFocus

'

' Resume uu

'

' End If

'

'

'

' End If

'

' End If

DoCmd.Close

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "frm_program_form"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmd_inter_Click:

Exit Sub

Err_cmd_inter_Click:

اريد من الخبراء ان يشرحوا لى هذا الكود

وكمان ياريت ازاى الغى الكود الخاص باغلاق البرنامج بعدد مرات فتحه

هل الخبراء اختفوا ام لا احد يريد الافادة للغير

انا اسف لاسلوبى

لكن 32 مشاهدة بدون رد او اجابة على سؤالى شئ محزن لى