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

@דוב אמר במסך LCD לשלט של מזגן.:

האפליקציות הקיימות באמת משוכללות מספיק לכל הרעיונות שביקשו לעיל? (מסתמא)

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

רוב העם לא כאלו "משוכללים" ומפעילים את המזגן במודים שונים בתקופות שונות של היום (בעיר בשבת וחג) ולכן לא בונים את זה באופציה הזו אלא בהפעלת מוד אחד בכל פעם. (קירור/חימום)

לדעתי, אם מישהו יבנה דבר כזה יהיה לזה ביקוש חזק

ב"ה מצאתי גיבוי "בגרסאות אחרונות" במאפייני התיקיה.

פתרונות
https://www.digitalwhisper.co.il/files/Zines/0x6B/DW107-1-Mossad2019.pdf

נסה את זה
https://trello.com/

הזמנתי כפתור באלי אקספרס ב 2 ש"ח, מקווה שזה כולל את החתיכה הקטנה בתוכו.
https://www.aliexpress.com/item/SZS-Hot-Plastic-kitchen-gas-stove-stove-oven-control-rotary-knob-black/32819925544.html

התוצאות הסופיות כמעט
תוצאות הבחירות - להפצה.docx

@yits כל הכבוד שאתה טורח לעדכן בתוצאות! אני פשוט התייאשתי והתקנתי הכל.. ישר כח!

@yossiz עקרונית כן.

@clickone
אגב בתור משתמש אקסס VBA בעבר אולי זה יעניין אותך.

היה לי טבלה בשם settings שהכילה את ההגדרות, שיניתי לקובץ INI.

הקריאות להגדרות שהיו בתוך הקוד שיניתי בקלות, הפנתי את כולם לפונקציה של GetConfigValue שמקבל פרמטר מתוך רשימת Enum.
הבעיה הייתה עם מאפיינים של פקדים בתוך הטפסים שקבלו את הנתון דרך DlookUp,
בשביל זה השתמשתי עם הפונקציה הנ"ל והוספתי לה את השורות הבאות:

If propLoop.NAME = "DefaultValue" Then DoEvents Debug.Print "Me." & ctrl.NAME & ".DefaultValue = " propLoop.value propLoop.value = "" End If

מצאתי פתרון (אני מעלה לכאן לאחרים שיחפשו תשובה).
הוספתי Debug.Print Time כדי לראות כמה זמן זה לוקח.
וזה לקח לי בערך 3 שניות.

Function SystemOnline(ByVal ComputerName As String) Debug.Print Time ' This function returns True if the specified host could be pinged. ' HostName can be a computer name or IP address. ' The Win32_PingStatus class used in this function requires Windows XP or later. ' Standard housekeeping Dim colPingResults As Variant Dim oPingResult As Variant Dim strQuery As String ' Define the WMI query strQuery = "SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "'" ' Run the WMI query Set colPingResults = GetObject("winmgmts://./root/cimv2").ExecQuery(strQuery) ' Translate the query results to either True or False For Each oPingResult In colPingResults If Not IsObject(oPingResult) Then SystemOnline = False ElseIf oPingResult.StatusCode = 0 Then SystemOnline = True Else SystemOnline = False End If Next Debug.Print Time End Function

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

@dovid אמר בכנסו והצביעו: בעית אבטחה בגוגל פוטוס.:

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

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

@yits אמר בCustom MsgBox VBA:

עשיתי שם טלאי עבור RTL

אתה יכול לעשות טלאי גם לinputbox ?

@בערל מן הסתם התקבל מהקלטת תעבורה.

@WWW אמר בטריגר באקסס:

כנראה זה חייב להיות מאקרו DATA

גם אני עשיתי בדיקה ואפשר להפנות רק למאקרו DATA,
הכוונה למאקרו שיוצרים תחת "מאקרו בעל שם" (מופיע בתמונה למעלה).

חשבתי על דרך קצת מסורבלת
כשמשתנה נתון מסוים בטבלה לעשות פונקציה של CreatRecord על טבלה משנית
ולכתוב לשם את ה [OLD].[ID] ואת כל השדות שאתה מעוניין [OLD].[Field]
ואח"כ להריץ קוד רגיל כל X זמן ואם יש שורות בטבלה הזמנית לבצע את המשימה.

@yits אמר בהאם לעדכן ל 1809?:

גם בהתקנה נקיה או רק בעדכון.

אני עם התקנה נקייה, ולא קרס לי.

@yits מה לא טוב בתיקייה עם כמה קבצי טקסט כאשר שם הקובץ משקפת את המטרה של הקוד שבפנים?

@WWW הבעיה שהוא לא חבר שם ...