اخفاء و اظهار اطار قاعدة البيانات بالكود أو عن طريق الماكرو

أخي الكريم

السلام عليكم

ضع الدالة التالية في أي وحدة نمطية عامة

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer

	Dim dbs As Database, prp As Property

	Const conPropNotFoundError = 3270



	Set dbs = CurrentDb

	On Error GoTo Change_Err

	dbs.Properties(strPropName) = varPropValue

	ChangeProperty = True



Change_Bye:

	Exit Function



Change_Err:

	If Err = conPropNotFoundError Then	' Property not found.

  Set prp = dbs.CreateProperty(strPropName, _



varPropType, varPropValue)

  dbs.Properties.Append prp

  Resume Next

	Else

  ' Unknown error.

  ChangeProperty = False

  Resume Change_Bye

	End If

End Function

ثم استدعها من أي مكان بالصيغة التالية :

ChangeProperty "StartupShowDBWindow", dbBoolean, False

تحياتي

أخوك / أبو هاجر

شكرا لك يا أخ abohajr على الرد السريع

(f);)