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

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

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

@אוריי כתב באקסס | קבלת עמודות בשאילתה מוצלבת באופן דינאמי:

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

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

תנאי מוסיפים בשאילתה עצמה, לדוגמא:

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

👈 עוד נקודה חשובה: לא שמים ; אלא בסוף השאילתה, ולא בשאילתות משנה.
👈 נ.ב. ברשומות רבות שאילתה כזו יכולה לקחת זמן בטעינה בגלל שבעצם היא יוצרת שאילתה נוספת בכל שורה, שקול להכניס גם את טבלת השנים ב left join.

@אוריי
תירגמתי בעבר תוסף לוורד שעושה בדיוק את הפעולה הזו
https://mitmachim.top/post/661445
ושילבתי אותו בתוך התוסף שלי לוורד
אולי ניתן יהיה להתאים את קוד המאקרו שבתוסף ההוא ליוז-קייס הספציפי שלך

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

@אוריי על בעיה זו עניתי פה

א) השדה הוא Hash ולא MD5
ב) תשתמש בדגל -PassThru

את האמת הוודעתי ל Powershell רק בשבועות האחרונים והוא פשוט כלי שמדהים אותי ממש כל פעם מחדש
כל יום "יהיו בעיניך כחדשים"

@yossiz לאחר בדיקה מחודשת מול תיקייה ריקה (מסתבר שמשום מה בתיקייה הקודמת שבדקתי היא לא הייתה ריקה משום מה)
השורה הזו עדיין מחזירה שגיאה של null

$changes = Compare-Object (Coalesce $folder1Items @()) (Coalesce $folder2Items @()) -Property Name,Path -IncludeEqual

לאחר בדיקות הוספתי בערך להחלפה "0"
כך

$changes = Compare-Object (Coalesce $folder1Items @("0")) (Coalesce $folder2Items @("0")) -Property Name,Path -IncludeEqual

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

לתועלת הציבור הקוד הזה עובד מעולה

$folder1 = "X:\Test" $folder2 = "X:\MyBackup\Test" $folder1Items = Get-ChildItem $folder1 -Recurse | Get-FileHash -Algorithm MD5 $folder2Items = Get-ChildItem $folder2 -Recurse | Get-FileHash -Algorithm MD5 $changes = Compare-Object $folder1Items $folder2Items -Property Name, Path -IncludeEqual $updated = $changes | Where-Object {$_.SideIndicator -eq "<="} $updated | ForEach-Object { $ww = (Get-Item $_.Path).DirectoryName.replace($folder1,$folder2) if (!(Test-Path -path $ww)) { New-Item $ww -Type Directory } Copy-Item $_.Path $ww -Force }

כמובן שיש לשנות את הנתיבים

@dovid כתב בתו אופצונאלי בהחלפה בוורד:

זהו, קיבלנו מעל 90 אחוז החלפה מדוייקים, מדוייקים יותר מבינה מלאכותית (שמנצחת בתחום האי ודאות - אלו שלא טיפלנו).

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

@Y-Excel-Access
אני כל כך ניחשתי לעצמי שזה משהו טיפשי למדי כך שהתעצלתי במשך לילה שלם לכתוב כאן שאלה ...
כנראה שלא חישבנתי את מרפי...

@אוריי לכאו' יש שתי אפשרויות.

כמו שיש לך, רק עם סינון כך: Dim EditAbsent As Recordset Set EditAbsent = CurrentDb.OpenRecordset("select * from [רשימת תורמים] where קוד_תורם = 1") EditAbsent.Edit EditAbsent!נפקד = True EditAbsent.Update לעשות פשוט שאילתת עדכון בלי צורך בRecordSet, כך: Currentdb.Execute "update [רשימת תורמים] set [רשימת תורמים].נפקד = true where קוד_תורם = 1"

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

מצאתי את הבעיה
יש להיכנס למאפיינים > הגדרות לקוח > מימין לשמאל
לסגור ולפתוח את האקסס מחדש..
ורק אח"ז יש להעביר את הטופס משנה לטופס.
תודה רבה לכולם
c17f87e1-f888-469e-a1e2-b75bac20c3d9-image.png

@ארי
לאחר בדיקה מקיפה שעשיתי נפתרה הבעיה
הבעיה הייתה בקוד של ההדפסה שהבאת לי בשרשור השני פשוט החזירה שגיאה

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

@אוריי
א. איפה שכתוב ImagePath צריך להכניס את הנתיב של התמונה.
ב. תוריד את הסוגריים מהשורה למטה.

@ארי כתב בהדפסת דוחות ממספר עד מספר | אקסס:

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

@אוריי ניסית את זה?

DoCmd.Minimize

ממזער את הטופס הפעיל.

@אוריי צור שאילתה קטנה כזו:

SELECT מזהה_תורם, MAX(מזהה_תרומה) AS מזהה_תרומה FROM תרומות GROUP BY מזהה_תורם

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

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