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

@A0533057932 אני חושב שהוא הזיז את זה מהשרת.

@stack-OVER גם כשאתה באמצע הקלדה?

@stack-OVER אבל יש לזה חיסרון, שזה לא עובד כשהמוקד נמצא בתיבת טקסט.

@dovid אולי אפשר למנוע מהמערכת לשנות את הקובץ שבו היא מאחסנת את שמות התגיות שכבר קיימות, ולתת לה רק לשלוף את מה שכבר קיים?

אולי @yossiz האלוף יוכל לעזור בזה...

וא"כ, אזי אנכי הקטן, יתרום קצת הצעות לתגיות

@רחמים אמר בחיפוש והחלפה של רווחים באקסל/אקסס:

ולגבי רווחים בסוף שאין אחריהם כלום יש פונקציה TRIM

כלומר, איך אני מתפעל אותה בהחלפה?

@nach אמר בחיפוש והחלפה של רווחים באקסל/אקסס:

באקסל תוכל לפתור ע"י פונקציות חיפוש והחלפה

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

איך אני מגדיר באקסל/אקסס שכל רווח שאין אחריו מילה אלא רווח או כלום יימחק?

@מעמד לא של והלכת בדרכיו, סתם קו מידע כלשהו (יושב על קליקול)

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

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

@dovid אולי אפשר להגביל את התגיות לרשימה מוגדרת מראש? זה אמנם לא הכי טוב מצד אחד, ומצד שני גם לא פותר את הבעיה ב100%, אבל זה יותר טוב מכלום!

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

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

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

אגב @ניהול למה א"א להוסיף תגיות?

אגב @dovid יש לך מושג לגבי זה? זה דווקא מאוד יעיל ונח..

@dovid אמר באקסס | יצירת רשימה לפקד משולב:

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

אתה צודק ב 100% אבל מה לעשות, שהאינפורמיישן היחיד שהיה לי, זה שעשיתי כפי הבנתי, ובכ"א זה לא עובד, אתה צודק שהייתי צריך לפרט שאחרי שהגדרתי את הכל, הפעלתי את הפקד המשולב, והוא המשיך לתת לי את רשימת השמות של הרחובות ללא חלוקה לערים, תודה על ההארה, אשתדל ליישמה!

@OdedDvir וואי וואי, כמה שגיאות תודה על כל העזרה!!
(פשוט החלטתי לכבוד הקורונה לקדם את כל הדברים והפרויקטים שנתקעתי בהם, ויש ביניהם הרבה אקססים)

@איש-ימיני אולי תנסה להגדיר את המ.ז. כid ולעשות שאילתה שתאחד את הטבלה "ילדים" עם הטבלה "ציונים" לפי המ.ז.

@OdedDvir לא עובד לי משום מה מצ"ב קובץ
database1.accdb

@OdedDvir הכפתור חיפוש הוא "cmdFilter" איך אני עושה בקוד לאחר עידכון שכביכול יילחץ עליו?

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

Private Sub Filter1_AfterUpdate()
    'Purpose:   Build up the criteria string form the non-blank search boxes, and apply to the form's Filter.
    'Notes:     1. We tack " AND " on the end of each condition so you can easily add more search boxes; _
                        we remove the trailing " AND " at the end.
    '           2. The date range works like this: _
                        Both dates      = only dates between (both inclusive. _
                        Start date only = all dates from this one onwards; _
                        End date only   = all dates up to (and including this one).
    Dim strWhere As String                  'The criteria string.
    Dim lngLen As Long                      'Length of the criteria string to append to.
    Const conJetDate = "\#mm\/dd\/yyyy\#"   'The format expected for dates in a JET query string.
    
    '***********************************************************************
    'Look at each search box, and build up the criteria string from the non-blank ones.
    '***********************************************************************
    'Text field example. Use quotes around the value in the string.
    If Not IsNull(Me.Filter1) Then
        strWhere = strWhere & "([עיר] Like ""*" & Me.Filter1 & "*"") AND "
    End If
    
    'Another text field example. Use Like to find anywhere in the field.
    If Not IsNull(Me.FilterCity) Then
        strWhere = strWhere & "([משפחה] Like ""*" & Me.FilterCity & "*"") AND "
    End If
    
    If Not IsNull(Me.Filter2) Then
        strWhere = strWhere & "([אזור] Like ""*" & Me.Filter2 & "*"") AND "
    End If
    
    '***********************************************************************
    'Chop off the trailing " AND ", and use the string as the form's Filter.
    '***********************************************************************
    'See if the string has more than 5 characters (a trailng " AND ") to remove.
    lngLen = Len(strWhere) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "היי, אנחנו לא יכולים לחפש אם לא אמרת לנו מה לחפש :)", vbInformation, "שגיאה"
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strWhere = Left$(strWhere, lngLen)
        'For debugging, remove the leading quote on the next line. Prints to Immediate Window (Ctrl+G).
        'Debug.Print strWhere
        
        'Finally, apply the string as the form's Filter.
        Me.Filter = strWhere
        Me.FilterOn = True
      End If
End Sub

@שוהם307 אחרי הקורונה של הסינים, את מי זה מעניין איזה פלאפון סיני שעושה כאבי ראש?

@שוהם307 לא ברור... למי יש כח לעשות באלגן... מחליפים פלאפון וממשיכים הלאה..