אופיס 365 חיפוש באקסס

[דיני 2013]

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

 

[moishy]

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

Private Sub cmdFilter_Click()

    Dim ctl As Control
    Dim strFilter As String
    
    If Nz(Me.txtFilter, "") = "" Then
        MsgBox "לא הוזן קריטריון לסינון!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "סינון"
    End If
    
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If Left(ctl.ControlSource, 1) <> "=" Then 'דלג על תיבות טקסט מחושבים
                strFilter = strFilter & "[" & ctl.ControlSource & "] Like " & Chr(34) & "*" & txtFilter & "*" & Chr(34) & " OR "
            End If
        End If
    Next
    
    strFilter = Left(strFilter, Len(strFilter) - (20 + Len(txtFilter)))
    Me.Filter = strFilter
    Me.FilterOn = True
    
End Sub

 

[דיני 2013]

מוישי אין עליך
אדיר שבאדירים

 

[דיני 2013]

מחזיר שגיאה

 

[moishy]

מחזיר שגיאה

איזה? ומתי?

 

[דיני 2013]

כשלוחצים על הלחצן
שגיאה 3075 אם זה אומר לך משהו

 

[דיני 2013]

כשלוחצים על הלחצן
שגיאה 3075 אם זה אומר לך משהו

 

[moishy]

יש מצב להעלות דוגמא של קובץ שעושה בעיות? (אצלי זה עובד).

 

[דיני 2013]

בבקשה

 

[moishy]

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

Private Sub cmdFilter_Click()
    Dim ctl As Control
    Dim strFilter As String

    If Nz(Me.txtFilter, "") = "" Then
        MsgBox "לא הוזן קריטריון לסינון!", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "סינון"
    End If

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox And ctl.Name <> "txtFilter" Then
            If Left(ctl.ControlSource, 1) <> "=" Then 'דלג על תיבות טקסט מחושבים
                strFilter = strFilter & "[" & ctl.ControlSource & "] Like " & Chr(34) & "*" & txtFilter & "*" & Chr(34) & " OR "
            End If
        End If
    Next

    strFilter = Left(strFilter, Len(strFilter) - 4)
    Me.Filter = strFilter
    Me.FilterOn = True
End Sub

 

[דיני 2013]

הבעיה שיש שם שדה המכיל גרשיים

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

 

[FullTime]

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

אפשר להגיד לו שיהיה עמודה מאוגדת העמודה שאתה רוצה לחפש.

 

[דיני 2013]

אפשר להגיד לו שיהיה עמודה מאוגדת העמודה שאתה רוצה לחפש.

לא עוזר

 

[דיני 2013]

האמת היא עכשיו אני רואה שבתיבה משולבת הוא בכלל לא מחפש

 

[יאיר משה]

תודה רבה

עזר לי גם מאוד.

 

[קצת סדר...]

האם אפשר לצמצם את החיפוש רק בשדה אחד

כלומר כמו שמחפש עכשיו כל שורה שמכיל "יוסף" לא משנה אם בהתחלה או בסוף בשדה אחד בלבד לא בכל השדות

 

[shsh654]

כלומר כמו שמחפש עכשיו כל שורה שמכיל "יוסף" לא משנה אם בהתחלה או בסוף בשדה אחד בלבד לא בכל השדות

לא מובנת (לי) השאלה

 

[קצת סדר...]

לא מובנת (לי) השאלה

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

 

[HUBHCBH]

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

להשתמש ב Like

לדוגמה

Like "יוס"&*

יתן לך כל מה שיתחיל ב"יוס"
אם תוסיף

Like*& "יוס"&*

יתן לך כל מה שמכיל "יוס"

הסבר: Like= דומה
"יוס" = קרטריון
& = ו..
*= וכו'

 

[ראש לשועלים]

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

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