ניווט

    תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    • מקצועות
    1. דף הבית
    2. איש ימיני
    חוקי הפורום
    • פרופיל
    • עוקב אחרי 0
    • עוקבים 0
    • נושאים 20
    • פוסטים 175
    • הגבוה ביותר 38
    • קבוצות 1

    איש ימיני

    @איש ימיני

    54
    מוניטין
    23
    צפיות בפרופיל
    175
    פוסטים
    0
    עוקבים
    0
    עוקב אחרי
    הצטרף ב- התחבר לאחרונה
    מיקום ירושלים

    איש ימיני עקוב
    תכנות

    הפוסטים הטובים ביותר שנוצרו על ידי איש ימיני

    • RE: אקסס למתחילים: תגובות

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

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: ימות המשיח - ממשק לקריאה נוחה של לוג השיחות

      @ZACK
      יש על זה הרבה בפורום של ימות המשיח
      לדוגמה:
      https://www.call2all.co.il/f2/viewtopic.php?f=4&t=1538
      https://www.call2all.co.il/f2/viewtopic.php?f=4&t=1050
      https://www.call2all.co.il/f2/viewforum.php?f=12
      https://www.call2all.co.il/f2/viewforum.php?f=13
      https://docs.google.com/document/d/1ln2j0Nhe0VO4Rt6fFquaXziSq-IIr9I_SE_R35WXe-k/edit

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: אגרון בווינ. 10 - מה אפשר לעשות?

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: אגרון בווינ. 10 - מה אפשר לעשות?

      צריך דרייבר מתאים

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: שדרוג זיכרון למחשב נייח

      @nigun אמר בשדרוג זיכרון למחשב נייח:

      @odeddvir אמר בשדרוג זיכרון למחשב נייח:

      או שזה חייב להיות זוגי?

      מה הפירוש?

      התכוונתי האם חייב להיות כמו הזיכרון השני
      דהיינו 4 ו4 או 8 ו8 או 16 ו16?

      אני לא יודע.
      אבל לי עבד במחשב 2 ו-4 (6) בלי בעיות.
      היום יש לי במחשב ההוא 2,2,4,4, (12)

      פורסם בחומרה
      איש ימיני
      איש ימיני
    • RE: איפוס מלא K35

      @a0533057932
      אולי

      *#0*#
      *#12345#
      

      [כך היה ב-K34]

      פורסם במובייל וטבלט
      איש ימיני
      איש ימיני
    • RE: שולחן עבודה מרחוק ווינדוס מרובה משתמשים

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

      פורסם באינטרנט
      איש ימיני
      איש ימיני
    • RE: עזרה ביצירת שולחן עבודה מרוחק Windows 10

      @OdedDvir
      97811b6c-ac21-4d0a-b172-3077b1494acd-image.png
      זה עובד לי גם אחרי כל העדכונים, רק שלפעמים לאחר עדכון אני צריך להחליף מחדש את הקובץ.
      זה שנתן לי את הקובץ אמר לי שבעיקרון צריך להחליף את הקובץ גם בגיבוי שיש לוינדוס ואז זה מחזיק גם אחרי העדכונים ואין צורך להחליף שוב את הקובץ (אני לא מבין מה זה הגיבוי).

      פורסם באינטרנט
      איש ימיני
      איש ימיני
    • RE: עזרה ביצירת שולחן עבודה מרוחק Windows 10

      @OdedDvir
      אני משתמש עם וינדוס 10
      מישהו נתן לי קובץ מסויים שאותו החלפתי בתיקיית C:\Windows\System32
      ומאז אני יכול להתחבר עם כמה משתמשים בו זמנית
      מצורף הקובץ
      termsrv.dll

      פורסם באינטרנט
      איש ימיני
      איש ימיני
    • RE: JS - אימות מספר חשבון ישראלי

      @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
      
      פורסם בתכנות (אקסקלוסיבי)
      איש ימיני
      איש ימיני

    פוסטים אחרונים שנוצרו על ידי איש ימיני

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

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

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

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: אקסס | ניתן לקבל שורה ספציפית בשאילתה?

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • אקסס | ניתן לקבל שורה ספציפית בשאילתה?

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: עזרה באקסס - חיפוש בטופס

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: תודה לא עובד, רק לי?

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

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

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

      פורסם ברשימת הצעות
      איש ימיני
      איש ימיני
    • RE: JS - אימות מספר חשבון ישראלי

      @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
      
      פורסם בתכנות (אקסקלוסיבי)
      איש ימיני
      איש ימיני
    • RE: אקסס | כניסה עם שם משתמש וסיסמה | איך ניתן לאבטח את זה?

      @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
      

      תודה רבה!!!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

      תודה רבה!!

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

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

      פורסם בתוכנה
      איש ימיני
      איש ימיני
    • RE: חיים שפירא מתכנת - יש למישהו את המייל שלו?

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

      פורסם בגומלין
      איש ימיני
      איש ימיני