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

@מלא אמר באקסס | ניתן לקבל שורה ספציפית בשאילתה?:

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

הכיוון של 2 שאילתות עזר.
עשיתי שאילתה אחת עם TOP 3 ומיון לפי סדר עולה, ושאילתה נוספת עם TOP 1 ומיון לפי סדר יורד.

@avi-rz
ולקבל את השורה השלישית בכל מצב אי אפשר?
אני חושב אולי לבדוק כמה שורות יש בשאילתה ע"י Count
ואז אם יש לפחות 3 תוצאות להשתמש ב-TOP 3 ולגשת לשורה האחרונה.
אין משהו מובנה? יותר קל?

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

@איש-פלוני
אולי זה יוכל לעזור לך.

@אביי אמר בתודה לא עובד, רק לי?:

לחצן התודה לא עובד לי, מוצגת הודעת השגיאה "Forbidden" (אסור) זה רק אצלי?

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

@avi-rz
זה הקוד ב-vba מפרוג.

Public Function fValidateBankAccount(lngBankNumber As Long, _
                                          lngBranch As Long, _
                                          lngAccount As Long) As Boolean

   On Error GoTo fValidateBankAccount_Error

    Dim lngRequiredAccountLength As Long
    Dim lngTotal As Long

    Dim strArrayAccount() As String
    Dim strArrayBranch() As String

    Dim strAccount As String
    Dim strBranch As String

    If lngBankNumber = 0 Or lngBranch = 0 Or lngAccount = 0 Then Exit Function

    Select Case lngBankNumber
        Case 10, 13, 34
            lngRequiredAccountLength = 8
        Case 12, 4
            lngRequiredAccountLength = 6
        Case 11, 17
            lngRequiredAccountLength = 9
        Case 20
            lngRequiredAccountLength = 6
        Case 31, 52
            lngRequiredAccountLength = 9
        Case 9
            lngRequiredAccountLength = 9
        Case 22
            lngRequiredAccountLength = 9
        Case 46
            lngRequiredAccountLength = 9
        Case 14
            lngRequiredAccountLength = 9
        Case 54
            lngRequiredAccountLength = 9
    End Select

    strBranch = lngBranch
    strAccount = String(lngRequiredAccountLength - Len(CStr(lngAccount)), "0") & CStr(lngAccount)
    strAccount = StrConv(strAccount, vbUnicode)
    strArrayAccount = Split(strAccount, vbNullChar)

    If lngBankNumber = 20 And lngBranch > 400 Then     ' אם מספר הסניף בבנק מזרחי-טפחות גדול מ400
        strBranch = CStr(lngBranch - 400)              ' לפני החישובים יש להפחית 400
    Else                                               ' אם מספר הסניף בבנק מזרחי-טפחות לא גדול מ400
        strBranch = CStr(lngBranch)                    ' לפני החישובים אל תבצע כלום
    End If
    
    If lngBankNumber = 12 Or lngBankNumber = 4 Then
        strBranch = lngBranch
    End If

    If Len(strBranch) < 3 Then
        strBranch = String(3 - Len(strBranch), "0") & strBranch    ' מוסיף אפסים להשלים ל3 ספרות
    End If

    strBranch = StrConv(strBranch, vbUnicode)
    strArrayBranch = Split(strBranch, vbNullChar)

    Select Case lngBankNumber
        Case 10, 13, 34
            lngTotal = CLng(strArrayBranch(0)) * 10 + _
                       CLng(strArrayBranch(1)) * 9 + _
                       CLng(strArrayBranch(2)) * 8 + _
                       CLng(strArrayAccount(0)) * 7 + _
                       CLng(strArrayAccount(1)) * 6 + _
                       CLng(strArrayAccount(2)) * 5 + _
                       CLng(strArrayAccount(3)) * 4 + _
                       CLng(strArrayAccount(4)) * 3 + _
                       CLng(strArrayAccount(5)) * 2 + _
                       Right(lngAccount, 2)
            Select Case Right(lngTotal, 2)
                Case 90, 72, 70, 60, 20
                    fValidateBankAccount = True
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 12
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2, 4, 6
                    fValidateBankAccount = True
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 4
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2
                    fValidateBankAccount = True
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 11, 17
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2, 4
                    fValidateBankAccount = True
                Case Else
                    fValidateBankAccount = False
            End Select
        Case 20
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(0)) * 6 + _
                       CLng(strArrayAccount(1)) * 5 + _
                       CLng(strArrayAccount(2)) * 4 + _
                       CLng(strArrayAccount(3)) * 3 + _
                       CLng(strArrayAccount(4)) * 2 + _
                       CLng(strArrayAccount(5)) * 1
            Select Case lngTotal Mod 11
                Case 0, 2, 4
                    fValidateBankAccount = True
            End Select
        Case 31, 52
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0, 6
                    fValidateBankAccount = True
                Case Else
                    lngTotal = CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    Select Case lngTotal Mod 11
                        Case 0, 6
                            fValidateBankAccount = True
                        Case Else
                            fValidateBankAccount = False
                    End Select
            End Select
        Case 9
            lngTotal = CLng(strArrayAccount(0)) * 9 + _
                       CLng(strArrayAccount(1)) * 8 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            If lngTotal Mod 10 = 0 Then
                fValidateBankAccount = True
            Else
                fValidateBankAccount = False
            End If
        Case 54
            fValidateBankAccount = True
        Case 22
            lngTotal = CLng(strArrayAccount(0)) * 3 + _
                       CLng(strArrayAccount(1)) * 2 + _
                       CLng(strArrayAccount(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2
            If 11 - (lngTotal Mod 11) = CLng(strArrayAccount(8)) Then
                fValidateBankAccount = True
            Else
                fValidateBankAccount = False
            End If
        Case 46
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case 2
                    Select Case strBranch
                        Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539
                            fValidateBankAccount = True
                        Case Else
                            fValidateBankAccount = False
                    End Select
                Case Else
                    lngTotal = CLng(strArrayAccount(0)) * 9 + _
                               CLng(strArrayAccount(1)) * 8 + _
                               CLng(strArrayAccount(2)) * 7 + _
                               CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Then
                        fValidateBankAccount = True
                    Else
                        lngTotal = CLng(strArrayAccount(3)) * 6 + _
                                   CLng(strArrayAccount(4)) * 5 + _
                                   CLng(strArrayAccount(5)) * 4 + _
                                   CLng(strArrayAccount(6)) * 3 + _
                                   CLng(strArrayAccount(7)) * 2 + _
                                   CLng(strArrayAccount(8)) * 1
                        If lngTotal Mod 11 = 0 Then
                            fValidateBankAccount = True
                        Else
                            fValidateBankAccount = False
                        End If
                    End If
            End Select
        Case 14
            lngTotal = CLng(strArrayBranch(0)) * 9 + _
                       CLng(strArrayBranch(1)) * 8 + _
                       CLng(strArrayBranch(2)) * 7 + _
                       CLng(strArrayAccount(3)) * 6 + _
                       CLng(strArrayAccount(4)) * 5 + _
                       CLng(strArrayAccount(5)) * 4 + _
                       CLng(strArrayAccount(6)) * 3 + _
                       CLng(strArrayAccount(7)) * 2 + _
                       CLng(strArrayAccount(8)) * 1
            Select Case lngTotal Mod 11
                Case 0
                    fValidateBankAccount = True
                Case 2
                    Select Case strBranch
                        Case 347, 361, 362, 363, 365, 385
                            fValidateBankAccount = True
                        Case Else
                            fValidateBankAccount = False
                    End Select
                Case 4
                    Select Case strBranch
                        Case 361, 362, 363
                            fValidateBankAccount = True
                        Case Else
                            fValidateBankAccount = False
                    End Select
                Case Else
                    lngTotal = CLng(strArrayAccount(0)) * 9 + _
                               CLng(strArrayAccount(1)) * 8 + _
                               CLng(strArrayAccount(2)) * 7 + _
                               CLng(strArrayAccount(3)) * 6 + _
                               CLng(strArrayAccount(4)) * 5 + _
                               CLng(strArrayAccount(5)) * 4 + _
                               CLng(strArrayAccount(6)) * 3 + _
                               CLng(strArrayAccount(7)) * 2 + _
                               CLng(strArrayAccount(8)) * 1
                    If lngTotal Mod 11 = 0 Then
                        fValidateBankAccount = True
                    Else
                        lngTotal = CLng(strArrayAccount(3)) * 6 + _
                                   CLng(strArrayAccount(4)) * 5 + _
                                   CLng(strArrayAccount(5)) * 4 + _
                                   CLng(strArrayAccount(6)) * 3 + _
                                   CLng(strArrayAccount(7)) * 2 + _
                                   CLng(strArrayAccount(8)) * 1
                        If lngTotal Mod 11 = 0 Then
                            fValidateBankAccount = True
                        End If
                    End If
            End Select
    End Select


   On Error GoTo 0
   Exit Function

fValidateBankAccount_Error:
    fValidateBankAccount = False
    MsgBox "Error " & err.Number & " (" & err.Description & ") in procedure fValidateBankAccount of Function mdlValidations"

End Function

@odeddvir אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

@איש-ימיני אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

אשמח לקבל את הקוד.

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

Function DisableShift()
'This function disable the shift at startup. This action causes
'the Autoexec macro and Startup properties to always be executed.

On Error GoTo errDisableShift

    Dim db As DAO.Database
    Dim prop As DAO.Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line disables the shift key on startup.
    db.Properties("AllowByPassKey") = False

    'The function is successful.
    Debug.Print "Disabled Shift Key - Successful"
    Exit Function

errDisableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
        Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, False)
        db.Properties.Append prop
        Resume Next
        Else
            MsgBox "Function 'ap_DisableShift' did not complete successfully."
            GoTo ExitHere
    End If

ExitHere:
    Set prop = Nothing
    Set db = Nothing
    Exit Function

End Function

Function EnableShift()
'This function enables the SHIFT key at startup. This action causes
'the Autoexec macro and the Startup properties to be bypassed
'if the user holds down the SHIFT key when the user opens the database.

On Error GoTo errEnableShift

    Dim db As DAO.Database
    Dim prop As DAO.Property
    Const conPropNotFound = 3270

    Set db = CurrentDb()

    'This next line of code disables the SHIFT key on startup.
    db.Properties("AllowByPassKey") = True

    'function successful
    Debug.Print "Enabled Shift Key - Successful"
    GoTo ExitHere

errEnableShift:
    'The first part of this error routine creates the "AllowByPassKey
    'property if it does not exist.
    If Err = conPropNotFound Then
        Set prop = db.CreateProperty("AllowByPassKey", _
        dbBoolean, True)
        db.Properties.Append prop
        Resume Next
        Else
            MsgBox "Function 'ap_DisableShift' did not complete successfully."
            GoTo ExitHere
    End If

ExitHere:
    Set prop = Nothing
    Set db = Nothing
    Exit Function

End Function

תודה רבה!!!

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

מבחינת מה אתה רוצה לאבטח את זה?
שלא יכלו לסגור את הטופס כניסה?
או הצפנת נתוני וסיסמת המשתמש?

שלא יוכל לגשת לדברים שלא נתתי לו גישה, בשום דרך.

@musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

אפשר לחסום את הקשת הShift בכניסה.
חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

אשמח לקבל את הקוד.

@avi-rz אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

וגם למה שאמר
@musicode אמר באקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?:

חסימת האפשרות להקיש שיפט נעשית בקוד VBA.

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

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

עכ"פ כמה טיפים, שכן אפשרי לעשות - וקצת יעילים

• להגדיר את השדה של הסיסמא ל שדה של סיסמא (password) ואז גם בהעתקה לא יוכלו ליראות את הסיסמא (רק ע"י ייצוא של הטבלה הנ"ל).

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

• כמובן כל זה כשחוסמים את הגישה לקוד - או ע"י סגירה של הקובץ או ע"י סיסמא לקוד.

תודה רבה!!

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

@מורשת-מרן
שלחתי לך.

@מלא
הכנסתי השדות באופן פרטני, ללא *.
בכל אופן הסתדרתי.
הבעיה הייתה כי היה 2 שדות שהם מספור אוטומטי (2 מזהים מ-2 טבלאות).
ואי אפשר לעשות שאילתת יצירת טבלה עם שני שדות מספור אוטומטי.
מצאתי פתרון כאן להפוך בשאילתה את אחד השדות למספר ארוך ע"י: CLng ([TableName]. [AutoNum])
בכל אופן אם מישהו יודע למה זה עובד כך אשמח לשמוע הסבר.

אני מקבל שגיאה:

ודרך VBA:

---

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

השאלה למה זה עובד ככה?
וגם איך ניתן לפתור את הבעיה?

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

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

@חוקר
הורדתי והתקנתי.
עובד מצוין.
מומלץ לפתוח פורט 80?
אפשרי לפתוח רק ל-IP מסוים? (לדוגמה רק דרך ימות?)

איך מתקינים php על המחשב האישי?
והאם מומלץ לפתוח פורט 80?

@חוקר
איך אני מתקין את זה?

@חוקר
זה דורש התקנת PHP במחשב?
וא"כ דורש גם פתיחת פורט 80?

@yits @כוכב-שמח
ניסיתי גם פריסה ידני ע"י המדריך הזה, וזה נעצר עם השגיאה הבא:

[   2% ] Applying progress: 8:18 mins remaining
[ ERROR ] b:\Program Files\Microsoft Office\root\vfs\ProgramFilesX86\Microsoft Office\Office16\AppvIsvSubsystems32.dll (Error = 4392)


[ ERROR ] b:\Program Files\Microsoft Office\root\Client\C2R64.dll (Error = 4392)



Error restoring image.




The data present in the reparse point buffer is invalid.

ניסיתי גם לעשות אימג' חדש ולא עזר. שם יצא לי שגיאה זו:

[   2% ] Applying progress: 8:22 mins remaining
[ ERROR ] C:\Program Files\Microsoft Office\root\vfs\ProgramFilesX86\Microsoft Office\Office16\AppvIsvSubsystems32.dll (Error = 4392)


[ ERROR ] C:\Program Files\Microsoft Office\root\vfs\ProgramFilesX86\Microsoft Office\Office16\C2R32.dll (Error = 4392)



Error restoring image.




The data present in the reparse point buffer is invalid.

@yits
עשיתי חדש, דרך הכלי של מייקרוסופט.