iif בבונה הביטויים באקסס

[OdedDvir]

@אוריי בארוע לחיצה של תיבת הסימון:

If Me.AllUsers Then
   Me.Filter = ""
Else
   Me.Filter = "UserName='" & GetUserName() & "'"
End If
Me.FilterOn = True

[אוריי]

@OdedDvir
לא עוזר
כאילו הוא לא עושה כלום

[OdedDvir]

@אוריי האם אתה משתמש בטופס משנה, ופקד תיבת הסימון נמצא בטופס האב?

[אוריי]

@OdedDvir
זה אותו הטופס כמו בנושא השני של המחיקת שדה

[OdedDvir]

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

If Me.AllUsers Then
   Me!BookListUser1.Form.Filter = ""
Else
   Me!BookListUser1.Form.Filter = "UserName='" & GetUserName() & "'"
End If
Me!BookListUser1.Form.FilterOn

[אוריי]

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי
אני יתן לך את הקוד במלואו

Private Sub AllUsers_AfterUpdate()
    If GetUserName = "אורי" Then
    
    If Me.AllUsers Then
       Me!BookListUser1.Form.Filter = ""
    Else
       Me!BookListUser1.Form.Filter = "UserName='" & GetUserName() & "'"
    End If
    Me!BookListUser1.Form.FilterOn
: Exit Sub
    Else
    msgok "שגיאה!@אין לך הרשאות צפיה@פנה למנהל התוכנה@"
    Me.AllUsers = False
    Me!BookListUser1.Requery
   End If
End Sub

עוד דבר אני צריך שבברירת המחדל הוא יעשה סינון ורק אם אני מסמן שיביא את כל הרשומות

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי

לא הבנתי כוונתך.

עוד דבר אני צריך שבברירת המחדל הוא יעשה סינון ורק אם אני מסמן שיביא את כל הרשומות

את זה תוכל להגדיר במאפייני הטופס
מסנן=UserName=.....
סנן בעת טעינה

[אוריי]

@OdedDvir אמר בiif בבונה הביטויים באקסס:

@אוריי אמר בiif בבונה הביטויים באקסס:

@OdedDvir
משהו מוזר הקוד הזה מוחק לי את המשתמש הגלובלי שעשיתי

לא הבנתי כוונתך.

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

[OdedDvir]

@אוריי כיצד הגדרת את המשתמש הגלובלי?

[אוריי]

@OdedDvir
בפונקציה במודול

Public Function GetUserName() As String
GetUserName = gUser
End Function

[OdedDvir]

@אוריי ובכן, כיצד הגדרת את gUser?

[אוריי]

@OdedDvir

gUser = Me!TextBoxUserName

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

gUser = Me!TextBoxUserName

ומתי השורה הנ"ל מתבצעת?

[אוריי]

@OdedDvir
בכניסה לאחר אישור שם משתמש וסיסמה

[אוריי]

במחשבה שניה אולי כדאי לחזור לבונה ולכתוב תנאי שיביא את כל הרשומות המלאות

זאת אומרת מה שחסר לי שם זה קוד שיביא את כל הרשומות המלאות יש כזה?

[OdedDvir]

@אוריי יפה, מה שורת ההגדרה של המשתנה gUser?

[אוריי]

@OdedDvir

Public gUser As String

[OdedDvir]

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

אם תיכנס מהתחלה לתוכנה ותכניס שם משתמש - הסינון יעבוד.

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

[אוריי]

@OdedDvir אמר בiif בבונה הביטויים באקסס:

יש פתרוןאחר לבעיה הנ"ל, והוא במקום משנה גלובלי, להשתמש בTempVars, ששומרים על הערך שלהם כל זמן שאקסס פתוח.

יש לי בעיה עם זה אם אני רוצה לשנות את שם המשתמש

ומה אתה אומר יש אפשרות לחזור לבונה לכתוב iif או את הפונקציה או את כל מה שלא ריק?

[OdedDvir]

@אוריי אמר בiif בבונה הביטויים באקסס:

יש לי בעיה עם זה אם אני רוצה לשנות את שם המשתמש

למה? אפשר להשתמש בTempVars כמו משתנה רגיל

ומה אתה אומר יש אפשרות לחזור לבונה לכתוב iif או את הפונקציה או את כל מה שלא ריק?

לא עולה בדעתי כרגע...