[ تمت الإجابة ]كيف يمكن تغيير عنوان التطبيق برمجيا

اخي الفاضل ياسين

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

نعم يمكن تغيير تسمية التطبيق برمجيا على النحو التالي

ضع هذا الكود في وحدة نمطية جديده ( لاحظ اني وضعت اسمك YASSIN123 ليكون اسم للتطبيق بإمكانك تغييره الى اي شيء سواء عربي او انجليزي)

Sub SetNewFEMDBOptions()
Dim intX As Integer
	intX = AddAppProperty("AppTitle", dbText, "YASSIN123")
End Sub

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

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

Private Sub Form_Open(Cancel As Integer)
Call SetNewFEMDBOptions
End Sub

شكرا للرد

لكن حدث خطأ عند التنفيذ

مرفق قاعدة البيانات

run time error '13'

type mismatch

ويظهر فى التصحيح لون اصفر على الجملة

Set prp = CurrentDb.CreateProperty(strName, varType, varValue)

AppTit.rar

يوجد لديك خطأ في ترتيب المراجع والمكتبات

الملف بعد التعديل

AppTit_UP.rar

شكرا للرد

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة