תחומים - פורום חרדי מקצועי

@חייםיודלביץ
זה מה שהוא דורש
זה באמת תוכנה חינמית אבל חלק מהתכונות שלה עולה כסף.. כמו הגבלה של חלק מהמשתמשים..

@חייםיודלביץ
זה באמת אפשרי אבל לתכונה הזו הוא דורש רישיון
יש תוכנה אחרת?? או כזו פרוצה?

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

ואז אפשר להוריד
השאלה היא האם אפשר באיזו שהיא דרך להוריד את כולם בבת אחת ... ???

@חייםיודלביץ
זה נועל בכל המחשב או רק משתמש 1 במחשב?

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

@אוריי אתה מחפש תוכנה לחסימת גישה לתוכנה מסיומת, או חסימת כל המחשב ונתינת גישה רק לתוכנות מסוימות?

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

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

@dovid צודק,
אני בדיוק לפני שתי דקות אחזתי את הטעות.

@avi-rz אמר בנוסחה באקסל:

אולי תכניס את התא שממנו אתה רוצה לשלוף את הערך לתוך nz

nz זה פונקציה של אקסס ושפת vba אבל אין נוסחת nz באקסל

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

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

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 היקר הרבה תודה על הרעיון חיסכון של מלא זמן (והרבה הרבה.... )
וכמובן ל @חייםיודלביץ

מצאתי את ההגדרה
TextFormat
כדי לשנות לטקסט עשיר

me.<שם תיבת טקסט>.TextFormat=acTextFormatHTMLRichText

וכדי לשנות לטקסט רגיל

me.<שם תיבת טקסט>.TextFormat=acTextFormatPlain

אני רוצה לשנות לתיבת טקסט את התבנית טקסט מטקסט עשיר לרגיל ולהיפך ע"י קוד vba

איך אני אמור לכתוב את זה?

@clickone
כתבתי כך

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

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

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

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

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

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

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

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

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

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

??

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