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

@one1010 ניסיתי כולל סגירה של הדפדפן ולא עזר.
יש סינון של אתרוג

@NH-LOCAL שניהם לא עזרו לי

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

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

וכן אם אפשר לצרף את אתר אמס (קול חי לשעבר)

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

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

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

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

שים לב: יש הרבה עסקים שלא רוצים להיות רשומים באתרים משום שלא רוצים שירשמו עליהם דברים שליליים ולא מפני שהם פושעים אלא משום איזה לקוח שלא היה מרוצה או תקרית שיכולה לקרות עם כל לקוח, והלקוח החליט שהוא הולך ללכלך עליו שאף אחד לא יבוא לקנות [חוץ מאיסורי לשון הרע שגם אם זה אמיתי איני חושב שיש בזה היתר כלשהו].
תוכל לתת אופציה של לדרג את העסק עם אפשרות של לייק או דירוג של 5 כוכבים ולתת ממוצע וכדומה, זה כבר יתן אינדקציה של עסק מוצלח או לא.

נעזרתי ב 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

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

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