@איש-פלוני אמר בעזרה באקסס - חיפוש בטופס:
שיניתי את מקור הטופס הראשי לאותו מקור טופס של טופס המשנה,
כעת הוא לא נותן לי להקליד שום דבר בתיבה, כל מקש שאני לוחץ זה כאילו לחצתי על טאב והוא עובר לי לרשומה הראשונה בטופס המשנה.
תמחק את כל הפונקציות בכל הקשה,
ותשאיר רק את ה"אחרי עדכון".
@איש-פלוני
תפתח את המאפיינים של הטופס > נתונים >מקור רשומה > תבחר את הטבלה של התורמים.
@איש-פלוני
כותב שהטופס לא מאוגד.
@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
אגב זה מצריך טופס מיוחד לזה, - לע"ע.
@איש-פלוני
תמחק את "acFormDS"
ובמקום:
DoCmd.OpenForm "תורמים", **acFormDS**, , , , acDialog
תכתוב:
DoCmd.OpenForm "תורמים", , , , , acDialog
@איש-פלוני אמר בעזרה באקסס - חיפוש בטופס:
סליחה שאני שואל, אבל אין לי את הידע לדעת מה התכוונת...
מה שמוקף במרכאות זה שם התיבה שבה יש את הנתונים שלפיהם צריך לסנן?
וה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
בהצלחה.
@איש-פלוני אמר בעזרה באקסס:
כלל מאקרו, (אבל אם עדיף קוד אני יכול לנסות, כמעט אף פעם לא השתמשתי, אבל אני יודע באופן בסיסי-שטחי ממש).
בסדר,
אז רק נתחיל
בקוד - סינון לפי מספר
DoCmd.SetFilter "", "[קוד]=" & Nz(Me.מחבר.Value, 0)
בקוד - סינון לפי מחרוזת
DoCmd.SetFilter "", "[קוד]='" & Nz(Me.מחבר.Value, "") & "'"
שים לב! להחליף את המילה "קוד" = השם של השדה הרשום בטבלה שאליו אתה רוצה להשוות
ואת המילה "מחבר" = "השם של הפקד בטופס שמכיל את המספר או המחרוזת שאתה רוצה לסנן.
@odeddvir אמר בעזרה בחישוב תשלומים בשאילתה באקסס:
שאילתת איחוד לא תפתור את הבעיה, כי לקוחות שלא מופיעים כלל בשום טבלת תשלומים לא יוצגו.
אפשר להוסיף לשאילתת איחוד, גם את הלקוחות, (כמובן להוסיף עוד עמודות ריקות במקום העמודות של התשלומים ובתשלומים להוסיף במקום הלקוח, וכו'.)
ואז לעשות סיכום לפי לקוח, sum בתשלום1 ו sum בתשלום2
@איש-ימיני אמר בתוכנה ליצירת מספרים אקראיים. קיים?:
אני צריך אלפי מספרים אקראיים.
יש תוכנה שעושה את זה בצורה טובה?
לא נראה שקשור לסיסמאות,
מספרים אקראיים, לא דומים.
וע"זה באה תשובה למה לא אקסל
@שוהם307 בדקת שההתקן יציאת אודיו מוגדר לרמקול?
@אוריי אמר בקיצורי דרך בכונן חיצוני:
כוונתי לומר שהוא יזהה איפה הקיצור דרך נמצא (מיקום נוכחי) + שאר הקישור... מה הבעיה (מושג פשוט בתכנות) השאלה אם יש דבר כזה?
הא סליחה,
משומה היה נראה לי, קיצור דרך במחשב שיגיע באופן קבוע לדיסק(לא מסוים).
זה נשמע שהדיסק היה מחובר למחשב כשהוא עבד לפני שבת,
אז איך המחשב נכבה בערב שבת,
בצורה תקינה או הפסקת חשמל(שעון /מעבר לגנרטור)?