העתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס

[איש פלוני]

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

[avi rz]

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

    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

בהצלחה.

[איש פלוני]

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

[avi rz]

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

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

תכתוב:

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

[איש פלוני]

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

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

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

[avi rz]

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

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

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

Call setDetails

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

[איש פלוני]

@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
איך אני עושה שכשאלחץ לחיצה כפולה על אחד הפקדים, יוכנסו בו נתונים מטבלה מסויימת?
דהיינו, בטבלה "הגדרות" יש לי רק שדה אחד ובו רק תא אחד, - תיבה משולבת מסוג מספר שמציגה שנה נוכחית [מונה עמודות-2, רוחב עמודות 0;2].
אני רוצה שכשאלחץ פעמיים בתיבה "שנה" באחד הטפסים הוא יזין לי את הנתון שבתא ההוא. (התיבה גם היא תיבה משולבת עם מקור רשומה מאותו מקור של התא בטבלה).
מה הקוד לעשות את זה?
תודה רבה על כל העזרה!!

[איש פלוני]

עוד שאלה,
אפשר להגדיר בקריטוריונים של טבלה שערך ברירת מחדל יהיה: שווה לנתון שבפקד/שדה מסויים?
תודה רבה!

[avi rz]

@איש-פלוני אמר בהעתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס:

איך אני עושה שכשאלחץ לחיצה כפולה על אחד הפקדים, יוכנסו בו נתונים מטבלה מסויימת?
דהיינו, בטבלה "הגדרות" יש לי רק שדה אחד ובו רק תא אחד, - תיבה משולבת מסוג מספר שמציגה שנה נוכחית [מונה עמודות-2, רוחב עמודות 0;2].
אני רוצה שכשאלחץ פעמיים בתיבה "שנה" באחד הטפסים הוא יזין לי את הנתון שבתא ההוא. (התיבה גם היא תיבה משולבת עם מקור רשומה מאותו מקור של התא בטבלה).
מה הקוד לעשות את זה?

לא כ"כ הבנתי,
מה קורה בטבלה הגדרות?
ואיפה זה נמצא?

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

אפשר צילומי מסך?

[avi rz]

@איש-פלוני אמר בהעתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס:

אפשר להגדיר בקריטוריונים של טבלה שערך ברירת מחדל יהיה: שווה לנתון שבפקד/שדה מסויים?

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

[איש פלוני]

@avi-rz אמר בהעתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס:

אז או שזה נתון שמגדירים פעם ב.. אז זה לא צריך להיות פתוח פשוט לעשות Dlookup מהטבלה ההיא.

תודה רבה! Dlookup היא בדיוק הפונקציה שהייתי צריך!
יישר כח!