سلام
من از کد زیر برای نمایش اطلاعات در گزارش استفاده کردم
"کد ملی: " & [stu_code-meli]
حالا میخوام فقط مقدار [stu_code-meli] به صورت بولد یا با رنگ قرمز نمایش داده بشه
یا همینطور فقط عبارت کد ملی
میشه راهنمایی کنید؟
و یک چیز دیگه
راه حلی هم برای اینکار در فرمها هست؟
فرمت تكست باكس مورد نظر rich text انتخاب كنيد.
براي تغيير رنگ قسمتي از متن تكست باكس مورد نظر از اين كد استفاده كنيد
strTemp = strTemp & "<font color=red>" & Your Text & "</font>"
كه عبارت YourTextهمان قسمت مورد نظر شماست.
...........................
موفق باشيد
دستتون درد نکنهنوشته شده توسط amirzazadeh
میشه روی نمونه خودم پیادش کنید؟
هم برای محیط vba و هم برای control sourc
یه مطلب دیگه
من توی یک فروم عربی دیدم که طرف اومده از کد html استفاده کرده. البته برای بخشی که متغیر نیست مثلا:
="<b>صفحة </b>" & [Page] & " من " & [Pages]
فایلش رو هم ضمیمه میکنم
سلام کد فایل عربی فقط برای کلمه "صفحه" انجام میشه . برای عباراتی که از دو تا ستون تیبل به هم متصل میشن (مثل نام و نام خانوادگی) جواب نمیده
ممنونم آقای عربی
ولی خب همون هم در فایل خودم اجرا نمیشه
یعنی به عبارتی خود تگهای html رو هم به عنوان رشته ثابت نمایش میده نه مثل فایل نمونه
احتمال اینکه مربوط به نسخه اکسس باشه میشه؟
سلام
يك نمونه ساده براتون اپلود كردم.براي تست يك نام در تكست اول و يك شماره در تكست دوم وارد كنيد و دكمه كامند رو فشار دهيد
بسیار عالی بود.
فقط سوالات تکمیلی رو میپرسم و تمام!.
- این قابلیت در حالت record source وجود نداره؟
- از تمامی تگهای html میشه اینجوری استفاده کرد؟ css چطور؟
- قابلیت format هم قابل مدیریت هست اینجوری؟ قابلیت Decimal Places چطور؟
- راه دیگه ای هم برای رسیدن به این هدف هست؟
جناب امیری زاده
ممنون از بابت نمونه
سوالی داشتم از خدمت شما . آیا میتوان کاری کرد که همین فعالیت Bold در کوری و یا گزاش هم به صورت خودکار انجام شود . مثلا در متن یک قرارداد بتوان قسمتهای مورد نظر را برجسته تر نشان دهد
سلام
1- اگه فيلد مورد نظر در جدول از نوع memo انتخاب كنيد ميتونيد ركورد سورس رو هم داشته باشيد و از اين نظر مشكلي وجود نداره.
2-تمامي تگها قابل استفاده نيستند.
3- فابليت فرمت فقط براي يك فيلد قابل اعمال هست.
4-در اين مورد شايد دوستان ديگه راه حل بهتري هم داشته باشند
....................
موفق باشيد
همينطور كه در پست قبلي عرض كردم اگه فيلد رو از نوع memo انتخاب كنيد ميتونيد فرمت مورد نظر رو روش اعمال كنيد.
.........................
موفق باشيد
خیلی لطف کردین آقای امیری و بابت راهنمایی متشکرم
آیا براتون امکان داره برای مورد اول و سوم یک نمونه بدین که بتونم یادبگیرم؟
سلام
کد مربوط به Bold میشه "<Text9 = Text1 & "<b>" & Text3 & "</b
کد مربوط به Underline میشه "<Text9 = Text1 & "<u>" & Text3 & "</u
کد مربوط به Italic میشه "<Text9 = Text1 & "<i>" & Text3 & "</i
ببخشید کد مربوط به بک گراند چی هست؟ لطفا
یعنی اگر بخواهیم یک کاراکتر یا تکست رو مثل همون کد ملی تو نمونه بالا با رنگ قرمز مارک کنیم من از
& "<back ground=red>"
و
<font style="BACKGROUND-COLOR:red">
استفاده کردم جواب نداد یعنی کار نکرد.
آخرین ویرایش به وسیله Shahramdindoust : شنبه 24 آبان 1399 در 10:46 صبح
سلام
از این کد استفاده کنید:
Me.Text5.BackColor = vbRed
البته در نظر داشته باشید که این پروپرتی مربوط به تکست باکس هست بنابراین کل رنگ تکست باکس عوض میشه.
سلام
نه من نمیخوام تکست باکس رو رنگی کنم میخام یه کاراکتری رو از متن به اصطلاح هایلایت کنم یعنی بک گراند اون حرف رو مثلا قرمز کنم
مثل تصویر پایین که حرف ش رو سبز کزدم
راستی اگه تو تصویر دقت کنید تکست بالا rich tetx و تکست پایین حالت plain text همون تکست بالاست
ثقب.png
کسی از دوستان نمیخاد جواب بده؟
سلام
ميتونيد از خصوصيت سلكت تكست استفاده كنيد مثل نمونه زير:
Text5 = Text1 & "<font color=red>" & Text3 & "</font>"
Me.Text5.SetFocus
Me.Text5.SelStart = 0
Me.Text5.SelLength = Len(Me.Text1)
خیلی ببخشید مشکلم حل نشد بیزحمت از مثال بالا استفاده نکنید
مثلا
"سلام"=me.text1
حالا حرف س رو رنگی کنید من اینجوری نوشتم نشد
"سلام"=me.text1
me.text1.set focus
me.text1.sel start=0
(س)Me.Text5.SelLength = Len
یه چیز دیگه: len چه تابعی هست
سلام
تابع LEN یک متن را بعنوان ورودی دریافت می کند و تعداد کاراکتر های آن را بصورت یک عدد بر می گرداند
مثلاً در کد: MsgBox Len(Me.Text1)
در یک پیغام تعداد حروفی که در تکست باکس 1 وارد شده نمایش میدهد
و اما در مثال فوق در قسمت Me.Text1.SelStart شما باید مشخص کنید بعد از فوکوس بر روی تکست باکس کرسر در کدام قسمت متن قرار بگیرد . وقتی آن را معادل صفر قرار میدهی یعنی در اول متن از سمت چپ و اگر آن را مثلاً معادل 2 قرار بدهی کرسر بعد از کاراکتر دوم قرار می گیرد . البته در متن های فارسی اینکار برعکس و از سمت راست نمایش داده میشود .
و اما در کد Me.Text1.SelLength باید مشخص کنید که چند کاراکتر را میخواهید انتخاب (سلکت) کنید . اگر آن را معادل صفر قرار بدهی یعنی هیچ کارکتری انتخاب نشود و اگر مثلاً آن را معادل 2 قرار بدهی یعنی 2 کارکتر از متن انتخاب شود .
حالا با توجه به توضیحات فوق درمثال شما باید کد را بصورت زیر بنویسید که حرف س در کلمه سلام که در تکست باکس 1 وارد کرده ای انتخاب شود :
Me.Text1.SetFocus
Me.Text1.SelStart = 0
Me.Text1.SelLength = 1
موفق باشید
آخرین ویرایش به وسیله eb_1345 : یک شنبه 25 آبان 1399 در 00:57 صبح
خیلی آموزنده بود ممنون
حالا ما با این کد حرف اول یعنی "س" را انتخاب کردیم فقط یک سوال حالا چجوری بک گراند اون "س" رو رنگی کنیم
سلام
برای رنگی کردن بک گراند قسمتی از یک متن در تکست باکس باید آن تکست باکس را در حالت rich tetx قرار دهید و براساس کدی که در پست شماره 16 قرار داده اید عمل کنید و در حالت plain text رنگی کردن قسمتی از متن شدنی نیست مگر با استفاده از روش پست20
فک کنم نشد
من یه فایل کوچیک درست کردم ولی هرچی میگردم علامت سنجاق(attachments) رو نمیبینم که آپلودش کنم
روش اول :
در گوشه پایین سمت چپ میتونید ویرایشگر کلاسیک رو انتخاب کنید .
اپلود اونجا فعاله .
روش دوم
اینجا اپلود کنید و لینکش رو پست کنید
آپلود در پیکوفایل
بله ممنون .
تو پست بالا هم فرستادم
در رویداد کلیک کمند باتن بجای کدهای قبلی از کد زیر استفاده کن !
text1 = "<font style=BACKGROUND-COLOR:#ED1C24>" & "س" & "</font>" & "لام"
سلام
نمونه مورد نظر رو اصلاح کردم براتون .
فقط یک مطلب .
کد برای فونت ؟؟؟
مشکلم حل شد
از این که وقت گذاشتید خیلی سپاسگذارم
مشکلم حل شد
از این که وقت گذاشتید خیلی سپاسگذارم
دقیقا همون شد که میخواستم
راستی نمونه درست شده اون رو قرار میدم که کسی بعدا مراجعه کرد استفاده کنه
خب هر از گاهی لازم میشه دیگه یعنی برای فونت کد بنویسیم عجیبه ؟!
کد برای خود فونت هم بدین لطفا.
مشابه این
1
2
text1 = "<font style=BACKGROUND-COLOR:#ED1C24>" & "س" & "</font>" & "لام"
نمونه ضمیمه را ببین!
آخرین ویرایش به وسیله eb_1345 : دوشنبه 26 آبان 1399 در 00:08 صبح
ممنون از همکاری
احسنت
راستش اون کد رو برای عبارت "سلام" نوشتید و اون حرف (س) بک گراند قرمز شد و درست انجام شد حالا اگه بگیم کاربر عبارت دیگه ای تو اون تکست باکس وارد کنه و روی باتن کلیک کنه چه کدی بنویسیم که بک گراند اولین حرفش رنگی شه . یعنی کاربر هر متنی که وارد کرد و روی باتن کلیک کرد اون اتفاق برای بک گراند اولین کاراکتر بیوفته .
با سپاس
نمونه ضمیمه رو بررسی کن !
سعی کردم تغییری به این فایلی که گذاشتید بدم که تغییرات در همون تکست باکس اول (text1) اعمال بشه ولی نشد. بنظرتون بشه؟
فعلا تو حالت design هر دو text1وtext2 رو روی هم قرار دادم و قبل از کد شما text1 رو visible=false کردم دیگه تکست اول دیده نمیشه و بنظر میاد که تغییرات در همون تکست باکس اول انجام میشه
ولی حالا میشه که تغییرات همون تو تکست باکس اول اعمال شه ؟
سرتون رو به درد آوردم ببخشید (کسب تجربه از این سایت خیلی لذت بخشه)
بر خلاف باور بعضی از دوستان در اکسس بسیاری از کارها شدنیست
آخرین ویرایش به وسیله eb_1345 : سه شنبه 27 آبان 1399 در 09:32 صبح
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول
