یک مشکل عجیب با replace و تغییر رنگ

[قله بلند]

سلام دوستان
من وقتی چنین کدی رو می نویسم و در Text0، رشته bachelor رو وارد می کنم، عمل رنگی شدن رخ نمی ده. لطفاً به تصویر توجه کنید. چرا اینجوری می شه؟ مگه نباید lor، رنگی بشه پس چرا color در font color هم متاثر می شه یعنی رنگی می شه؟




If Not IsNull(RSS.Fields("TCode2")) Then
x = Me.Text111
y = RSS.Fields("TCode2")
z = "<font color=#ff63ff>" + y + "</font>"
Me.Text111 = Replace(x, y, z)
MsgBox Me.Text111
End If



در اینجا Tcode2 به طور مثال شامل رشته lor است.

من می خوام bache و lor، به صورت جداگانه رنگی شوند.

120188

[vbhamed]

سلام
تو جایگذاری اشتباه شده چون تگ فونت شما داخل خواص تگ فونت قبلی تعریف شده، خودتون تصویری که گذاشتید رو چک کنید

[قله بلند]

سلام
ممنون از اینکه پاسخ دادید.
این عکس خروجی
MsgBox Me.Text111

است. می خواستم ببینم چرا اینجوری می شه.

فرض کنید که داده های ما اینها هستند:
Main_EW=bachelor
TCode1=bache
TCode2=lor


فرض کنید من چنین خروجی را می خواهم:
bachelor
از این قطعه کد استفاده کردم که خروجی اول این بود:
bachelor




If Not IsNull(RSS.Fields("TCode1")) Then
x = RSS.Fields("Main_EW")
y = RSS.Fields("TCode1")
z = "<font color=#ee00ee>" + y + "</font>"
Me.Text111 = Replace(x, y, z)
Else
Me.Text111 = RSS.Fields("Main_EW")
End If
If Not IsNull(RSS.Fields("TCode2")) Then
x = Me.Text111
y = RSS.Fields("TCode2")
z = "<font color=#ff63ff>" + y + "</font>"
Me.Text111 = Replace(x, y, z)
MsgBox Me.Text111
End If


و خروجی دوم، چیزی رو در Me.Text111ثبت نکرد

[قله بلند]

پاسخی برای این سوال پیدا نمی شه؟
خودم هم خیلی جستجو کردم ولی به نتیجه ای نرسیدم. سوال هم می پرسم ولی تا حالا کسی نتونسته پاسخی براش پیدا کنه.

نمی دونم lor چرا با font color ترکیب می شه در حالیکه ربطی به هم ندارند.

[alirezabahrami]

پاسخی برای این سوال پیدا نمی شه؟
خودم هم خیلی جستجو کردم ولی به نتیجه ای نرسیدم. سوال هم می پرسم ولی تا حالا کسی نتونسته پاسخی براش پیدا کنه.

نمی دونم lor چرا با font color ترکیب می شه در حالیکه ربطی به هم ندارند.
سلام
آقای قله بلند نمونه فایلت را قرار بده !
یا علی

[vbhamed]

سلام
شما خروجی اشتباه تولید می‌کنید، سیستم کارش رو درست انجام میده
همونطور که دوستمون گفتن اون تیکه برنامه و فایلتون رو قرار بدید

[قله بلند]

سلام
با تشکر از توجه شما دو بزرگوار

اجازه پیوست فایل داده نشد بنابرین من اصل کد و تمامی 5 خروجی اش رو + تصویر بانک رو براتون می گذارم.




Option Compare Database
Public RSS As DAO.Recordset
Public SQLS As String
Function showRecordS()
Dim x As String
Dim y As String
Dim z As String

With RSS
x = RSS.Fields("name")
y = RSS.Fields("Tcode1")
z = "<font color=#ee00ee>" + y + "</font>"
Me.Text50 = Replace(x, y, z)
Me.Text52 = RSS.Fields("family")
x = Me.Text50
y = RSS.Fields("Tcode2")
z = "<font color=#ff63ff>" + y + "</font>"
Me.Text50 = Replace(x, y, z)
Me.Text52 = RSS.Fields("family")
End With
End Function

Private Sub List57_Click()
Dim tempS As String
tempS = Me.List57.Value
SQLS = "SELECT [Table1].[name], [Table1].[family],[Table1].[Tcode1],[Table1].[Tcode2] FROM [Table1] where [name] like '" & tempS & "'"
Set RSS = CurrentDb.OpenRecordset(SQLS)
With RSS
showRecordS
End With
End Sub


120272120274120275120276120273

[قله بلند]

اینهم تصویر بانک
120277

[vbhamed]

سلام
سورس و بانک رو در یک سایت دیگه مثل 4shared.com یا rapidshare.com یا http://v.persiangig.com آپلود کنید و آدرس رو بزارید

[قله بلند]

سلام
بفرمایید
http://www.uploadmb.com/dw.php?id=1403269811

[قله بلند]

سلام
دوستان
جواب این سوال در سی شارپ اینجوری:



if (richTextBox.Find("ab")>0)
{
richTextBox.SelectionBackColor = Color.LightGreen;
}


آیا برای حل این مشکل در VBA، چنین راه حلی وجود داره؟

من در VB6 هم جستجو کردم ولی نتونستم جوابی پیدا کنم

[قله بلند]

سلام
این سوال پاسخ نداره؟ مشخص نیست که چرا رنگی کردن در گام دوم چنین مشکلی رو به وجود می آره؟

[vbhamed]

سلام
دوست عزیز، اگر میخواین مشکلتون حل بشه یک پروژه جدید درست کنید و اون تیکه کد رو درونش بنویسید به طوریکه قابل اجرا باشه، سپس به همراه بانک آپلود کنید، مهمه که خود پروژه رو بزارید نه کدش رو
ضمنا بانکی هم که فرستادید کلی خطا میده موقع باز شدن، آفیس شما چه ورژنی است ؟

[قله بلند]

سلام
لینک برنامه رو در پست 10 گذاشته ام. این لینک مشکل داره؟
اکسس 2007

[vbhamed]

سلام
لینک مشکل نداره، اولا فقط فایل دیتابیس هست و پروژه وی بی همراهش نیست
دوما همون دیتابیس هم موقع باز شدن کلی خطا میده

[قله بلند]

جواب این سوال اینجاست
http://barnamenevis.org/showthread.php?457732-%D8%B1%D9%86%DA%AF%DB%8C-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AF%D9%88-%D8%B2%DB%8C%D8%B1-%D8%B1%D8%B4%D8%AA%D9%87-%D9%88-%DA%86%D8%B3%D8%A8%D8%A7%D9%86%D8%AF%D9%86-%D8%A2%D9%86%D9%87%D8%A7-%D8%A8%D9%87-%D8%B1%D8%B4%D8%AA%D9%87-%D8%A7%D8%B5%D9%84%DB%8C