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

נעזרתי ב gpt וזה עובד כולל החלפת גופן

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 face=FrankRuehl size=5>"
    Dim closeTag As String
    closeTag = "</font>"

    FindAndHit = Replace(text, findWhat, openTag & findWhat & closeTag)

End Function

@pcinfogmach לא עובד כתבתי כך

openTag = "<font style=""font-size:50%"">"

יש לי את הקוד הבא ש@רחמים הביא לי כאן

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

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

לאחר בדיקה אני רואה שאפשר לקשר 2 db

@avi-rz
אני מבין לפי תשובתך שלא ניתן לנהל קשרי גומלין בין 2 קבצי db שונים ללא קשר לקובץ תוכנה
כלומר יש 3 קבצים
1 תוכנה
2. db שו"ת
3 db משתמשים

ולנהל קשרי גומלין בין 2 ל3...
נכון...

@יוס זה ממש מוזר!
חיפשתי אפשרות להגדרות ולא מצאתי כלום.

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

שים לב כתוב המסלול המהיר ביותר
לעומת זאת לוויז יש את נתוני האמת ועל כן הוא נותן את המסלול הקצר
תנסה לעשות חיפוש בוויז בשעות 8 בבוקר כשסוקולוב עמוס או ב4-6 בצהריים ותראה מה התוצאה

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

@avi-rz
יש לי שני קבצים 1 של ה db והשני תוכנה (כלומר קובץ מפוצל) כבר כתבתי לעיל אבל לא במפורש
@אוריי כתב בהתייעצות | עדכונים לחלק מטבלאות אקסס - או לנהל 2 db:

לעשות שהמשתמשים והמבחנים יהיו על התוכנה ולא בdb אני גם לא יכול כי יש לתוכנה הזו ג"כ עדכונים

משמע שיש שני קבצים
לכל מחשב יש קובץ משלו ואין חיבור בין מחשבים גם זה כתבתי
@אוריי כתב בהתייעצות | עדכונים לחלק מטבלאות אקסס - או לנהל 2 db:

התוכנה הזו משמשת כמה מחשבים באופן מקומי כל אחד לחוד.
@avi-rz כתב בהתייעצות | עדכונים לחלק מטבלאות אקסס - או לנהל 2 db:
המבחנים מורכבים מהשאלות והתשובות ע"י קישור אליהם או שהשו"ת מעותק למבחנים?

ע"י קישור

הנה צילום מסך של קשרי גומלין

@avi-rz כתב בהתייעצות | עדכונים לחלק מטבלאות אקסס - או לנהל 2 db:

אבל מלמעלה, אם יעזור לך לעשות 2 קבצי DB (על אף שזה אפשרי, לחבר את הנתונים ליותר מקובץ אחד), אז למה שלא תחליף רק את הטבלאות הנ"ל,

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

שלום וברכה לחברי הפורום היקרים!
יש לי שאלה באקסס שמטרידה אותי הרבה זמן וכדלהלן:

יש לי תוכנה שבניתי שיש לי שם את הטבלאות הבאות

משתמשים
שאלות
תשובות
מבחנים
וכו' וכו'

הטבלאות מחוברות אחת בשניה בקשרי גומלין

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

@yossiz עברתי על הקישור ששלחת, וניסיתי והחזיר שגיאה ולאחר קריאה מעמיקה של הפוסט נכתב שם כך:
הערות על הקוד
חשוב. נמצא כי שגרות hash שגיאה בהגדרת Windows 10, 64 סיביות Office. עם זאת, בדיקה שלאחר מכן גילתה את הפתרון. פלטפורמת Windows חייבת לכלול את Net Framework 3.5 (כולל .Net 2 ו- .Net 3), גירסה ישנה זו, ולא רק את השירותים המתקדמים של Net Framework 4.8 שהופעלו בהפעלה וביטול של תכונות Windows. כאשר הוא נבחר שם, השגרה עבדה בצורה מושלמת.

