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

נסה להשתמש בכלי הזה כדי לאפס את הרשאות ה-NTFS בתיקיות הנ"ל:
https://www.majorgeeks.com/files/details/ntfs_permissions_tools.html

@14789 כתב בדפי צביעה לילדים "צדיק נסתר":

רק שאלה איך צובעים על זה?

אם אתה רוצה GUI יש את PuppyLinux (~600M) או antiX (~1GB)

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

אם זה לא עוזר, צריך לבדוק בהגדרות של windows. תעקוב אחרי ההוראות כאן: https://pcsupport.lenovo.com/il/he/products/laptops-and-netbooks/flex-series/flex-5-1570/videos/vid100752-how-to-enable-and-disable-your-touchpad

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

@חייםיודלביץ כתב באקסס | ניהול והחלפת טבלאות מקושרות - האם הקוד מ AI תקין?:

אז זה קוד תקין ורצוי?

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

קוד תקין ורצוי הוא בעיני קוד שאתה מבין בדיוק מה קורה בו.
אם זה נכון לגבי הקוד הזה, אז התשובה היא כן. בניכוי השורות המיותרות הנ"ל. אגב, גם שורה 11 מיותרת.

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

אני לא מבין את השאלה, תוכל לתת דוגמא לקוד אחר שעושה את הפעולה הנ"ל?
אם השאלה שלך היא כללית - אנא פתח נושא חדש ותן דוגמא.

