אופיס 365 באקסס, פתיחת טופס מקושר

[אריה123]

איך אפשר לפתוח טופס שיהיה מקושר לטופס הפתוח הנוכחי לפי קוד הזיהוי שלו ?

(עשיתי את זה פעם עם פקודה שנקראת BOOKMARK, אבל זה לא הולך לי עכשיו).

 

[אריה123]

...

 

[moishy]

באמצעות הWhereCondition של DoCmd.OpenForm.
עי' בעזרה של VBA.

 

[אריה123]

לא הצלחתי להסתדר עם זה...
תוכל לפרט ?
ותודה מראש

 

[נפוליאון]

DoCmd.OpenForm "FormName", acNormal, WhereCondition:="RowID=" & CStr(Me.RowID), OpenArgs="Edit"

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

Private Sub Form_Load()
    Select Case Nz(Me.OpenArgs, "")
        Case "Edit"
            Me.lblFormTitle.Caption = "ערוך רשומה"
            Me.AllowAdditions = False
            Me.DataEntry = False
        Case Else
            Me.lblFormTitle.Caption = "הוסף רשומה"
            Me.AllowAdditions = True
            Me.DataEntry = True
    End Select
End Sub

 

[אריה123]

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

 

[chaim1989]

אני בד"כ לא משתמש בwhere אלא פשוט שולח לו ארגומנט של קוד לקוח פלוס מילת זיהוי למשל
אם הopenargs = "חדש" הוא פותח רשומה חדשה
אם = "עבור ל 12) הוא עובר לרשומה 12
וכן הלאה וכן הלאה

 

[אריה123]

אני בד"כ לא משתמש בwhere אלא פשוט שולח לו ארגומנט של קוד לקוח פלוס מילת זיהוי למשל
אם הopenargs = "חדש" הוא פותח רשומה חדשה
אם = "עבור ל 12) הוא עובר לרשומה 12
וכן הלאה וכן הלאה

תודה רבה.

אבל אני מחפש שכשאני ידפדף בטופס הראשי הוא ידפדף אוטומטית בטופס השני, בלי צורך להגיע לREQUERY וכו'.

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

 

[נפוליאון]

פשוט
בפתיחת הטופס השני לכתוב:

Set Me.Recordset = Forms("FormName1").Recordset

אחרי זה, תדפדף באחד, ידפדף גם בשני
תעדכן באחד, יתעדכן גם באחר

 

[נפוליאון]

אני בד"כ לא משתמש בwhere אלא פשוט שולח לו ארגומנט של קוד לקוח פלוס מילת זיהוי למשל
אם הopenargs = "חדש" הוא פותח רשומה חדשה
אם = "עבור ל 12) הוא עובר לרשומה 12
וכן הלאה וכן הלאה

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

 

[אריה123]

פשוט
בפתיחת הטופס השני לכתוב:

Set Me.Recordset = Forms("FormName1").Recordset

אחרי זה, תדפדף באחד, ידפדף גם בשני
תעדכן באחד, יתעדכן גם באחר

זה לא עובד לי (שיניתי את ה FROMNAME1)

 

[chaim1989]

אם אני לא טועה זה הסינטקס הנכון:
Me.Recordset = Forms!["FormName1"].Recordset
אם זה לא עובד תנסה את זה
Me.Recordset = Forms!["FormName1"].form.Recordset

 

[אריה123]

לא נראה לי שזה הנושא, אבל אני אבדוק.
(ואעדכן, בל"נ).

 

[moishy]

רצ"ב דוגמא עובדת. מצטער על האנגלית.

 

[אריה123]

הנה הקוד שהכנסתי לשגרת אירוע "בנוכחי":

If CurrentProject.AllForms("מעקב").IsLoaded Then
If Not Me.NewRecord Then
Forms!מעקב.Filter = "קוד_זיהוי=" & Me.קוד_זיהוי
Forms!מעקב.FilterOn = True
Forms!מעקב.Requery
Else
Forms!מעקב.Filter = ""
Forms!מעקב.FilterOn = True
'Forms!מעקב.SetFocus
DoCmd.GoToRecord acDataForm, "מעקב", acNewRec

End If

End If

ו..סליחה על העברית.

ומשום מה זה לא עובד !!!

 

[moishy]

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

 

[moishy]

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

 

[אריה123]

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

זה היה מוגדר "לא", שיניתי ל'כן' אבל זה עדיין לא פתר את הבעיה.

את השדות האלו עשיתי לפני למעלה מ20 שנה כשעדיין לא היה לי מושג בתיכנות...

 

[moishy]

אין לי מושג מה הבעיה וקשה לי מאוד לנסות לאבחן זאת בלי לראות את הקובץ המדובר.

 

[אריה123]

הודעת השגיאה שהוא נותן לי:
מספר שגיאה 459
Obkect or class does bot support the set of events