ظهور الرمز عند تغير المسار

بحد علمي انه لا حل برمجي لهذه الجزئية

وفوق كل ذي علم عليم.

ولتسهيل الامر ضع القاعدة والصورة في مجلد واحد وعند النقل انقل المجلد بالكامل.

تفضل اخي الكريم

المسؤول عن هذه الحدث هو الوحدة النمطية قم بتغيير ما يلزم سواء اسم التطبيق او الصوره او نموذج بدء التشغيل بما يتناسب مع برنامجك

LOGO.rar

اشكركم من كل قلبي واشكر حسن تعاونكم

وبجهودكم الطيبة سنصل بإذن الله إلى أفضل الحلول لحماية قاعدة البيانات

اختي العزيزة زهرة دائما متميزة ولديك بحر من المعرفة..

لي مداخلة وهي السطر التالي من الكود، جربته بدون وحدات نمطية وكانت النتيجة ممائلة، ارجو التعليق...

CurrentDb.Properties("AppIcon") = Application.CurrentProject.Path & "\log.ico"

همام

همام ابوعرقوب كتب:

اختي العزيزة زهرة دائما متميزة ولديك بحر من المعرفة..

لي مداخلة وهي السطر التالي من الكود، جربته بدون وحدات نمطية وكانت النتيجة ممائلة، ارجو التعليق...

CurrentDb.Properties("AppIcon") = Application.CurrentProject.Path & "\log.ico"

همام

بارك الله بك اخي همام

بالنسبة لهذا الكود الذي قمت بإختصاره في سطر واحد ويلبي الطلب فهذا نسمية في قواعد البيانات الوظيفة الخاصة حيث يقتصر عمل هذا الكود على المكان الذي يوضع فيه فقط

قد تتساءل وتقول ان الكود يعمل بشكل سليم ولا يوجد به اي مشكلة !!!!

وانا اقول لك نعم الكود يعمل بشكل جيد ويؤدي الغرض منه في حدود ضيقة فقط لأنه مقتصر فقط على احد كائنات قاعدة البيانات

ولكن هل تستطيع وضع هذا الكود كما هو بشكله في ماكرو بدء التشغيل ؟

بالتأكيد ستقول لا بل سيحتاج الموضوع الى وضعه اولا في وظيفة ومن ثم استدعاء الوظيفة من خلال الماكرو

اذا دعنا نرى هذه الوظيفة العامة التي يمكن استدعاؤها من اي مكان من كائنات القاعدة ( نماذج - تقارير - استعلامات - ماكروات - صفحات الوصول للبيانات )

Public Function SetNewFEMDBOptions()
Dim intX As Integer
Dim strPath As String
strPath = Application.CurrentProject.Path & "\log.ico"
	intX = AddAppProperty("AppIcon", dbText, strPath)
	intX = AddAppProperty("AppTitle", dbText, "zahrah")
	intX = AddAppProperty("StartUpForm", dbText, "start")
RefreshTitleBar
End Function

Public Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer
	Dim prp As Property
	Const conPropNotFoundError = 3270

	On Error GoTo AddProp_Err
	CurrentDb.Properties(strName) = varValue

	AddAppProperty = True

AddProp_Bye:
	Exit Function

AddProp_Err:
	If Err = conPropNotFoundError Then
		Set prp = CurrentDb.CreateProperty(strName, varType, varValue)
		CurrentDb.Properties.Append prp
		Resume
	Else
		AddAppProperty = False
		Resume AddProp_Bye
	End If
End Function

فكل الذي نقوم بعمله هو وضع كود الإستدعاء هذا فقط

Call SetNewFEMDBOptions

او

=SetNewFEMDBOptions

الآن بدانا نعرف ان الوظيفة العامة اشمل واعم واجمل واسهل في قاعدة البيانات ويمكن استدعاؤها في اي وقت وفي اي مكان من الكائنات بينما الكود المختصر لا يملك لا حول ولا قوه فإما ان يضع في مكان محدد او لا يمكن وضعه لعدم وجود مكان مخصص لوضعه

اتمنى ان نكون قد القينا بعض الضوء البسيط على هذا الموضوع

اقتباس

الآن بدانا نعرف ان الوظيفة العامة اشمل واعم واجمل واسهل في قاعدة البيانات ويمكن استدعاؤها في اي وقت وفي اي مكان من الكائنات بينما الكود المختصر لا يملك لا حول ولا قوه فإما ان يضع في مكان محدد او لا يمكن وضعه لعدم وجود مكان مخصص لوضعه

اشكرك اختي زهرة على هذه الايضاحات وبالتاكيد راي علمي وعملي..

واطلب تثبيت هذا الموضوع كدرس من دروس البرمجة،،،

همام