• 0
msak2004

التعديل على التسمية التوضيحية والقيمة الافتراضية بالجداول والنماذج برمجيا

سؤال

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

تحية طيبة وبعد ،،،

تم طرح سؤال بنفس الخصوص من أحد الأعضاء الأعزاء على هذا الرابط

http://www.arabteam2000-forum.com/index.php?showtopic=235102

ونظرا لأهمية الموضوع أحببت أن أضع المثال بمشاركة جديدة لتعم الفائدة على الجميع ..

تم عمل طريقتين :

الأولى :

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

If IsNull(Me.NewCaption) Then
MsgBox "يجب أن تدخل التسمية الجديدة قبل تنفيذ هذا الأمر", vbCritical, "خطأ بتحديد الاسم الجديد"
NewCaption.SetFocus
Exit Sub
Else
CurrentDb.TableDefs("T1").Fields("FIRST").Properties("Caption") = [NewCaption]
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE TableCapTion SET TableCapTion.FildeNameCapTion = Forms!F1!NewCaption WHERE (((TableCapTion.FildeName)=[Forms]![F1]![FildN]));"
FIRST_تسمية = DLookup("[FildeNameCapTion]", "TableCapTion", "[FildeName]='" & FIRST.name & "'")
DoCmd.SetWarnings True

Dim Response As Variant
Response = MsgBox("تم تعديل المطلوب بنجاح .... ", vbYesNo, "متابعة التعديلات")

End If

الكود السابق لتغيير التسمية التوضيحية ولتغيير الكود لوظيفة القيمة الافتراضية بدل الكود السابق بالتالي


If IsNull(Me.NewCaption) Then
MsgBox "يجب أن تدخل التسمية الجديدة قبل تنفيذ هذا الأمر", vbCritical, "خطأ بتحديد الاسم الجديد"
NewCaption.SetFocus
Exit Sub
Else
CurrentDb.TableDefs("T1").Fields("FIRST").Properties("DefaultValue") = [NewCaption]
Dim Response As Variant
Response = MsgBox("تم تعديل المطلوب بنجاح .... ", vbYesNo, "متابعة التعديلات")

End If

post-139265-085851100 1294603541_thumb.p

الثانية :

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

1- عرض الجداول في Combo Box

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "m*" And (MSysObjects.Name) Not Like "TableCapTion") AND ((MSysObjects.Type)=1));

2- كود عرض الحقول التابعة للجدول في List Box


Private Sub TabName_AfterUpdate()
Dim rs1 As Recordset, x As Integer
Me.FildName.RowSource = ""
Set rs1 = CurrentDb.OpenRecordset([TabName])
For x = 0 To rs1.Fields.Count - 1
Me.FildName.RowSource = Me.FildName.RowSource & rs1.Fields(x).Name & ";"
Next x

rs1.Close
Set rs1 = Nothing
End Sub

3- تنفيذ كود التعديل على الجداول حسب الاختيار الذي تم بالكود التالي


Private Sub Command0_Click()
If IsNull(Me.TabName) Then
MsgBox "يجب تحديد الجدول المطلوب قبل تنفيذ الأمر", vbCritical, "خطأ بتحديد اسم الجدول"
TabName.SetFocus
TabName.Dropdown
Exit Sub
End If

If IsNull(Me.FildName) Then
MsgBox "يجب اختيار اسم الحقل قبل تنفيذ هذا الأمر", vbCritical, "خطأ بتحديد اسم الحقل"
FildName.SetFocus
Exit Sub
End If

If IsNull(Me.NewCaption) Then
MsgBox "يجب أن تدخل التسمية الجديدة قبل تنفيذ هذا الأمر", vbCritical, "خطأ بتحديد الاسم الجديد"
NewCaption.SetFocus
Exit Sub
Else
' :ملاحظة
'من خلال السطر التالي تستطيع تنفيذ امر تغيير التسميه بتحديد اسم الجدول والحقل المراد تعديله والاسم الجديد بأمر واحد تضعه اينما تريد
'CurrentDb.TableDefs("ادخل هنا اسم الجدول").Fields("ادخل هنا اسم الحقل المراد تعديله").Properties("Caption") = "ادخل هنا الاسم الجديد "
CurrentDb.TableDefs([TabName]).Fields([FildName]).Properties([PropName]) = [NewCaption]

Dim Response As Variant
Response = MsgBox("تم تعديل المطلوب بنجاح .... هل ترغب بفتح الجدول بالوضع تصميم؟", vbYesNo, "متابعة التعديلات")
If Response = vbYes Then DoCmd.OpenTable Me.TabName, acViewDesign
End If
End Sub

ملاحظة : تم توضيح خطوات التنفيذ من (1) الى (5) بالنموذج .

post-139265-099472000 1294603514_thumb.p

نسأل الله القبول ومنكم الدعاء ...

تحياتي ..

Change the default value and caption.zip

8

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

20 إجابة على هذا السؤال .

  • 0

منور ياابو عدنان

تغيب تغيب وترجع لينا بامثله جميله ومفيده ربنا يجزيك عنا كل خير انت وجميع من بالمنتدى اللذين لايبخلون علينا بما عندهم بمعلومات .

