אופיס 365 רשימה לפקד משולב

[Aיוסי]

יש לי פקד משולב עם רשימה כזו
אבא
אמא

איך אני עושה שאם כותבים "בא" הוא יציע אבא ולא רק אם כותבים מתחילת המילה?

 

[ארי4791]

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

 

[ארי4791]

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

 

[אפר]

מעודכן:

יש ליצור מודול מחלקה עם הקוד הבא:

Option Compare Database
Option Explicit

Private Direction As Boolean

Public Function ChipushShinuy()
    On Error Resume Next
    If Direction Then
        Direction = False
    Else
        Screen.ActiveControl.Tag = Screen.ActiveControl.Text
        Screen.ActiveControl.RowSource = Screen.ActiveControl.RowSource
        Screen.ActiveControl.Dropdown
    End If
End Function

Public Function ChipushGotFocus()
    On Error Resume Next
    Screen.ActiveControl.Tag = ""
    Direction = False
    Screen.ActiveControl.RowSource = Screen.ActiveControl.RowSource
End Function

Public Function ChipushKeyUp(KeyCode As Integer)
    On Error Resume Next
    If KeyCode = 38 Or KeyCode = 40 Then Direction = True
End Function

Public Function ChipushKeyDown(KeyCode As Integer)
    On Error Resume Next
    If KeyCode = 38 Or KeyCode = 40 Then Direction = True
End Function

Public Function ChipushNotInList()
    On Error Resume Next
    Dim Sql As Recordset
    Set Sql = CurrentDb.OpenRecordset(Screen.ActiveControl.RowSource)
    ChipushNotInList = Sql(Screen.ActiveControl.BoundColumn - 1)
    Set Sql = Nothing
End Function

​

במודול נוסף:

Option Compare Database
Option Explicit

Public Function Chipush() As String
    On Error Resume Next
    Chipush = Screen.ActiveControl.Tag
End Function

​

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

ALike "%" & Chipush() & "%"

יש להגדיר הרחב אוטומטית ללא

לאחר מכן לגשת לVBA:
צריך לתת שם למודול הארוך (אני נתתי לדוג' clsChipush)
צריך לתת שם לכל פעם שמשתמשים לפקד (בדוג' Shem)
בחלק העליון של המודול של הטופס להוסיף

private <<שם באנגלית>> as <<שם המודול הארוך>>
דוג'
private Shem as clsChipush

ובעת טעינה של הטופס להוסיף

set <<השם באנגלית>> = new <<שם המודול הארוך>>
דוג'
set Shem = new clsChipush

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

בעת שינוי:

<<השם באנגלית>>.ChipushShinuy

בעת קבלת מוקד:

<<השם באנגלית>>.ChipushGotFocus

בעת ירידת מקש:

<<השם באנגלית>>.ChipushKeyDown KeyCode

בעת עליית מקש:

<<השם באנגלית>>.ChipushKeyUp KeyCode

בעת שלא ברשימה:

On Error Resume Next
Response = 0
Me.ActiveControl = <<השם באנגלית>>.ChipushNotInList
<<שם הפקד>>_AfterUpdate

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

 

[Aיוסי]

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

 

[Aיוסי]

@אפר עכשיו ניסיתי לעשות כך

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

 

[אפר]

שכחתי שני חלקים נוספים

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

private <<שם באנגלית>> as <<שם המודול הארוך>>
דוג'
private Shem as clsChipush

ובעת טעינה של הטופס להוסיף

set <<השם באנגלית>> = new <<שם המודול הארוך>>
דוג'
set Shem = new clsChipush

 

[אפר]

ותוריד את הסוגריים
טעיתי עדיף לא לשים אותם

 

[אפר]

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

לא כתבתי את זה מספיק אחיד וברור בתחילה

 

[Aיוסי]

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

לא כתבתי את זה מספיק אחיד וברור בתחילה

זה הקוד בטופס

Option Compare Database
Private Shem As AutoComplete1


Private Sub cboCity_AfterUpdate()
    DoCmd.Save acForm, "XYZ"
    DoCmd.RefreshRecord
End Sub

Private Sub cboCity_Change()
    Shem.ChipushShinuy
End Sub

Private Sub cboCity_GotFocus()
    Shem.ChipushGotFocus
End Sub

Private Sub cboCity_KeyDown(KeyCode As Integer, Shift As Integer)
    Shem.ChipushKeyDown KeyCode
End Sub

Private Sub cboCity_KeyUp(KeyCode As Integer, Shift As Integer)
    Shem.ChipushKeyUp KeyCode
End Sub

Private Sub cboCity_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Response = 0
Me.ActiveControl = Shem.ChipushNotInList
cboCity_AfterUpdate
End Sub

Private Sub Form_Load()
 Set Shem = New AutoComplete1
End Sub

וזה מקפיץ שגיאה

אולי צריך לשנות משהו גם במודולים עצמם?

 

[אפר]

זה הקוד בטופס

Option Compare Database
Private Shem As AutoComplete1


Private Sub cboCity_AfterUpdate()
    DoCmd.Save acForm, "XYZ"
    DoCmd.RefreshRecord
End Sub

Private Sub cboCity_Change()
    Shem.ChipushShinuy
End Sub

Private Sub cboCity_GotFocus()
    Shem.ChipushGotFocus
End Sub

Private Sub cboCity_KeyDown(KeyCode As Integer, Shift As Integer)
    Shem.ChipushKeyDown KeyCode
End Sub

Private Sub cboCity_KeyUp(KeyCode As Integer, Shift As Integer)
    Shem.ChipushKeyUp KeyCode
End Sub

Private Sub cboCity_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Response = 0
Me.ActiveControl = Shem.ChipushNotInList
cboCity_AfterUpdate
End Sub

Private Sub Form_Load()
 Set Shem = New AutoComplete1
End Sub

וזה מקפיץ שגיאה
צפה בקובץ המצורף 1069669

אולי צריך לשנות משהו גם במודולים עצמם?

AutoComplete1 זה השם של המודל הארוך? (אם לא אז תחליף)

 

[Aיוסי]

AutoComplete1 זה השם של המודל הארוך? (אם לא אז תחליף)

כן

 

[אפר]

כן

שכחתי לכתוב שהמודול הארוך צריך להיות מודול מחלקה (Class)

 

[Aיוסי]

@אפר עובד מעולה!!! עזרת לי מאוד.
אין לך איזה קפה ?

 

[אפר]

@אפר עובד מעולה!!! עזרת לי מאוד.
אין לך איזה קפה ?

לא, תודה,

 

[Aיוסי]

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

 

[אפר]

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

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

 

[Aיוסי]

הכנסתי את זה בבעת שלא ברשימה, ולא עובד:

Private Sub cboxyz_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Response = 0
Me.ActiveControl = Shem.ChipushNotInList
cboxyz_AfterUpdate
End Sub

יכול להיות שהשורה הזו cboxyz_AfterUpdate צריכה להיות פקד אחר?

 

[אפר]

הכנסתי את זה בבעת שלא ברשימה, ולא עובד:

Private Sub cboxyz_NotInList(NewData As String, Response As Integer)
On Error Resume Next
Response = 0
Me.ActiveControl = Shem.ChipushNotInList
cboxyz_AfterUpdate
End Sub

יכול להיות שהשורה הזו cboxyz_AfterUpdate צריכה להיות פקד אחר?

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

 

[Aיוסי]

צדקת זו אכן היתה הבעיה, סליחה על ההטרדה!!