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

@avi-rz
אם זה עדיין לא עובד = אז זה כנראה בעיה אחרת בחלק לא משותף.
תוכל לבדוק גם:

DoCmd.SetFilter , "[משפחה]=" & """" & Me.InForm & """"

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

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

@איש-פלוני
עוד שורה בסוף הפונקציה של אחרי עדכון.

@איש-פלוני
תוסיף

Me.Requery

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

@איש-פלוני

• תנסה לעשות "אחרי עדכון", ולראות אם זה עובד.

• תנסה אחרי זה לרענן.

• או אולי להוסיף הקוד הבא:

Me.FilterOn = True

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

Sub setDetails()
    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close
End Sub

ולקרוא לה בכל מקום אחד בעמוד ע"י.

Call setDetails

אגב זה מצריך טופס מיוחד לזה, - לע"ע.

@avi-rz
עזר?

@איש-פלוני
תמחק את "acFormDS"
ובמקום:

DoCmd.OpenForm "תורמים", **acFormDS**, , , , acDialog

תכתוב:

DoCmd.OpenForm "תורמים", , , , , acDialog

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

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

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

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

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

אותו דבר, רק הפוך:

Me.Filter = "[InTable]=" & Me.InForm

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

@איש-פלוני
תנסה לעשות דיבוג,

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

    DoCmd.OpenForm "תורמים", acFormDS, , , , acDialog
    Me.קוד_תורם.Requery

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

    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close

וכמובן: אם אתה רוצה לעשות את אותה פעולה בכמה שדות תעשה משהו דומה לזה:

Sub setDetails()
    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close
End Sub

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

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

Private Sub עיר_DblClick(Cancel As Integer)
    Call setDetails
End Sub

Private Sub פרטי_DblClick(Cancel As Integer)
    Call setDetails
End Sub

בהצלחה.

@אביי אמר באקסס | הזנת ערך בתא ע"פ ערך בתא אחר:

אבל אני מעדיף שלאחר מעשה, יישמר לי ברשומה הערך המעשי דהיינו "בני ברק" ולא "2",

לא כ"כ ברור, למה זה משנה:
אם לדוגמא ייצוא באקסל? תייצא שאילתה - זה ייצא עם העיר בעצמה ולא הid שלה,
או שתוכל לעשות שאילתה חדשה - בא נאמר שלשדה הנ"ל קוראים "עיר", תוסיף שדה בשם "שם_עיר" ושמה יהי מוכנס הערך מחרוזת של העיר. "בני ברק". - ואם זה משנה מאוד תוכל להכניס שאילתה רק את המחרוזת עיר בשם "עיר", ולא להוסיף בכלל את הid של העיר.

@נ-נח
אי לא מכיר את C#
אבל זה לא כך?

"\""

@clickone אמר בJS - אימות מספר חשבון ישראלי:

עריכה: כעת אני רואה שזה המסמך שהבאת. והוא המעודכן לפי ידיעתי

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

@איש-פלוני
כתבת קוד?
א"כ כדאי שתעלה אותו?

@אוריי אמר בעזרה באקסס - מיון טופס לפי תיבה משולבת:

זה טעות בקוד שהוא העתיק מכאן
@avi-rz אמר בעזרה באקסס - מיון טופס לפי תיבה משולבת:

אם זה היה העתקה זה היה עובד. יש גרש אחרי השווה.

נ.ב. הפוסט הקודם השארתי בלי לרענן את הדף - כך שלא ראיתי שהגיבו עליו כבר.

@איש-פלוני
שים לב אחרי השווה להוסיף את התו " ' "
עריכה: הסבר: בגלל שזה מחרוזת ולא מספר אז צריך לתחום אותו ב גרש (') משתי הצדדים או ב שווה (")

@איש-פלוני אמר בעזרה באקסס:

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

בסדר,
אז רק נתחיל
בקוד - סינון לפי מספר

DoCmd.SetFilter "", "[קוד]=" & Nz(Me.מחבר.Value, 0)

בקוד - סינון לפי מחרוזת

DoCmd.SetFilter "", "[קוד]='" & Nz(Me.מחבר.Value, "") & "'"

שים לב! להחליף את המילה "קוד" = השם של השדה הרשום בטבלה שאליו אתה רוצה להשוות
ואת המילה "מחבר" = "השם של הפקד בטופס שמכיל את המספר או המחרוזת שאתה רוצה לסנן.