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

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

@OdedDvir
יש לי פקד בטופס בשם 'נערך' (שגם מקושר לשדה בשם זה בטבלה), והיה קוד לאחר עדכון על חלק מהשדות בטופס שיתן ערך True בפקד הזה.
אבל לא היה קוד על הפקד עצמו שלאחר עדכון יעדכן את עצמו. אז לכאורה לא אמורה להיות לולאה אין סופית. לא?
מה שבאמת עשיתי בסוף (מניחוש, לא מידיעה) זה קוד אחד 'לאחר עדכון' על הטופס שישנה את הערך בטבלה ע"י שאילתת עדכון ולא את הפקד בטופס.
אז שאלתי היא: 1. למה התרחשה שגיאה אם לא אמורה להיות לולאה. ו2. האם מה שעשיתי זה באמת הפתרון הטוב ביותר?
תודה!

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

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

@חייםיודלביץ תודה.
אבל אני גם מעוניין לחסום אפשרות של מעבר לחלון אחר בווינדוס ע"י Alt+Tab לדוג'.
בעצם להפוך את התוכנת אקסס לקיוסק.

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

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

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

1. כמו שיש לך, רק עם סינון כך:

        Dim EditAbsent As Recordset
        Set EditAbsent = CurrentDb.OpenRecordset("select * from [רשימת תורמים] where קוד_תורם = 1")
        
        EditAbsent.Edit
            EditAbsent!נפקד = True
        EditAbsent.Update

2. לעשות פשוט שאילתת עדכון בלי צורך בRecordSet, כך:

Currentdb.Execute "update [רשימת תורמים] set [רשימת תורמים].נפקד = true where קוד_תורם = 1"

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

@אוריי אולי אתה צריך לשנות את ההגדרות של הטבלה/השאילתה שעליה בנוי הטופס.

@אוריי ולפקדים האלו אין קוד?

@אוריי מתי איך ולמה זה קורה?
איזה קוד מקפיץ את זה?
קצת פרטים אם אפשר...

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

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

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

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

@אוריי תנסה כך:

Declare PtrSafe Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
    hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
    lpParameters As String, ByVal lpDirectory As String, ByVal nshowcm As Long)

Public Function PrintImage()
ShellExecute(Application.hWndAccessApp, "Print", ImagePath, vbNullString, CurDir, 1)
End Function

שבוע טוב.
יש לי קישור לקובץ pdf שאני מעוניין להדפיס אותו. כרגע יש לי קוד VBA שעובד להורדה ושמירה של הקובץ במחשב:

Dim request As WinHttpRequest

Set request = New WinHttpRequest

request.Option(0) = "curl"
request.Open "GET", url, False
request.send

URLDownloadToFile 0, request.Option(1), "C:\Users\1\Downloads\test.pdf", 0, 0

request.abort
Set request = Nothing

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

Declare PtrSafe Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
    hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
    lpParameters As String, ByVal lpDirectory As String, ByVal nshowcm As Long)

Public Function Print()
ShellExecute(Application.hWndAccessApp, "print", path, vbNullString, vbNullString, 0)
End Function

אני הוא לא מדפיס לי אותו.
מה אפשר לעשות?
תודה רבה!

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

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

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

@אוריי

DoCmd.OpenReport "דוח", acViewPreview, , (([מספר איזור] >= 1 And [מספר איזור] <= 5))

עריכה: עכשיו אני רואה שכתבת שכבר בשאילתה מסוננים המספרי איזור, אז איפה הבעיה נמצאת?

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

@חייםיודלביץ כתב בקיצורי מקלדת באקסס:

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

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