[ تمت الإجابة ]كيف يتم جعل اسم مربع النص متغير

[ماجدجلال 0]

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

وكل عام وانت بخير

اخواني الاعزاء من المعروف لدي الجميع ان يمكن ان يكون اسم النموذج متغير عند وضعة في كود لفتح النموذج وذلك حسب الكود التالي

Dim frm As String
frm = "jab"
DoCmd.OpenForm frm

حيث ان jab هو اسم النموذج المراد فتحة .

اخوني السؤال : من نفس الفكرة السابق كيف يمكن وضع اسم مربع النص في متغير ؟

الملف المرفق : به برنامج مثل اللعبة يقوم المستخدم بتحديد اسم مربع المراد وضع القيمة المعروضة فية , ويكون اسم مربع النص متغير ضمن الكود ,,,,

ارجو منكم المساعدة في تصحيح الكود ولكم جزيل الشكر و الامتنان ...

Paling.zip

[أبوعمر الجنوبي 4]

أرفق لك تعديل بسيط

فقط أدخل في الرسالة مثلا a

وسيطبع النتيجة في الحقل a

وكذلك بقية الحقول

غيرة أسماء الحقول إلى a و b و d و c

Paling_up.zip

[ماجدجلال 0]

شكرا لك اخي ابوعمر

ولكن يمكن بكل سهولة استخدام الدالة Select Case فهي في هذة الحالة افضل من الدالة IF .

علاوة علي طول الكود . وعموما شكرا لك علي مجهودك وسوف انتظر ربمي يكون هناك كود يكون علي غرار الكود السابق في المشاركة رقم 1.

في انتظار مشاركات بقية الاخوان ,,,,

[مفرج 9]

جرب هذا الحل

تم تعديل 4 Sep 2010 بواسطه مفرج

[ماجدجلال 0]

الاخ مفرج ممكن تدلني علي النموذج الذي فية اسم مربع النص متغير ..

لانني وجدت البرنامج متكامل ولست ادري اي نموذج ممكن يكون الحل فية

وشكرا جزيلا لك وفي انتظار بقية المشاركات

[مفرج 9]

أخي اسف رفعت قاعدة غير المطلوبة

هذا الحل

Paling.rar

[mrnooo2000 534]

تفضل اخى

استخدم هذا الكود

Dim v1 As String
v1 = InputBox("ادخل اسم المربع المراد وضع القيمة فية")
Forms!PAL.Controls(v1) = DCount("*", "tab1")

الاخ ابو عمر

بارك الله فيك و لكن هذا الحل غير عملى و خصوصا اذا كان عدد مربعات النص كبير

الاخ مفرح بارك الله فيك حلك تمام و هو نفس الفكرة تقريبا

تم تعديل 4 Sep 2010 بواسطه mrnooo2000

[ماجدجلال 0]

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

الاخ مفرج

الاخ mrnooo2000

شكرا جزيلا لكما

شكرا لكم

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

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

اللهم امين.

الان تمت الاجابة علي السؤال -