הדגשת תוצאות חיפוש באקסס

[אוריי]

@רחמים
עוד שאלה יש לי אם אני עושה את זה עם פקד html אני יוכל לערוך את השורות או להוסיף שורות כמו שיש לי בטופס באקסס או שזה כמו תמונה..

[avi rz]

@אוריי אמר בהדגשת תוצאות חיפוש באקסס:

לגבי זה שאין אופציה בעיצוב מותנה לעשות מכיל יש פתרון?

אולי תוסיף כוכבית לפני ואחרי

[רחמים]

@אוריי אפשר לעשות הכל. אבל זו עבודה די רבה.

[חייםיודלביץ]

@אוריי

1. מצ"ב קובץ עם אופציה לחיפוש בתוך תיבת טקסט אחת, עם הדגשת התוצאה שהעלו פעם בפורום כשהיה נקרא COOD613 אם אני זוכר טוב זה הועלה ע"י @clickone

טופס חיפוש עם סימון תוצאות החיפוש בצבע.accdb

2. יש גם זה - שים לב שזכור לי שהמחבר של הקוד מבקש שיכבתו בקוד שהזכויות יוצרים שלו, משהו כזה.

[אוריי]

@avi-rz
ניסיתי ולא עוזר

[אוריי]

@חייםיודלביץ אמר בהדגשת תוצאות חיפוש באקסס:

מצ"ב קובץ עם אופציה לחיפוש בתוך תיבת טקסט אחת, עם הדגשת התוצאה שהעלו פעם בפורום כשהיה נקרא COOD613 אם אני זוכר טוב זה הועלה ע"י @clickone

יכול להיות שזה נמצא בארכיון?

[clickone]

@אוריי
@חייםיודלביץ העלה לך את הקובץ שהעלתי אז - שוב (תסתכל שוב בהודעה שלו)
זה הלינק לקובץ שהוא העלה.

הטריק הוא להשתמש בפקד טסט עם הגדרה לטקסט עשיר (שזה HTML) ואז עם קוד לשחק עם הצבע של התווים.

לגבי עיצוב מותנה, אתה יכול להשתמש גם בביטוי, ולא רק ב"ערך שדה הינו" ואז אתה חופשי לכתוב מה שבא לך

בהצלחה

[אוריי]

@clickone
תוכל להביא לי לינק לנושא כדי שאני יבין משם איך לעשות את זה

[clickone]

@אוריי אין לי זמן לחפש כעת
תסתכל בקוד - זה לא מסובך
כתבתי גם בהודעה הקודמת במילה וחצי מה הטריק (וגם הסבירו את זה לפני בטוב טעם - הכל זה טריק עם הHTML)

[אוריי]

@clickone
כתבתי כך

=Replace(Nz([yy]![BookList]![IdBook],""),Nz([Forms]![yy1]![SearchTheEntireDocument1].[Text],""),"<font style=""BACKGROUND-COLOR:#FFFF00"">" & Nz([Forms]![yy1]![SearchTheEntireDocument1].[Text],"") & "</font>")

אבל אני מקבל שגיאה כזו
?Name#

[אוריי]

לאחר שהר' @רחמים עזר לי באישי בטוב טעם ודעת הסביר כל מילה בצורה הכי ברורה שאפשר (וכל מילה שלי מיותרת...)
פשוט מדהים לראות את התוצאה ...
ע"כ אני מעלה לכאן לתועלת הרבים את הפונקציה שהר' @רחמים כתב

Function FindAndHit(findWhat As Variant, text As Variant) As String

    If IsNull(findWhat) Or IsNull(text) Then
        FindAndHit = IIf(IsNull(text), "", text)
        Exit Function
    End If

    Dim openTag As String
    openTag = "<font style=""BACKGROUND-COLOR:#FFFF00"">"
    Dim closeTag As String
    closeTag = "</font>"
    
    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

וזה הקריאה בבונה לפונקציה

=FindAndHit(<ערך לחיפוש>,<שדה להחזרה>)

וזה התוצאה המדהימה

@רחמים מקווה שכתבתי טוב אם יש תיקונים תתקן אותי..
ול @clickone היקר הרבה תודה על הרעיון חיסכון של מלא זמן (והרבה הרבה.... )
וכמובן ל @חייםיודלביץ

[OdedDvir]

@אוריי יפה מאוד!
עוד הצעה קטנה לשיפור:
שמתי לב שהוא מציג בשם המחבר ובהערות את הנקודה בתחילת השורה ולא בסוף. זה אופייני לתיבות טקסט עם טקסט עשיר, שמכילות עברית.
הפתרון הוא לשנות את המאפיין "כיוון קריאה" של תיבת הטקסט מ-"הקשר" ל-"מימין לשמאל", זה יתקן את המיקום של הנקודה.

[אוריי]

@odeddvir
את האמת נתקלתי בבעיה הזו וכבר סידרתי את זה על פי זה..
אבל לך מגיע הקרדיט משום תועלת הרבים...