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

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

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

1. תא ריק - כאשר צפוי ערך
2. תא אפור (ונעול) - כאשר לא צפוי ערך.

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

ובתיקיה שנפתחת לחפש את הגרסאות הקודמות.

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

C:\Users\<שם_המשתמש_שלך>\AppData\Roaming\Microsoft\Word

אפשר לנסות גם כאן:

C:\Users\<שם_המשתמש_שלך>\AppData\Local\Microsoft\Office\UnsavedFiles

ניתן לראות את הגדרות אלו בתפריט קובץ > אפשרויות

@laswater זו שאלה שחורגת מהנושא המקורי, וראוי שתפתח נושא חדש עבורה.

@פשוט-אבל-תותח בבקשה:

1. תייבא את הספריה VBA-JSON מכאן. תוריד את הקובץ bas ותייבא לפרוייקט שלך.
2. תוסיף הפנייה לספרייה "Microsoft Scripting Runtime".
3. הקוד הבא שולח בקשת GET ומחזיר מחרוזת של התוכן:

Public Function HttpGet(url As String) As String
    Dim httpRequest As Object
    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim res As String
    
    httpRequest.Open "GET", url, False
    httpRequest.Send
    HttpGet = httpRequest.responseText
End Function

4. את התגובה אתה צריך לפרסר עם הספריה VBA-JSON.
   הנה דוגמא לשימוש ב-API של טסטים, שמחזיר נתוני דמה של משתמשים, ושליפת ערך השדה "firstname" מהתגובה:

    Dim res As String
    Dim json As Object
    
    res = HttpGet("https://jsonplaceholder.typicode.com/users/1")
    Set json = ParseJson(res)
    
    MsgBox json("username")

התוצאה:

@פשוט-אבל-תותח חשבתי שגם לך זה הרגיש קצת מלוכלך, לא? כי טכנית אפשרי לעשות את זה בצורה סגורה באקסס, כמו שציינתי, בלי להרגיש שאני צריך לנצל את הרכיב שיש באקסל, בגלל שמייקרוסופט העדיפו לפתח אותו על פני אקסס. היה ראוי להוסיף פיצ'ר כזה גם לאקסס, בלי להיעזר בכל מיני תוספים כדי לשלוח בקשת http או לפרסר json.
בנוסף, טעיתי שכבר יש לך את זה עובד באקסל, והצעתי דרך קלה.

@פשוט-אבל-תותח אני מעז לטעון שזה פתרון אמיתי ונורמלי.
האלטרנטיבה היא ליצור בקשת http מתוך אקסס ולפרסר את התגובה לתוך טבלה. אם הנתונים הם ב-json אתה יכול להשתמש בספריה VBA-JSON.
אמנם בדרך הזו הכל יהיה ארוז באקסס, אבל זו עבודה קשה ואני מסתפק אם זה ישתלם לך.

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

@אורח-פורח לכל שפה יש אפשרות להגדיר כמה פריסות מקשים. אתה צריך לבדוק שאין לך דברים כפולים או מיותרים גם שם.

@Y-Excel-Access כתב בקובץ אקסס שלא מוכן להתקפל:

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

לא כ"כ כדאי לשכנע אותו, עדיף לנסות להבין את הסיבה לסירוב שלו.
למעשה יש כאן תרי גווני קימפול:

1. קימפול של הקוד בקובץ accdb
2. קימפול של הקובץ accdb לקובץ ריצה accde

את 1 אתה אמור לבצע באופן סדיר בכל פעם שאתה עושה שינוי בקוד, על ידי בחירה מהתפריט: Debug>Compile בעורך ה-VBA:

אם 1 לא מצליח - היה סמוך ובטוח שגם 2 לא, אין לך מה לנסות.
צרף את הודעת השגיאה שאתה מקבל ונראה.

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

@one1010 אני לא מפחד מלכתוב קוד ארוך, אבל אני נרתע מלהתחיל לכתוב אפילו שורה אחת בלי לדעת בדיוק מה המטרה. אתה יכול להגדיר בדיוק את סוגי המחזוריות המבוקשים?
לדוגמא:
א. דילוגים של טווח קבוע של ימים, כשהטווח נע מ-1 עד 25
ב ימים זהים בחודשים עוקבים
ג. ימים עוקבים בחודשים עוקבים
וכו'

@one1010 כתב במאקרו רץ בלולאה:

For i = 1 To rangeToCheck.Count - 2
For j = i + 1 To rangeToCheck.Count - 1
For k = j + 1 To rangeToCheck.Count

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

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

@מעלה-ומוריד כתב בבאפליקציות אתחול "משהו":

ההודעה הנ"ל מתקבלת בנסיון לפתוח מאפיינים של 'משהו', לכאורה היא מלמדת על כך שהקובץ לא קיים, לא?

כנראה שהוא כבר לא קיים (או שהגישה אליו חסומה).

לא הבנתי, תיקית ההפעלה היא תיקיה זמנית?

כן. אתה יכול לנסות לנווט לנתיב הנ"ל ולראות אם הוא שם. רק תציג קבצי מערכת קודם.

@מעלה-ומוריד לפי הנתיב זה קובץ שחולץ מארכיון RAR, והצמיד את עצמו לרשימת ההפעלה.
Windows ממקמת את הקבצים בתיקיה זמנית כעין זו, במקרים שונים:

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

בכל מקרה אני הייתי מוחק את הקובץ, עד שיתברר מוצאו ויעדו.

@ארי האם באירוע עריכה (לפני\אחרי) של הטופס היה קוד?

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

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

@Y-Excel-Access כתב באכסס - פתיחת שני טפסים במקביל:

אי אפשר לפתוח טפסים שאינם מודולריים.

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