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

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

@katz אמר בעזרה באקסס - חיפוש בטופס:

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

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

@avi-rz לא עזר, עכשיו אני יכול להקליד, אבל לא מסנן לי כלום.

@katz איך אני מגדיר בשאילתה קריטוריון שמתאים ל"מה שכתוב בתיבת טקסט פלונית"?

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

@avi-rz מה זה אומר?

@avi-rz אמר בעזרה באקסס - חיפוש בטופס:

@avi-rz
אגב, שמתי לב שאתה מסנן לפי מחרוזת אז תוסיף גרשיים לפני ואחרי השדה שלפיו יהיה הסינון. כך:

Me.Filter = "[משפחה]=" & """" & Me.InForm & """" ```

לא עזר

תוכל לבדוק גם:
DoCmd.SetFilter , "[משפחה]=" & """" & Me.InForm & """"

מעלה:

וכשאני לוחץ דיבוג:

@avi-rz לא עוזר.

@avi-rz אמר בעזרה באקסס - חיפוש בטופס:

Me.Requery

אחרי מה להוסיף את זה?

@avi-rz עשיתי ככה:

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

@avi-rz
עשיתי ככה:

וכשאני מקליד אות עולה לי הודעת שגיאה:

@avi-rz הבנתי, הטעות הייתה שלי.
במקום לכתוב:

Sub setDetails()
    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close
End Sub
 
Private Sub כתובת_DblClick(Cancel As Integer)
    Call setDetails
End Sub

כתבתי:

Private Sub ID_DblClick(Cancel As Integer)
    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close

    Private Sub כתובת_DblClick(Cancel As Integer)
    Call setDetails

@avi-rz
אני כותב מה עשיתי:
יצרתי תיבת טקסט, הגדרתי בארוע "בעת לחיצה על מקש", קודMe.Filter = "[משפחה]=" & Me.InForm
הקלדתי שם משפחה בתיבה ו.... לא עשה כלום .
כנראה לא הבנתי נכון משהו. במה טעיתי?

@avi-rz עזר, תודה!!

@avi-rz
תודה רבה!
אגב, לא הצלחתי לעשות את הקוד הזה:

Private Sub משפחה_DblClick(Cancel As Integer)
    Call setDetails
End Sub

כותב לי הודעת שגיאה.
אבל כתבתי פעמיים את הקוד Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value ועבד לי מצויין.
שוב תודה רבה!

@avi-rz תודה רבה!! אין מילים!! תבורך מפי עליון
אגב, יש לך מושג למה זה פותח את הטופס של התורמים בתצוגת גליון נתונים? הוא מוגדר לי על פתיחת ברירת מחדל של טפסים רציפים.

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

@odeddvir לא ידעתי. מתנצל. לא יקרה שוב.
עכ"פ, אשמח לעזרה...

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

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

Private Sub משפחה_DblClick(Cancel As Integer)
    DoCmd.OpenForm "פרטיבחור", , , "ID = " & Me!ID
End Sub

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

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