קוד ה- VBA להלן יוצר את התקצירים עבור קודי hash MD5, SHA1, SHA2-256, SHA2-384 ו- SHA2-512, עבור מחרוזות, באחת מתבניות הפלט hex או base-64. קידודים אלה עושים שימוש בפונקציות המובנות של MS Office, ומספקים תוצאות עקביות. צוין כי יישומים מקוריים במקומות אחרים עבור אותם תקצירים יכולים להיות שונים מאוד בתפוקות שלהם. רק דוגמה אחת ניתנה עם פרמטר זרע או מלח (StrToSHA512Salt), ויש לציין כי פלט המחלקה HMACSHA512 שונה מגיבובי המחלקה SHAManaged שניתנו בשאר. הכיתות המנוהלות נותנות את התוצאות הטובות ביותר המדווחות באופן נרחב. שים לב להפניות VBA הדרושות לפעולה נכונה. תזכורת לכך ניתנת בכמה כותרות נהלים.*

בכל מקרה, מתכנתים יכולים למצוא את ערכי הגיבוב שלא השתנו במערך הבתים() ובנקודה זו הם נמצאים בבתים של 8 סיביות, כלומר, המספרים המייצגים את קוד ASCI כפי שהוא חל על ערכת שמונה סיביות מלאה, 256 תווים. הקוד שלאחר מילוי מערך הבתים() בכל אחד מהמקרים קובע איזו גירסה של ערכת תווי ASCI לספק. עבור ערכת תווים משושה, 0-9 ו- A עד F, ערכת הסיביות הכוללת מחולקת למספר כפול של ארבעה בתים, ולאחר מכן מוחזרת לשימוש. עבור קבוצת Base-64, אותיות קטנות, אותיות גדולות ומספרים שלמים בעיקר, תווים של שישה סיביות מיוצרים לפלט. שתי קבוצות אלה הן השימושיות ביותר כאן, שכן הן מורכבות מתווים נפוצים. ערכות ASCI 128 ו- 256 מלאות מדי בתווים אקזוטיים ולא מודפסים מכדי להיות שימושיים. עבור כל גרסת גיבוב ספירת הסיביות שלה היא קבועה, ולכן אורך הפלט שלה ישתנה בהתאם לסוג שנבחר.

וכפי שאני מבין אני צריך להיות מוגבל עם הקוד הזה שזה יעבוד רק למי שמותקן אצלו Net Framework 3.5 (כולל .Net 2 ו- .Net 3) שהיא גירסה ישנה ואני רוצה שיעבוד לכל מי שאני מביא לו את התוכנה (קודים מעין אלו הgpt הביא לי בכמויות...)

@yossiz אני יודע שיכול להיות שלא כתבתי מעולה..
אני הגעתי למצב שבו אני צריך לכתוב את זה כי כל קוד שקיבלתי מ gpt החזיר שגיאה ולא היה לי כח להתאמץ ולמעשה התייאשתי מלכתוב את הקוד כלל.
דא עקא יום אחד עלה לי רעיון בענין הזה וכך מצאתי את עצמי יושב וכותב את הקוד הזה ובדקתי מול gpt והתשובה שלו הייתה שלא ניתן להחזיר את הגלגל אחורה היות וקיימים מספר פעמים של הכפלה וחילוק ואין לו שום אפשרות לדעת כמה פעמים זה נעשה ואם אני רוצה לקבל קוד שידבג אחורה אני צריך להביא לו את הסיסמה המקורית
אמנם ידעתי שכנראה לא כתבתי מעולה ואני רוצה לדעת מה הטעויות ואיך ניתן לשפר אותו לרמה מקצועית.

כתבתי קוד משלי לשמירת סיסמאות בdb אקסס
זה הקוד:

Public Function EncryptString(str As String) As String
    Dim i As Integer
    Dim encryptedStr As String
    Dim Doubl As Long
    Dim todivide As Long
    Dim encoded As Long
    encryptedStr = ""
    
    For i = 1 To Len(str)
    
    If i - 1 < 1 Then todivide = Len(str) Else: todivide = i - 1
    If i + 1 > Len(str) Then Doubl = 1 Else: Doubl = i + 1
    encoded = Asc(Mid(str, i, 1)) * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
    If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Do While encoded >= 191
            encoded = encoded - 191
            If encoded = 32 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
            If encoded = 13 Then encoded = encoded * Asc(Mid(str, Doubl, 1)) / Asc(Mid(str, todivide, 1))
        Loop
        encryptedStr = encryptedStr & Chr(encoded)
    Next i
    
    EncryptString = encryptedStr

End Function

התוצאות של הקוד שהזנתי הם

M›rG
cfoq

האם אפשר לדבג אותם אחורה או שכתבתי מעולה?

