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

@OdedDvir אמר ב[שימוש בפרמטרים בשאילתת עדכון

אגב, מדוע שינית את הקוד ומה הרווחת בזה?

ניסיתי בדיוק כמו שכתבת וזה החזיר שגיאה

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

@OdedDvir אמר בשימוש בפרמטרים בשאילתת עדכון באקסס:

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

ID   | UpdatedOn
100  | 10/01/2020
101  | 10/01/2020

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

@OdedDvir
תודה רבה !!!
עשיתי את זה כך:

Dim iMonth, iYear As Integer
iYear = InputBox("הזן שנה")
iMonth = InputBox("הזן חודש")

    Dim db As DAO.Database
    Set db = CurrentDb
    Dim qryDef As DAO.QueryDef
    Dim selectSQL As String
    Dim fieldName As String
    fieldName = "חודש " & iMonth & "/" & iYear
    Dim SQL As String
    
    Dim newSelectSQL As String
    newSelectSQL = "UPDATE ראשי LEFT JOIN חודשי ON [ראשי].[מזהה]=[חודשי].[מזהה] SET ראשי.[" & fieldName & "] = IIf(Not (IsNull([חודשי].[Name])),'1','') WHERE Nz([ראשי].[" & fieldName & "],0)=0;"
    With db.QueryDefs("1234")
        .SQL = newSelectSQL
    End With
    
    DoCmd.OpenQuery "1234"
    
    Set qryDef = Nothing
    Set db = Nothing

@OdedDvir אמר בשימוש בפרמטרים בשאילתת עדכון באקסס:

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

אני צריך לדעת למי עדכנתי בכל חודש, יש דרך אחרת לעשות את זה בלי עמודה חדשה בכל חודש?

@dovid
ברוב הפעמים
לא בכל הפעמים

@OdedDvir
תצוגת SQL :

UPDATE ראשי LEFT JOIN חודשי ON [ראשי].[מזהה]=[חודשי].[מזהה] SET ראשי.[חודש 08/20] = IIf(Not (IsNull([חודשי].[Name])),"1","")
WHERE ((([ראשי].[חודש 08/20]) Is Null Or ([ראשי].[חודש 08/20]) Like 0));

מה שאני רוצה הוא שאוכל לכתוב משהו כמו:

[חודש [הזן חודש]/[הזן שנה]]

במקום:

[חודש 08/20]

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

יש לי בטבלה עמודות כאלה

[חודש 08/20] [חודש 09/20]

כרגע אני עושה כל חודש שאילתה חדשה.
אני רוצה לעשות שאילתה אחת, וכל חודש אני אזין את החודש ואת השנה
אני רוצה לעשות משהו כמו:

[חודש [הזן חודש]/[הזן שנה]]

@OdedDvir
@יאירמשה
מצאתי איך לכתוב את זה בטבלה

IIf(IsNull([A]),0,[A])+IIf(IsNull([B]),0,[B])

ככה עובד טוב (אותיות גדולות)

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

iif(isnull([A]),0,[A])+iif(isnull([B],0,[B])

תודה רבה לכולם

@OdedDvir
בשאילתה עובד טוב
יש דרך לעשות את זה גם בשדה מחושב בטבלה?

@יאירמשה
מחזיר שגיאה

עשיתי שדה מחושב בטבלה
כתבתי:

[A]+[B]+[C]+[D]

יש לי שורות בטבלה שבחלק מהשדות A B C D לא כתוב שום דבר.
הבעיה היא שבשורות אלו השדה המחושב לא מציג את התוצאה.

לדוגמה באם בשורה 2 , שדה B ריק (ושאר השדות מלאים), אז השדה המחושב לא מציג את התוצאה.

הסדרתי
כתבתי כך:

הסכום בשקלים לאחר חישוב דולרים: IIf([מטבע]=$,Round([סכום]*[הזן שער הדולר],3)) & IIf([מטבע]=₪,Round([סכום]*1,3))

עובד מצויין

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

הסכום בשקלים לאחר חישוב דולרים: Round([סכום]*[הזן שער הדולר],3)

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

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

@שיראל
אם זה מסובך מידי בשבילך ניתן לפנות לגמ"ח 'ובערת הרדיו' או ל'לכתחילה'

@שיראל
פתחת פעם מכשיר כלשהו?
אתה יכול לפתוח נגן?

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

@שיראל
אתה יכול לפתוח את הנגן לבד?

@שיראל
ניתוק פיזי?

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

ניסיתי עכשיו להטמיע מציג pdf כמפורט כאן ואני מקבל שגיאה

@OdedDvir
השתמשתי עם זה

אחרת, יש בStack פתרון על ידי קובץ Batch. עיין כאן. תוכל להתאים אותו בקלות לצרכיך

עובד טוב מאוד
תודה רבה

@OdedDvir
הקבצים בתיקיה הם
אני רוצה להחליף את השמות לפי רשימה בקובץ טקסט
לדוגמה 12.txt

אני רוצה שזה יחליף לפי סדר הקבצים בתיקיה
ויקח את השמות החדשים לפי סדר השורות בקובץ טקסט