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

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

Private Sub Form_Load()
    'Catch keystroke before system does it
    Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift = 2 And KeyCode = 68) Then         'Ctrl+D
        MsgBox "Hey, You have pressed Ctrl+D!"
        'Do not pass over the keystroke to system
        KeyCode = 0
        Shift = 0
     End If
End Sub

הסבר:

1. באירוע טעינה של הטופס אני מגדיר את המאפיין KeyPreview להיות True, זה גורם לכך שהטופס יוכל "לתפוס" את ההקשה לפני שמערכת ההפעלה תעשה זאת. זה שימושי במקרה שצירוף המקשים שאני רוצה לטפל בו כבר משוייך לאירוע קיים ע"י מערכת ההפעלה, למשל Alt+F4 לסגירת הטופס.
   קוד זה אופציונאלי. אם הוא יושמט, אז מערכת ההפעלה תטפל בהקשה לפי ראות עיניה. למשל אם לחצת F1 - תיפתח העזרה, וכו'.
2. באירוע ירידת מקש של הטופס, אני בודק את שני הערכים של KeyCode ו- Shift. הואיל ובמקרה שלנו אנו מבקשים צירוף של מקשים Ctrl+D הערכים המתאימים הם Shift = 2 And KeyCode = 68.
3. בסיום הטיפול באירוע, אני מאפס את שני הפרמטרים הללו. גם הקוד הזה הוא אופציונאלי, אם הוא יושמט, מערכת ההפעלה תתיחס אף היא להקשה שלנו ביציאה מהפרוצדורה.

מייקרוסופט פירסמו רשימה של קודים קבועים מראש למקשים נפוצים כאן.

@מעמד ניסית לבדוק האם זה לכלוך?

@ארי נסה להוסיף גם את הכותרת הבאה:

    oHttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/59.0.3071.115 Safari/537.36"

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

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

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

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

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

@hp079 אם תצרף את נוסח השגיאה אוכל להתייחס.
הגרסא של @dovid יותר תיקנית, רק שבטעות נעלם ממנו ריפוד הרווחים מסביב לאופרטור, וצ"ל כך:

     result = result & col(i) & " " & operator & " "

אפשר גם לבודד כל תנאי על ידי סוגריים, כדי למנוע בעיות קדימות במקרים מסויימים:

      result = result & "(" col(i) & ") " & operator & " "
   Next
   result = result & "(" col(i) & ")"

@hp079 מתוך ההערה שלך, הערת את תשומת לבי שהייתה לי טעות בקוד המקורי שלי: בכל תנאי חדש אני דרסתי את התוכן הקודם של DynamicCondition במקום לשרשר אליו תנאי נוסף...

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

Dim DynamicCondition As String

Private Sub AddCondition(ByRef currentCondition As String, conditionToAdd As String)
Begin
   If (Len(currentCondition)=0) Then
      currentCondition = conditionToAdd
   Else
      currentCondition = currentCondition & " AND " & conditionToAdd
   End If
End

DynamicCondition=""
' Add first condition
If (Not IsNull(chkSet_ok)) Then AddCondition DynamicCondition, "Ok=" & CStr(chkSet_ok)
' Add second condition:
If (Not IsNull(chkDone)) Then AddCondition DynamicCondition, "Done=" & CStr(chkDone)
' Add more conditions
If (Only_Bar_Mitsva) Then AddCondition DynamicCondition, "Age>=13"
...
' Open report with all my conditions:
DoCmd.OpenReport "MyReport", acViewNormal, WhereCondition:=DynamicCondition

@Y-Excel-Access כתב בכתיבת טקסט בעברית באותיות אנגליות (ללא תרגום מילולי):

כל זה בהנחה שאין VISUAL STUDIO בממשק עברי.

ברוך שהצילנו מעונשו של אולפן חזותי התשפ"ג...

@hp079 כתב ביצירת מסנן לדו"ח באקסס עם תנאים:

DynamicCondition = IIf(Len(DynamicCondition) > 0, " AND ", "") & "agent LIKE %" & "agent" & "%"

יש לך גרשיים מיותרות מסביב למשתנה agent. אתה צריך לרשום כך:

DynamicCondition = IIf(Len(DynamicCondition) > 0, " AND ", "") & "agent LIKE %" & agent & "%"

כשה-agent האחרון בשורה מתייחס לשם של פקד תיבת הטקסט בטופס המכיל את שם הסוכן לחיפוש.

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

1. אוצר המילים הנדרש הוא מצומצם למדי (אולי 100 מילים נפוצות שחוזרות על עצמן)
2. המילים הנדרשות הן קלות לזכירה. גם מתכנתים הדוברים אנגלית כשפת אם, אמורים להשתמש במילים קצרות, פשוטות, ופשוטות לאיות, מהסיבה שיש לא מעט דוברי אנגלית שלא יודעים בדיוק איך לאיית.
3. תועלת עצומה למי שאמור לתחזק אחריך את הקוד.
4. אני מניח שאתה משתמש ב-IDE כלשהו, ובעידן ה-Intellisense אחרי שכתבת משהו פעם אחת, מכאן והלאה מסייעין בידך.

בהצלחה!

