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

@clickone אוקיי
תודה! (בינתיים....)

@odeddvir סליחה, GetMit זה בטעות חלק מקוד אחר, זה אמור להיות GetName.
אז ככה, הקוד:

If MyRecordset.Fields(7).Value = "8980" Then
    ActiveCell.Interior.Color = vbYellow
End If

לא עובד.
זאת אומרת הוא מצליח לקרוא את הנתון בעמודה 7 (מספר, דרך אגב), אבל נתקע בשורה שבה הוא אמור לשנות את הצבע, הוא לא מדאבג אלא מחזיר לי #VALUE.
אגב, אם אני עושה סתם דיבאג על הצבע של התא הוא מצליח לקרוא אותו, אבל לשנות הוא לא משנה.
מה יכולה להיות הבעיה? זה איזה באג בשורה הזו שהוא יכול רק לקרוא את הנתון של הצבע אבל לא לשנות אותו.
תודה רבה!

@yossiz
זה שולח את הבקשה עם סימני שאלה במקום עברית.
ואז באתר קשר ככה נרשם שם התורם והכתובת.

@אפרים22 רבנות ירושלים מהדרין

האתר נראה בנוי יפה מאוד. אבל אני לא מבין מאיפה הנתונים שם.
לדוגמא מסעדת אמא בירושלים מופיעה כאן ככשרות בד"ץ מהדרין (רובין). אבל באתר שלהם כאן זה רבנות ירושלים.
מי מעדכן נתונים?

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

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

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

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

שוב תודה.

תודה.
בסוף התברר שאין צורך דוקא באופיס 2002 (טעות של הטכנאי שלנו).
תודה לכולם!

תודה!

מצאתי אצלי משהו, אבל נראה לי די ישן, אז כנראה לא מתאים למה שהתחדש.

Public Function fCheckBankAccountValidity(lngBankNumber As Long, _
                                          lngBranch As Long, _
                                          lngAccount As Long) As Boolean
  On Error GoTo Err_בדיקה
    
    fCheckBankAccountValidity = 0

    Dim lngRequiredAccountLength As Long
    Dim lngTotal As Long

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

    Dim strAccount As String
    Dim strBranch As String

    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 = Right("0000000000" & CStr(lngAccount), lngRequiredAccountLength) ' This is an alternative to the previous line
    strAccount = StrConv(strAccount, vbUnicode)
    strArrayAccount = Split(strAccount, vbNullChar)

    If lngBankNumber = 20 And lngBranch > 400 Then    ' אם מספר הסניף בבנק מזרחי-טפחות גדול מ400
        strBranch = CStr(lngBranch - 400)    ' לפני החישובים יש להפחית 400
    End If
If lngBankNumber = 20 And lngBranch < 400 Then    ' אם מספר הסניף בבנק מזרחי-טפחות לא גדול מ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
             fCheckBankAccountValidity = 1
          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
                    fCheckBankAccountValidity = 1
               
            Case Else
                    fCheckBankAccountValidity = 0
            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
                    fCheckBankAccountValidity = 1
            Case Else
                    fCheckBankAccountValidity = 0
            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
                    fCheckBankAccountValidity = 1
            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
                    fCheckBankAccountValidity = 1
            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
                    fCheckBankAccountValidity = 1
                Case 6
                    fCheckBankAccountValidity = 1
                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
                    fCheckBankAccountValidity = 1
                      Case 6
                    fCheckBankAccountValidity = 1
                     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
                fCheckBankAccountValidity = 1
            End If
        Case 54
                 fCheckBankAccountValidity = 1
       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
                fCheckBankAccountValidity = 1
            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
                    fCheckBankAccountValidity = 1
                Case 2
                    Select Case strBranch
                        Case 154, 166, 178, 181, 183, 191, 192, 503, 505, 507, 515, 516, 527, 539
                            fCheckBankAccountValidity = 1
                    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
                        fCheckBankAccountValidity = 1
                    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
                            fCheckBankAccountValidity = 1
                        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
                    fCheckBankAccountValidity = 1
                Case 2
                    Select Case strBranch
                        Case 347, 361, 362, 363, 365, 385
                            fCheckBankAccountValidity = 1
                    End Select
                Case 4
                    Select Case strBranch
                        Case 361, 362, 363
                            fCheckBankAccountValidity = 1
                    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
                        fCheckBankAccountValidity = 1
                    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
                            fCheckBankAccountValidity = 1
                        End If
                    End If
            End Select
    End Select

Exit_fCheckBankAccountValidity:
    Exit Function

Err_בדיקה:
    
     fCheckBankAccountValidity = 2
    Exit Function

End Function

Public Function fCheckBankAccountValidityTest()
Debug.Print fCheckBankAccountValidity("4", "129", "100477")
End Function

תודה.

@dovid תודה!

@מלא תודה!
בדיוק מה שהייתי צריך.

או נוסחה כזו באקסל:

=MOD(A1+4,12)

אני רק ממשיך את @ivrtikshoret :

i = 1
Do
    If i < 13 Then
        MsgBox i
    Else
        MsgBox i Mod 12
    End If
    i = i + 1
Loop

@מטעמים כתב בעזרה | משתנה חודשים עוקבים שחוזר לתחילת שנה:

(וגם שלא יהיה בתוך לולאה)

איך אתה רוצה להוסיף חודשים בלי לולאה?
אני לא בטוח שאפשר.

אם אתה רוצה עם לולאה אולי משהו כזה:

for a = 1 to 100
    for b = 1 to 12
        msgbox b
    text b
text a

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

@one1010 כתב בשליחת מייל מאקסס ללא לקוח דוא"ל:

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

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

msgOne.Subject = "Subject"

לנושא של המייל שאותו אתה רוצה
וכאן

msgOne.TextBody = "TextBody"

לכתוב את גוף המייל.
אתה גם יכול לשלוח את השאילתה בתור קובץ אקסל מצורף בפרמטר הזה

msgOne.AddAttachment "C:\Users\1\Downloads\Some File.pdf"

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

@פלורידה מצורפת דוגמא.

חוברת1.xlsx