شرح كود بحث

محمد السلامونى كتب:

السلام عليكم ورحمة الله وبركاته

 

لو سمحت ممكن اعرف شرح هذا الكود ضرورى 

 stDocName = ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1581) & ChrW(1579

 هذا الكود موجود فى برامج متعددة مع اختلاف الارقام

وهذا مثال موجود بالمنتدى موجود بالمرفقات وشكرا

وكذلك أريد شرح هذا الكود ( موجود فى موديول)

اقتباس

 

Public Sub setbypass(boobypass As Boolean)

  Dim cn As Database

  Dim prpNew As Property

  '

  On Error GoTo error_setbypass

  Set dbs = CurrentDb

  X = "AllowBypassKey"

  Y = boobypass

  dbs.Properties!AllowBypassKey = boobypass

exit_setbypass:

  Exit Sub

error_setbypass:

  If Err = 3270 Then

     Set prp = dbs.CreateProperty(X)

     prp.Type = dbBoolean

     prp.Value = Y

     dbs.Properties.Append prp

     Resume Next

   Else

     MsgBox Err.Number & Err.Description

     Resume exit_setbypass

  End If

End Sub

Sub tamer()

    setbypass (False)

اوجزت و انجزت

بارك الله فيكي دكتورة زهرة

جزاك الله خيرا أخت زهرة ، ورفع قدرك، ونفع بك