لك منى +1

وجارى التحميل

تمنياتى لك وللجميع بالتوفيق

اخوك احمد

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك وجزاك الله اخي الفاضل ابا عدنان

وفقك الله ورعاك ونفع بعلمك

مثال رائع ومفيد

شكرا

احترامي وتقديري

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الغالي الحبيب / ابو عدنان

اولا الله وحده يعلم كم احبك في الله

انت غالي ودائما شرحك للمواضيع غالية

جزاك الله خيرا ويارب يارب يجعله في ميزان حسناتك ان شاء الله

رحم الله والديك في الدنيا والآخره

لك كل احترام وتقدير اخي واستاذي /ابو عدنان

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

الأخ الغالي أحمد جزاك الله خير وبارك الله بك ..

أهلا أخي at_aziz وبارك الله بك أيضا وشاكر مرورك الكريم ..

مشكور أخي الحبيب وأستاذي أبو شادي ، وأحبك الله الذي أحببتنا فيه ..

والله الشعور من مثله ... رحم الله والديك واسكنهم الجنة بقربك ..

والله زمان يا أبو شادي لم اسمع دعاء نابع من القلب كالذي جئت به بارك الله بك ، ففيه الخير والبركة التي أضاءت لنا طريقنا إلى ما نحن فيه الآن ....

وفق الله الجميع إلى كل خير ..

تحياتي للجميع ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

مجهود أكثر من رائع وليس بغريب على أخي أبو عدنان ..

وفقك الله لما يحب ويرضا وتسلم على المثال يالغالي

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله...ابداع وعمل رائع

تحياتي

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

حياك الله أخي الحبيب أبو رهف ..

سعيد جدا بمشاركتك وما هذا الا بعض ما عندكم ، فأنت أستاذنا ونحن تعلمنا منك الكثير فجزاك الله كل خير ..

نتشرف بمشاركتك أخي الحبيب همام استأذنا ومشرفنا الغالي ..

وما هو الرائع هو دعمكم المتواصل.. بارك الله بك

وفق الله الجميع إلى كل خير

تحياتي ..

تم تعديل بواسطه محمد أبو عدنان
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي العزيز ابو عدنان

السلام عليكم

سعيد جدا بعودتك ..... نورت المنتدى .

وجزاك الله خيرا على هذا العمل الرائع وجلعه الله في ميزان حسناتك .

كل الاحترام لك ولجهودك

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله أخي الحبيب مالك .. وأنا سعيد بلقائك ..

منور المنتدى بأهله ..

جزاك الله خير وبارك الله بك ..

تحياتي ..

تم تعديل بواسطه محمد أبو عدنان
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله

بارك الله فيك ونفع بعلمك

وجزاك الله خيراااااااا

ومن ابداع الى ابداع وبالتوفيق بعون الله

+1

تم تعديل بواسطه abo.ahmed
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله أخي الحبيب أبو أحمد ..

شاكر مروركم الكريم وجزاك الله خير ..

تحياتي ..

تم تعديل بواسطه محمد أبو عدنان
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله

بارك الله فيك ونفع بعلمك

وجزاك الله خير

لكن عندي سؤال

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

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

لكن عندي سؤال

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

بارك الله بك أخي أبو جهاد

حاول أن تنشئ جدول جديد مع حقوله واعمل التسمية التي تريد للحقول ثم اطلب النموذج الخاص بالتعديل ولاحظ ان الجدول سيظهر بالقائمة مع حقوله، أو أعمل حقل جديد في أحد الجداول الموجودة وستكون النتيجة واحدة ..

حاول قراءة الكود ولاحظ عملية اعادة تشكيل مربعات التحرير والسرد في كل عملية.

شاكر مروركم أخي أبو جهاد ..

تحياتي ..

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

راااائع جداً :)

جزاك الله كل خير أخي أبو عدنان

بارك الله فيك ، سلمت يمينك ، مثال قيّم جداً

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله اخى الحبيب

مثال رائع من انسان أروع

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ما شاء الله عليك استاذي ابو عدنان تحفة كالعادة

الله يبارك فيك ويزيك من علمه

+1 واكثر

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الحبيب محمد علوش ....

هل هناك شئ رائع أكثر من مشاركتك لنا فجزاك الله كل خير ..

سعداء بمشاركتك أستاذنا الحبيب أبو يوسف بارك الله بك ..

أخي الحبيب (مشارف) محمد ...

والله سعيد جدا بمشاركتك بعد طول هذا الغياب ، نرجوا أن يكون المانع خير ..

الصراحة ولا أبالغ نحن إلى حد الآن لم نرتقي الى ما هو مطلوب منا ..

تحياتي وتقديري لجميع المشاركين ..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أستاذنا مثال رائع .. زادك الله علما أستاذنا الكبير

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

جزاك الله خير أخي العزيز عمر وبارك الله بك ..

تحياتي

تم تعديل بواسطه محمد أبو عدنان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بسم الله .. تبارك الله

أخى الفاضل محمد

بارك الله فيك و فى علمك

عمل أكثر من رائع .. يحتاجة الكثير أكيد

تقبل الله منا و منك صالح العمل

الأصيل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .