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

[אוריי]

התקדמות אבל....
הצלחתי בעיצוב מותנה שאם הערך בחיפוש הוא שווה ל אז הוא יסמן לי את כל התא בצהוב אמנם ישנם 2 בעיות

1. הצלחתי לעשות את זה על כל התא שבו נמצא המלל אבל לא רק על התוצאה
2. א"א משום מה בעיצוב מותנה לעשות אופציה של מכיל אלא רק שווה ל
   

אולי יש פתרון בקוד vba??

[רחמים]

@אוריי בWPF היית עושה את זה בקלי קלות, נראה לי שתוכל ליצור פקד מותאם אישית בWPF ולישתול אותו בחלון אקסס שלך, יש לזה כמה דרכים.

[אוריי]

@רחמים
אשמח אם תוכל לפרט לי
או להראות לי דוגמאות שעשית...

[רחמים]

@אוריי אם אני צריך תוכנה עם תכנות כל כך מתקדמות, אני עושה אותה מלכתחילה בWPF ולא באקסס. כך שאין לי דוגמא להראות לך.

[אוריי]

@רחמים
ברמת העיקרון זה סוג של מותרות בתוכנה הזו כך שזה לא דחוף אבל מאידך זה יכול להקל מאוד
לגבי זה שאין אופציה בעיצוב מותנה לעשות מכיל יש פתרון?

[רחמים]

@אוריי רעיון נוסף, אולי יותר פשוט מפקד WPF, לשים פקד דפדפן, שכבר קיים באקסס, ובתוכו לשים דף HTML עם כל הנתונים בצורת טבלה, ובדף זה תוכל כבר בקלות לתת רקע צהוב איפה שתרצה ללא הגבלה. ואם אתה צריך אינטרקציה בין אקסס לHTML זה גם אפשרי.
רק מעניין מה יקרה לפקד דפדפן בוינדוס 11 שם שמעתי שלא יהיה IE כלל.

[אוריי]

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

ואם אתה צריך אינטרקציה בין אקסס לHTML זה גם אפשרי.

??

[אוריי]

@רחמים
עוד שאלה יש לי אם אני עושה את זה עם פקד 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
את האמת נתקלתי בבעיה הזו וכבר סידרתי את זה על פי זה..
אבל לך מגיע הקרדיט משום תועלת הרבים...