@מלא ואההווו
לא הכרתי את זה זה נשמע באמת הרבה יותר מעולה וקל לתפעול + בלי קריאה של המשתנים ותפעול קליל.
עריכה: המעלה העיקרית שלו שהמשתנה לא מתאפס בזמן שגיאת ריצה (כלשונם)
תודה רבה.

@pcinfogmach תודה רבה!
כנראה שכאשר חיפשתי לא מצאתי אותו.

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

יש לי שאילתה מוצלבת באקסס שמורכבת מתורמים ותרומות באופן הנ"ל

| קוד תורם | שם תורם וכו' | תשס | תשסא|תשסב| וכו' |

כל עמודה של שנה מסכם לי את התרומות של תורם XXX כלפי אותה השנה.

כעת אני מכניס את נתוני 3 השנים האחרונות ע"י סינון בכותרת עמודה כך:

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

זה הקוד sql של השאילתה המוצלבת שמקבלת נתונים של השדות "תשפב","תשפג","תשפד" בתוך ה ? :
סליחה על העברית:

TRANSFORM Sum(תרומות.סכום) AS Sumמתוךסכום
SELECT [רשימת תורמים].קוד_תורם, [רשימת תורמים].שם_משפחה, [רשימת תורמים].שם_פרטי, [רשימת תורמים].כתובת, [רשימת תורמים].[מס'], [רשימת תורמים].דירה, [רשימת תורמים].[לא לפקוד], [רשימת תורמים].נפקד, [רשימת תורמים]![קוד_קטגוריות] & " " & [רשימת תורמים]![הערות] AS הערות, [רשימת תורמים].טלפון, [רשימת תורמים].טלפון_נייד, [רשימת תורמים].[זמן איסוף], [רשימת תורמים].קטגוריה_כן_לא, [רשימת תורמים].[קוד אזור], [רשימת תורמים].עיר
FROM [רשימת תורמים] LEFT JOIN תרומות ON [רשימת תורמים].קוד_תורם = תרומות.קוד_תורם
GROUP BY [רשימת תורמים].קוד_תורם, [רשימת תורמים].שם_משפחה, [רשימת תורמים].שם_פרטי, [רשימת תורמים].כתובת, [רשימת תורמים].[מס'], [רשימת תורמים].דירה, [רשימת תורמים].[לא לפקוד], [רשימת תורמים].נפקד, [רשימת תורמים]![קוד_קטגוריות] & " " & [רשימת תורמים]![הערות], [רשימת תורמים].טלפון, [רשימת תורמים].טלפון_נייד, [רשימת תורמים].[זמן איסוף], [רשימת תורמים].קטגוריה_כן_לא, [רשימת תורמים].[קוד אזור], [רשימת תורמים].עיר
ORDER BY [רשימת תורמים].כתובת, [רשימת תורמים].[מס']
PIVOT תרומות.שנה In ("תשפב","תשפג","תשפד");

ניסיתי לכתוב כך אך אני מקבל שגיאה:

PIVOT תרומות.שנה In (vbYear(,True));

הוספתי אופרטורים אך לא מחזיר כלום

יצרתי שאילתה שמחזירה את 3 השנים באופן הבא

SELECT Years.HebrewYear FROM Years WHERE (((Years.[true])=True));

ובSQL

PIVOT תרומות.שנה In (SELECT Years.HebrewYear FROM Years WHERE (((Years.[true])=True)););

ומקבל

ובהוספת אופרטורים

האם יש פתרון???!!!
אני מבקש שוב אני רוצה תוצאה של דינמאי (כלומר שלא כל שנה אני צריך לעשות מעבר שנה אלא יזהה מה השנה הנוכחית ויעבוד לבד).

תודה רבה מראש.

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

@קומפיונט כתב בקוד באט לסגירת תוכנית:

אם אתה רוצה גישה למנהל המשימות בחדר מחשבים, אתה יכול להוריד את systeminformer.

יעזור למקרה ספציפי.... היות והתוכנה תימחק לאחר סגירת המשתמש (או בסוף יום תלוי לפי הגדרת המנהל).
הקובץ הזה אני יכול לשמור בכונן האישי או בדיסק אונקי.

@ivrtikshoret
תודה רבה, עזר לכבות בכפיה תוכנה סוררת שנתקעה לי בחדר מחשבים (שהרי אין שם גישה למנהל המשימות) במקום לסגור את המתמש ולפתוח.