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

كيف يمكنني أن أجعل البيانات بهذا الشكل في التقرير

مغلق
بدأه أبوهمام الطائفي في 13 أغسطس 2007 · 8 رد · 941 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

post-122643-1187006073_thumb.jpg

#2

أخي الكريم

من خصائص مربع النص - تنسيق - قابل للنمو = نعم

وفقك الله

#3

اكيييييييييييييييييييييييييييييييييييييد

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

#4

ياريت المرفق يكون فيه المطلوب

post-129278-1187006930_thumb.jpg

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

#5

الأخوين الكريمين : الفارس القديم ........ newezu

أشكر لكم فائدتكم المهمة جدا بالنسبة لي وأشكر لكم مساعدتكم وتجاوبكم معي

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

الصورة في المرفقات

post-122643-1187072487_thumb.jpg

#6

سلام

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

عزيزي ...

الحل الأكيد تجده عند الأخ (مفرج ) على هذا الرابط ---- هنا ----

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

القحم

#7

الأخ القحم جزاك الله خيرا وأنا شاركت في الموضوع اللي أرسلتني عليه والأخ أعطاني الكود المناسب لكنه بقي بالنسبة لي غامض

جزء التفصيل ما أدري وش يقصد به

متغير الحروف كم العدد المناسب له

وأهم شيء : وين أدرج هذا الكود وكيف

أعرف إنه يتم تصميمه في الوحدة النمطية ويحفظ باسم معين لكن كيف أستدعيه

لا تضحكوا علي لكن تروني بالأكسس مبتدئ جدا جدا

#8

أخي الكريم

أنظر لهذه الصورة المرفقة التي سترشدك ان شاء الله

وهذا كود لاصلاح مشكلتك

	Dim ctl As Control
	Dim MaxHeight As Long

	MaxHeight = 0

		For Each ctl In Me
			If TypeOf ctl Is TextBox And ctl.Section = 0 Then
			If ctl.Height > MaxHeight Then MaxHeight = ctl.Height
			End If
		Next

		For Each ctl In Me
			If TypeOf ctl Is TextBox And ctl.Section = 0 Then
			Me.Line (ctl.Left, 0)-(ctl.Left, MaxHeight)
			End If
		Next
	Me.Line (Me.Width - 3, 0)-(Me.Width - 3, MaxHeight)
	Me.Line (0, MaxHeight)-(Me.Width - 3, MaxHeight)

تحياتي لك

post-130602-1187098900_thumb.gif

تم تعديل هذه المشاركة بواسطة الفارس القديم في 14 أغسطس 2007 في 16:42

#9

جزاك الله خير أخي الفارس القديم وجعل ذلك في موازين حسناتك

هذا الموضوع مغلق.

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

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

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

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

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