@yossiz אני גם לא למדתי את הנושא באופן מסודר, ומסתפק אם יש לי מה להוסיף לך בנושא, אבל כיון שביקשת:

בקצרה, RESTful API הוא סגנון עיצוב של ה-API בצורה [השואפת ל]כך שבקשות ה-HTTP שנשלחות אל ה-API יבצעו פעולה בהתאמה לסוג המתודה של הבקשה (HttpMethod), למשל:

POST ליצירה
GET עבור קריאה
PUT עבור עדכון
DELETE עבור מחיקה

וכן נקודות הקצה של ה-API יהיו במבנה מאורגן, בד"כ היררכי לפי סוג ישות\מזהה:

GET Users
GET Clients/123
DELETE Doctors/456

ויחזירו קודים מובנים, כמו 200 עבור success ו-404 עבור not found.
כך שה-API אמור להיות אינטואיטיבי.

ב-CRUD פשוט הכל טוב ויפה, עד שמגיעים לפעולות קצת יותר מורכבות, בהם לא ברור כל כך איך להיות RESTful "טהור".
לדוגמא: עדכון חלקי של רשומה (מישהו אי פעם השתמש ב-PATCH ?), שיוך ישות-צאצא לישות-אב (האם הנתיב של פעולת שיוך מטופל לרופא, צריך להיות PUT Doctors/1/Patients/4 או אולי PUT Patients/4/Doctors/1 ?)

כיוון ש-REST הוא לא ממש סטנדרט, כמו ש@dovid הזכיר, הכאוס חוגג וכל אחד מעקם את הכללים כרצונו, מתכנת מתחיל יכול ליצור API endpoints מוזרות, כמו:

POST Doctors/delete?doctorid=123
GET Doctors/all
GET Doctors/2/delete

ולשאלתך, דוד כבר ענה לך שלפי הספר הדרך היא ב.

@dovid אתה מתכוון שהשאלה היא כיצד לעצב את חווית המשתמש בעריכה של נתונים היררכיים? מהניסוח של @yossiz הייתי תחת הרושם שכוונתו לדון על העיצוב המומלץ לשכבת API בצד השרת, אבל כעת אני מבולבל עוד יותר... למה התכוון המשורר?

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

@yossiz אני מנסה להבין לאן אתה חותר. ברור לי שאין צורך לומר לך פוק חזי וכו' ואתה מכיר את הדרך המקובלת של RESTful API, על כל היתרונות והחסרונות שלה...
שמא אתה מחפש דרך יעילה ואלגנטית יותר לבצע עדכונים היררכיים ב-API, בסגנון של GraphQL?

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

@מים-אחרונים כתב בחלון שגיאה אין אינדקס:

רק לאיפה נעלם השרשור הידוע שמשם הכרתי אותך, ואת אקסס לעומק?

לא נעלם, הוא עדיין כאן. אני קצת נעלמתי...

@one1010 אתה רוצה ליצור גליון נפרד עבור כל אות, דהיינו שכל השורות שמתחילות באות א' ימוקמו בגיליון 'שורות_א', כל השורות שמתחילות באות ב' ימוקמו בגיליון 'שורות_ב', וכו'?

@hp079 לתיבת סימון תלת מצבית שלושה ערכים אפשריים:
True, False, Null. הערך Null משמעותו ללא סימון.
אם אין סימון בתיבה זו, מסתמא הלוגיקה היא לא לסנן לפיה, לכן בשורה:

If (Not IsNull(chkSet_ok)) Then

אתה מוודא שהתיבה מסומנת, כלומר אם היא לא מכילה Null, ואם כן, השורה:

DynamicCondition="Ok=" & CStr(chkSet_ok)

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

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

If (Len(txtSearchFirstName) > 0) Then
   DynamicCondition=IIF(Len(DynamicCondition)>0, " AND ", "") & "FirstName LIKE %" & txtSearchFirstName & "%"
End If

@hp079 אפשר.
הואיל ואתה רוצה להבין את התהליך, אתן לך את הכיוון, ומשם תוכל להמשיך לבד.
בתחביר פתיחה של דוח, ניתן להגדיר מסנן או תנאי:

OpenReport ReportName, View, FilterName, WhereCondition, WindowMode, OpenArgs

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

Dim DynamicCondition As String
DynamicCondition=""
' Add first condition
If (Not IsNull(chkSet_ok)) Then
   DynamicCondition="Ok=" & CStr(chkSet_ok)
End If
' Add second condition:
If (Not IsNull(chkDone)) Then
   DynamicCondition=IIF(Len(DynamicCondition)>0, DynamicCondition & " AND ", "") & "Done=" & CStr(chkDone)
End If
' Add more conditions
If (Only_Bar_Mitsva) Then
   DynamicCondition=IIF(Len(DynamicCondition)>0, DynamicCondition & " AND ", "") & "Age>=13"
End If
...
' Open report with all my conditions:
DoCmd.OpenReport "MyReport", acViewNormal, WhereCondition:=DynamicCondition

@סקרן-0 ההצעה שלי לשאילתת עדכון אינה דורשת שינוי במבנה מסד הנתונים, השאילתא נשענת על המבנה הקיים.
אם אתה מורשה להוסיף קוד משלך, מה הבעיה להוסיף שאילתא?