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

[bumb]

السلام عليكم 

قمت بعمل دالة تقوم بتفيير النص للأزرار والليبل وعندما استدعيها احصل على خطأ 

ترى اين الخطأ في الدالة

 

Public Sub CapText(ID As Integer)
Dim CaptionText As String
   CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID)
End Sub

 

[SEMO.Pa3x]

عليكم السلام، انت تقول قمت بتعمل دالة لتغيير نص الأزرار والليبل.

فأين الأزرار والليبل في الكود الخاص بك!

انت فقط قمت بتعريف متغير واسندت له قيمة، اين الأزرار والليبل في الموضوع؟

يجب عليك نداء الزر أو الليبل الذي تريد تغييره.

 

[bumb]

لو ححدت الور او الليبل رح تكون الدالة خاصة للزر والليبل 

انا اريد الدالة تعمل كلما اردت تغيير نص اي زر واي ليبل 

[SEMO.Pa3x]

Public Sub CapText(ID As Integer, cmds As CommandButton)
    Dim CaptionText As String
    CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID)
    'set caption name
    cmds.Caption = CaptionText
End Sub

 

الإستدعاء:

Call CapText(1, "Hello")

 

[أ / محمد صالح]

11 ساعات مضت, bumb said:

لو ححدت الور او الليبل رح تكون الدالة خاصة للزر والليبل 

انا اريد الدالة تعمل كلما اردت تغيير نص اي زر واي ليبل 

يوجد حلط بين مفهوم الدالة fimction والإجراء sub

وخلاصة الفرق بينهما :

الدالة تقوم بإرجاع قيمة بأي نوع من أنواع البيانات

الإجراء لا يرجع قيمة وإنما يتم تنفيذ مجموعة من الأوامر تباعا

*******

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

Public function CapText(ID As Integer) as string
   CapText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID)
End function

إذا كنت تريد أن تجعل مثلا عنوان الزر هو ناتج الدالة تستعمل هذا الكود

button1.caption = CapText(1)

إذا كنت تريد أن تجعل مثلا عنوان الليبل هو ناتج الدالة تستعمل هذا الكود

label1.caption = CapText(2)

بالتوفيق

[bumb]

عشت وكثر الله خيرك

اشكرك على جهودك

[bumb]

12 ساعات مضت, SEMO.Pa3x said:

Public Sub CapText(ID As Integer, cmds As CommandButton)
    Dim CaptionText As String
    CaptionText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID)
    'set caption name
    cmds.Caption = CaptionText
End Sub

 

الإستدعاء:

Call CapText(1, "Hello")

 

اشكرك على جهودك 

ولكن هل يجب ان اكتب التكست في الإستدعاء؟

[أ / محمد صالح]

أخي الكريم

لم أفهم مقصودك من السؤال

استدعاء الدالة يكون بكتابة اسمها وتمرير رقم id لها فقط

CapText(1)

أو أي رقم تريده

وطبعا ناتج الدالة عبارة عن النص المخزن في الجدول

تضعه في أي مكان تريده سواء مربع نص أو تسمية أو زر أو تقرير أو أي شيء

ربما إذا أوضحت مقصودك نتوصل للجواب