עזרה באקסס

[I r i s I r i s]

עזרה באקסס

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

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

תודה על העזרה!

 

[כלליים]

נסי להגדיר

את המאפיין DataEntry של הטופס כFALSE.

 

[I r i s I r i s]

תודה אבל זה לא ילך

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

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

 

[כלליים]

יילך. יילך.

את השאלה הבנתי, ואין לי מושג למה אתה אומר שזה לא יילך.

 

[I r i s I r i s]

הטופס חייב להיפתח להזנת נתונים

השאלה איך אפשר לשחרר את כל הנתונים אחרי זיהוי כפילות בת"ז - דרך הקוד.
תודה על המאמץ בכל זאת.

 

[כלליים]

אין לי מה לענות

מעבר למה שאמרתי:
MyForm.EntryData = FALSE

 

[כלליים]

ובבקשה

אל תחזור שוב על השאלה, כי הבנתי אותה בדיוק נמרץ.
אם משהו לא ברור, הסבר מה, ושקול לצרף קובץ.

 

[I r i s I r i s]

צירפתי קובץ

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

 

[I r i s I r i s]

הנה קישור לקובץ

דוגמא

 

[כלליים]

הנה הקוד

Private Sub Id_AfterUpdate()
If IsNumeric(DLookup("id", "Table1", "id='" & Id & "'")) Then
Me.Undo
Me.DataEntry = False
Me.Filter = "id='" & Id & "'"
Me.FilterOn = True
End If
End Sub

 

[I r i s I r i s]

תודה רבה זה עזר

 

[כלליים]

כמו שאמרתי: יילך. יילך.