1. שורות 6,14,15 מיותרות
2. הקישור למסד נתונים חיצוני כלשהו (אקסס, SQL, Excel וכו') נעשה על ידי מחרוזת חיבור ConnectionString. מחרוזת זו מכילה גם את הכתובת של המסד החיצוני, וגם את הסיסמה אליו, אם יש כזו.
3. בגדול, אקסס מנהלת את כל הטבלאות על ידי טבלאות מערכת מוסתרות. ניתן להציג אותן על ידי קליק ימני על סרגל הניווט > אפשרויות ניווט > ולסמן V בתיבה הצג אובייקטים מוסתרים ו- הצג אובייקטי מערכת
4. הטבלה MSysObjects אחראית על האובייקטים שנמצאים בסרגל הניווט. גם מחרוזות החיבור לטבלאות המקושרות נשמרות שם.
   נסה להריץ את השאילתא הבאה:

SELECT * FROM MSysObjects

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

@ארי
א. אני מזדהה עם דרך הלימוד שלך.
ב. יש לי דעה שונה מ @pcinfogmach:
זה שגוי בעיני להתקבע על שפה מסויימת מראש. אני מייעץ לך לא לחשוב יותר מדי בשלב הזה. אם אתה מרגיש שאתה רוצה להתקדם, זה סימן שאתה מוכן. (אגב, יש שאלות ש @pcinfogmach העלה שאני עדיין לא יודע להשיב עליהן ) פשוט תקפוץ למים ותתחיל עם משהו, נסה אותו למשך שבועיים שלושה, ותראה אם אתה מתחבר לסגנון. אני לקחתי קורס שלם על nodeJs ב-udemy, ובסוף החלטתי בכלל על דוטנט. ועדיין אני מנסה פה ושם דברים אחרים.
ג. מסכים שיש הבדל בין אקסס ו-VBA לשפות אחרות, אבל זה נכון גם על כל פלטפורמה אחרת. אין באמת הבדל גדול בעקרונות התכנות בין שפה לשפה. לפי הפעילות שלך בפורום, אני מבין שיש לך הבנה טובה ב-VBA ואקסס. חשוב לי להדגיש שכל נסיון שצברת בתכנות, בכל שפה, מוסיף לניסיון הכללי שלך כמתכנת.

די מהר מצאתי את הפרוייקט הזה בגיטהב, מלפני שנתיים, נראה לגיטימי: https://github.com/soryy708/il-bank-account-validator. היתה רק בעיה קטנה: הוא כתוב ב-JS.

אז בגלל שזה נראה לי דבר שימושי, או בגלל שהיה קשה לי להאמין שזה לא זמין לציבור, אולי בגלל השעה... בכל מקרה, נתתי ל ChatGPT לעשות את התרגום הראשוני ל-VB, כמובן שאח"כ הייתי צריך להוסיף ולתקן כמה דברים (חריגות אינדקסים במערכים, הוספת פונקציה במקום השמה ישירה למערך, החלפה של Integer ל-Long, ריפוד באפסים, ועוד כמה שטויות של בורות מלאכותית)
בסופו של דבר, בדקתי את הקוד מול כמה מספרי חשבונות בנק שמפורסמים ברשת (למשל כאן) וקיבלתי תוצאה תקינה.
אז אם אתם משתמשים בקוד, ראוי שתתנו כוכב בגיטהב לפרוייקט הנ"ל. (אין לי שום קשר אליו)
צריך לפתוח מודול חדש ולהדביק את הקוד הבא:

Option Explicit

Function ValidateAccount(bankNumber As Long, branchNumber As Long, accountNumber As Long) As Boolean
    ' Input validation:
    If Not IsNonNegativeLong(bankNumber) Then
        ValidateAccount = False
     Exit Function
    End If
    If Not IsNonNegativeLong(branchNumber) Then
        ValidateAccount = False
     Exit Function
    End If
    If Not IsNonNegativeLong(accountNumber) Then
        ValidateAccount = False
     Exit Function
    End If

    ' Supported banks
    Const YAHAV As Long = 4
    Const POST As Long = 9
    Const LEUMI As Long = 10
    Const DISCOUNT As Long = 11
    Const HAPOALIM As Long = 12
    Const IGUD As Long = 13
    Const OTSAR_AHAYAL As Long = 14
    Const MERCANTILE As Long = 17
    Const MIZRAHI_TEFAHOT As Long = 20
    Const CITIBANK As Long = 22
    Const BEINLEUMI As Long = 31
    Const ARAVEI_ISRAELI As Long = 34
    Const MASAD As Long = 46
    Const POALEI_AGUDAT_ISRAEL As Long = 52

    ' Adjust branch number For Mizrahi Tefahot
    If bankNumber = MIZRAHI_TEFAHOT Then
        If branchNumber > 400 Then
            branchNumber = branchNumber - 400
        End If
    End If

    Dim accountNumberDigits() As Long
    Dim branchNumberDigits() As Long

    accountNumberDigits = NumberDigitsToArr(CLng(accountNumber), 9)
    branchNumberDigits = NumberDigitsToArr(CLng(branchNumber), 3)

    ' Account number validation
    Dim sum As Long
    Dim remainder As Long

    Select Case bankNumber
     Case LEUMI, IGUD, ARAVEI_ISRAELI

        sum = ScalarProduct(GetSubset(accountNumberDigits, 8), ToIntArray("1,10,2,3,4,5,6,7"))
        sum = sum + ScalarProduct(GetSubset(branchNumberDigits, 4), ToIntArray("8, 9, 10"))
        remainder = sum Mod 100
        ValidateAccount = ArrIncludes(ToIntArray("90, 72, 70, 60, 20"), remainder)

     Case YAHAV, MIZRAHI_TEFAHOT, HAPOALIM
        sum = ScalarProduct(GetSubset(accountNumberDigits, 6), ToIntArray("1, 2, 3, 4, 5, 6"))
        sum = sum + ScalarProduct(GetSubset(branchNumberDigits, 4), ToIntArray("7, 8, 9"))
        remainder = sum Mod 11

        Select Case bankNumber
         Case YAHAV
            ValidateAccount = ArrIncludes(ToIntArray("0, 2"), remainder)
         Case MIZRAHI_TEFAHOT
            ValidateAccount = ArrIncludes(ToIntArray("0, 2, 4"), remainder)
         Case HAPOALIM
            ValidateAccount = ArrIncludes(ToIntArray("0, 2, 4, 6"), remainder)
        End Select

     Case DISCOUNT, MERCANTILE, BEINLEUMI, POALEI_AGUDAT_ISRAEL
        sum = ScalarProduct(GetSubset(accountNumberDigits, 9), ToIntArray("1, 2, 3, 4, 5, 6, 7, 8, 9"))
        remainder = sum Mod 11

        Select Case bankNumber
         Case DISCOUNT, MERCANTILE
            ValidateAccount = ArrIncludes(ToIntArray("0, 2, 4"), remainder)

         Case BEINLEUMI, POALEI_AGUDAT_ISRAEL
            If ArrIncludes(ToIntArray("0, 6"), remainder) Then
                ValidateAccount = True
            Else
                sum = ScalarProduct(GetSubset(accountNumberDigits, 6), ToIntArray("1, 2, 3, 4, 5, 6"))
                remainder = sum Mod 11
                ValidateAccount = ArrIncludes(ToIntArray("0, 6"), remainder)
            End If
        End Select

     Case POST
        sum = ScalarProduct(GetSubset(accountNumberDigits, 9), ToIntArray("1, 2, 3, 4, 5, 6, 7, 8, 9"))
        remainder = sum Mod 10
        ValidateAccount = remainder = 0

     Case 54
        ' Jerusalem
        ValidateAccount = True ' wtf?

     Case CITIBANK
        sum = ScalarProduct(GetSubset(accountNumberDigits, 8), ToIntArray("2, 3, 4, 5, 6, 7, 2, 3"))
        ValidateAccount = (11 - sum Mod 11) = accountNumberDigits(1)

     Case OTSAR_AHAYAL, MASAD
        sum = ScalarProduct(GetSubset(accountNumberDigits, 6), ToIntArray("1, 2, 3, 4, 5, 6"))
        sum = sum + ScalarProduct(GetSubset(branchNumberDigits, 4), ToIntArray("7, 8, 9"))
        remainder = sum Mod 11

        If remainder = 0 Then
            ValidateAccount = True
        End If

        If bankNumber = MASAD Then
            If remainder = 2 And ArrIncludes(ToIntArray("154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539"), branchNumber) Then
                ValidateAccount = True
            End If

            sum = ScalarProduct(GetSubset(accountNumberDigits, 9), ToIntArray("1, 2, 3, 4, 5, 6, 7, 8, 9"))
            remainder = sum Mod 11

            If remainder = 0 Then
                ValidateAccount = True
            Else
                sum = ScalarProduct(GetSubset(accountNumberDigits, 6), ToIntArray("1, 2, 3, 4, 5, 6"))
                remainder = sum Mod 11
                ValidateAccount = remainder = 0
            End If
        End If

        If bankNumber = OTSAR_AHAYAL Then
            If ArrIncludes(ToIntArray("0, 2"), remainder) And ArrIncludes(ToIntArray("385, 384, 365, 347, 363, 362, 361"), branchNumber) Then
                ValidateAccount = True
            Elseif remainder = 4 And ArrIncludes(ToIntArray("363, 362, 361"), branchNumber) Then
                ValidateAccount = True
            Else
                sum = ScalarProduct(GetSubset(accountNumberDigits, 9), ToIntArray("1, 2, 3, 4, 5, 6, 7, 8, 9"))
                remainder = sum Mod 11
                If remainder = 0 Then
                    ValidateAccount = True
                Else
                    sum = ScalarProduct(GetSubset(accountNumberDigits, 6), ToIntArray("1, 2, 3, 4, 5, 6"))
                    remainder = sum Mod 11
                    ValidateAccount = remainder = 0
                End If
            End If
        End If

    End Select

End Function

Function ScalarProduct(arr1() As Long, arr2() As Long) As Long
    Dim product As Long
    Dim i As Long
    Dim maxIndex As Integer
    maxIndex = UBound(arr1)
    If maxIndex > UBound(arr2) Then maxIndex = UBound(arr2)

        For i = 1 To maxIndex
            product = product + arr1(i) * arr2(i)
        Next i
        ScalarProduct = product
End Function

Function ArrIncludes(arr() As Long, val As Long) As Boolean
    Dim i As Long
    If Not IsEmpty(arr) Then
        For i = LBound(arr) To UBound(arr)
            If arr(i) = val Then
                ArrIncludes = True
             Exit Function
            End If
        Next i
    End If
End Function

Function NumberDigitsToArr(num As Long, length As Long) As Long()
    Dim digitsArray() As Long
    ReDim digitsArray(1 To length)

    Dim zeroPadding As Integer
    zeroPadding = length - Len(CStr(num))

    Dim i As Long

    For i = 1 To zeroPadding
        digitsArray(i) = 0
    Next i
    For i = zeroPadding + 1 To length
        digitsArray(i) = num Mod 10
        num = Int(num / 10)
    Next i
    NumberDigitsToArr = digitsArray
End Function

Function IsNonNegativeLong(num As Variant) As Boolean
    If VarType(num) = vbLong And num >= 0 Then
        IsNonNegativeLong = True
    End If
End Function

Function GetSubset(arr() As Long, count As Long) As Long()
    Dim result() As Long
    ReDim result(1 To count)
    Dim i As Long
    For i = 1 To count
        If i <= UBound(arr) Then
            result(i) = arr(i)
        End If
    Next i
    GetSubset = result
End Function

Function ToIntArray(list As String) As Long()
    Dim temp() As String
    temp = Split(list, ",")

    Dim result() As Long
    ReDim result(1 To UBound(temp) + 1)

    Dim i As Integer

    For i = 0 To UBound(temp)
        result(i + 1) = CLng(temp(i))
    Next i
    ToIntArray = result
End Function

היינו הך
זה כתוב ב-VBA, אז פשוט תעתיק את המודול מקובץ האקסס לתוך האקסל
ואז הפונקציות יהיו זמינות לך שם

שימוש עם VScode בכל מחשב שהוא - זולל משאבים. נקודה.
פתיחה של קובץ batch בגודל 116 בתים בלבד - נוגסת בכ-100MB של RAM.

@אביי

1. אני אישית אוהב להשאיר את האופציות של ברירת המחדל של windows, לכן הוספתי אפשרות חדשה: Edit in Code
2. אצלי ה-VSCode מותקן ב- C:\Users\<MyUser>\AppData\Local\Programs\Microsoft VS Code\Code.exe
   לכן היה צורך להשתמש בטיפוס-expandable string value כדי לקבל את הנתיב של המשתמש באופן ג'נרי על ידי %LocalAppData%
3. אי אפשר להוסיף ערך מטיפוס כזה שיהיה ברירת המחדל, ישירות מ-regedit, לכן אני מצרף שני קבצים לשם נוחות, אחד להתקנה ואחד להסרה. אם נתיב ההתקנה שונה אצלך מהמצוין לעיל, ניתן לערוך את הערך אחרי ההתקנה, ולשנות לנתיב אחר כרצונך.
   Add (Edit in Code) to context menu.reg
   Remove (Edit in Code) from context menu.reg

@Sara-Rivka ב-SQLServer יש שני סוגים עיקריים של פונקציות:

1. פונקציה סקלרית - מחזירה ערך בודד, למשל INT,BIT, VARCHAR(64) וכו'
2. פונקציה טבלאית - מחזירה טבלה. כלומר תוצאה של SELECT
   הסוג הזה מתחלק ל-2 תתי-סוגי פונקציות:
   2.1 Inline - פונקציה זו תמיד מכילה פקודה בודדת שמתחילה במילה השמורה RETURN
   דוגמא:

CREATE FUNCTION fn_GetUserById(INT UserId)
RETURNS TABLE
AS
RETURN (
        SELECT * FROM Users
        WHERE Id = @UserId
)

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

2.2 פונקציה מרובת פקודות (Multi-Statement Function) - שמאפשרת לבצע כמה פקודות ברצף
התחביר שלה שונה בכמה אופנים:
א. נדרשת הגדרה מראש של מבנה הטבלה שיוחזר.
ב. הפקודות מוקפות בבלוק BEGIN-END
ג. חובה לסיים את הפונקציה בפקודה RETURN

דוגמא:

CREATE FUNCTION fn_BestStudents(MinScore INT)
RETURNS @ResultTable TABLE
(
     StudentId INT,
     AverageScore INT
)
AS
BEGIN
        SELECT Students.Id, Avg(Tests.Score)
        INTO @ResultTable
        FROM Students
        INNER JOIN Tests ON Students.Id = Tests.StudentId
        GROUP BY Students.Id

       RETURN
END

הסוג הזה של פונקציות בעייתי מבחינת יעילות, ובאופן כללי יש להמנע משימוש בו.

כל התשובות נכונות

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

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

@חייםיודלביץ מהשאלה שלך נראה שהסדר הרצוי הוא

1. מספר בית
2. כניסה
3. קו נטוי
4. דירה

אם כן לכאורה הפלט תקין: מספר בית=52, כניסה=ד, קו נטוי, דירה=6

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

@צדיק-תמים כתב בהתאמת נגן וידאו לRTL:

@OdedDvir כמובן. וטוב שהבאת את הדוגמה של VLC, לא מצאתי נגן אחר עם התאמה טובה.

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

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

בתמונה שצירפת נראה שכיוון הנגינה נשאר משמאל לימין, אותי (באופן אישי כמובן) זה ממש מבלבל

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

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

החיסרון שלו הוא שהוא:

1. יקר יחסית לעכברים פשוטים
2. לא נוח בעבודה עם כמה מחשבים במקביל (האפליקציה של לוג'יטק לא משהו, התקנתי תכנה צד ג בשביל זה)

אם אתה הולך על זה, דע שלגבי הדגם החדש S3 הדעות נוטות שהוא פחות מוצלח.