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

תודה רבה!! @chagold @nigun
וכמובן @yossiz
בא נראה לאן אנחנו מתקדמים..

@odeddvir אמר באקסס | פונקציה בערך ברירת מחדל:

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

אפשר אולי להכניס את זה בתוך if רק אם השדה הנ"ל Null

@אביי נא עיין בחוקי הפורום:

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

@aaron
זה משנה בכלל מי בנה את הקופסה?
בהשוואה למחשב שולחני זה נשמע כמו ההבדל בין הרכבה עצמית בחנות לבין הרכבה ע"י HP?

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

@zvizvi אמר בתוסף חדש, עריכת אונליין לריפו בגיטהאב:

Edge בקרוב

Edge החדש מבוסס כרומיום ותוספים של כרום עובדים בו

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

@yossiz אמר בReferences ב-PHP:

אבל יש כאן בעיה שצריך לשים לב אליה. מה ש-@nigun הזכיר למעלה, שב-PHP לולאת foreach לא יוצרת scope נפרד, ולכן המשתנה ‎$row נשארת אחרי הלולאה מצביעה על האיבר האחרון של ה-array. שימוש חוזר בשם המשתנה תעשה דברים לא צפויים...

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

@מומחה-באקסס לא התכוונתי מעולם לומר שאסור להשתמש ב-DCount ושות', אלא שמיעוטן יפה.
במקרה שבו פתחת את הפוסט, היה ניכר שיש בעיה רצינית ביעילות, וראית את השיפור העצום ששימוש בכמה שאילתות גרם, והוריד את זמן הריצה פי 100 כמעט בדיוק: שניות 4/210 = 0.019.

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

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

@meme יש לי רעיון חזק שיכול לעזור לעם ישראל,
באם אתם מוכנים להתחיל לעבוד על זה, אבל אחרי זה שישאר קוד פתוח, שכל אחד יוכל להוסיף ולשפר אותו, תיצרו קשר איתי info@chocolatey.ga.

@katz אמר בAPI לקבל את שם הבנק ושם הסניף:

@חוקר או להשאיר ריק ואז מחזיר לך הכל

לא מדוייק, אם משאיר רק מחזיר 100 ראשונים

אני. למה?

@clickone אמר בייצוא למס"ב / ASCII מ PHP:

תסתכל אם אתה רואה את העברית תקין

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

@yossiz
בקיצור יש הרבה מה ללמוד
ותכל'ס שווה לכתוב כאן טיפים בנאלים כאלו, כי ככה אני לומד הרבה יותר.

@נ-נח אמר בעזרה - הכנסת ערך לתיבת טקסט c#:

@dovid תודה רבה! עובד מצוין

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

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

זה חוסך לי 99 אחוז מזמן התמיכה שאני צריך לתת, ומשאיר את זירת התמיכה למי שאמור לטפל בזה

@ש-ב-ח אמר בכמה שורות לכמה שדות - SQL:

אני כמעט בטוח שקיים כזה דבר (אולי זה נקרה טבלת ציר - pivot)

איזה SQL מדובר?
MSSQL או MYSQL?
כי בMSSQL זה נראה לי קיים.
אבל ב MYSQL זה לא קיים.
אך יש דרכים לבצע זאת פרימטיבי

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

@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

@chagold תודה רבה

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

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