الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه ماجدجلال في 3 سبتمبر 2010 · 7 رد · 746 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

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

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

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

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

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

Paling.zip

#2

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

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

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

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

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

Paling_up.zip

#3

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

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

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

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

#4

جرب هذا الحل

تم تعديل هذه المشاركة بواسطة مفرج في 4 سبتمبر 2010 في 03:26

من سار على الدرب وصل

#5

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

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

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

#6

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

هذا الحل

Paling.rar

1

من سار على الدرب وصل

#7

تفضل اخى

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

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

الاخ ابو عمر

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

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

تم تعديل هذه المشاركة بواسطة mrnooo2000 في 4 سبتمبر 2010 في 03:39

1

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#8

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

الاخ مفرج

الاخ mrnooo2000

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

شكرا لكم

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

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

اللهم امين.

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

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…