תחומים - פורום חרדי מקצועי

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

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

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

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

@OdedDvir

Public gUser As String

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

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

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

@OdedDvir

gUser = Me!TextBoxUserName

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

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

@לחיל-אומר
את האמת אני גם חיפשתי הרבה זמן ולא מצאתי משהו נורמלי (חוץ מספרים)

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

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

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

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

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

@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
זה אותו הטופס כמו בנושא השני של המחיקת שדה

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

@OdedDvir
ב''ה סוף סוף עובד הרבה תודה

@אוריי אמר באיך אני נועל את האקסס עם שם משתמש וסיסמה?:

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

@searchnicks
@yits
העלתי כאן קובץ של שם משתמש וסיסמה לכל מי שרוצה כולל פונקציות מעניינות (במודול) בהמשך אני אתן גם הסבר למה שעשיתי

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

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

עשיתי קוד כזה

@OdedDvir
ב BookListUser2

@OdedDvir
אין איזה אפשרות שלא יסנן כלל או שיביא את כל הרשומות המלאות (גם יכול לעזור)

@OdedDvir
BookListUser שם השאילתה

ע''פ שאני רוצה גם לנעול את העריכה

זה של הטופס BookListUser1 האמצעי שמקבל את הנתונים מהשאילתא

ומכאן אני לוקח את הנתונים לטופס BookListUser2

@OdedDvir
BookListUser

@OdedDvir
בטופס המשני או המקורי?