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

@katz עכשיו לא בדקתי. אבל אתמול בערב עבד.

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

@OdedDvir לא.

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

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

@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

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