איך בונים סיסמה באקסס?

[קצת סדר...]

כלומר אני רוצה לחסום פרטים כמו לפתוח כל מיני טפסים רק עם סיסמה
עדיף דרך מאקרו אם לא דרך קוד

 

[shsh654]

בשתי מילים:
טבלה עם שם משתמש והרשאות
וקוד בפתיחת הטופס שבודק ברשומה אם יש הרשאה

 

[moishy]

https://support.microsoft.com/en-us/kb/179371

 

[FullTime]

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

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If StrPtr(strPas) = 0 Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
ElseIf strPas = "" Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
ElseIf strPas <> 123 Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
End If

(למבינים: אני לא יודע למה הוא לא נתן להיכנס בשורה אחת עם or אולי לכם פתרונים...)

 

[moishy]

זה לא עובד לך?

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If Len(strPas) = 0 Or strPas = "" Or strPas <> 123 Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
Else
  DoCmd.open acForm, "mySecretForm"
End If

 

[shsh654]

זה לא עובד לך?

עובד.
רק תיקון קטן:

DoCmd.OpenForm "mySecretForm"

 

[קצת סדר...]

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

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If StrPtr(strPas) = 0 Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
ElseIf strPas = "" Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
ElseIf strPas <> 123 Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
End If

(למבינים: אני לא יודע למה הוא לא נתן להיכנס בשורה אחת עם or אולי לכם פתרונים...)

יפה מאוד אבל אחרי שהוא כותב לי קוד שגוי הוא פותח לי את הטופס

 

[shsh654]

שיניתי את myform לשם הטופס?

 

[FullTime]

יפה מאוד אבל אחרי שהוא כותב לי קוד שגוי הוא פותח לי את הטופס

בשורה הזאת
"DoCmd.Close acForm, "myform

אתה צריך להחליף את המילה myform לשם הטופס...
(בקוד שאני שמתי יש 3 מופעים כאלה).


ולמוישי:
הוא מחזיר שגיאה 13 על השורה של הIF.

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

 

[moishy]

ברור, איך לא שמתי לב, בזה לא אמור להיות בעיה:

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If Len(strPas) = 0 Or strPas = "" Or strPas <> "123" Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
End If

 

[FullTime]

ברור, איך לא שמתי לב, בזה לא אמור להיות בעיה:

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If Len(strPas) = 0 Or strPas = "" Or strPas <> "123" Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
End If

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

 

[moishy]

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

עם הקוד המקורי שלך, ניסית להכניס בתיבת טקסט סיסמה שונה מזו המוגדרת בקוד?

 

[FullTime]

עם הקוד המקורי שלך, ניסית להכניס בתיבת טקסט סיסמה שונה מזו המוגדרת בקוד?

כן, והוא עבד חלק

 

[FullTime]

ברור, איך לא שמתי לב, בזה לא אמור להיות בעיה:

Dim strPas As String

strPas = InputBox("הקש סיסמה")

If Len(strPas) = 0 Or strPas = "" Or strPas <> "123" Then
    MsgBox "סיסמה שגויה"
    DoCmd.Close acForm, "myform"
End If

תכלית, שמואלעויץ
תשתמש עם קוד זה, ותזכור להחליף את זה myform לשם הטופס שלך.
ותחליף את 123 לקוד שאתה רוצה

 

[moshem]

ניהול קודים

איך אפשר לבנות טבלה עם שמות משתמשים מורשי כניסה ושלכל אחד יהיה כניסה לטפסים\דוחות מסוימים ?

 

[shsh654]

תפתח אשכול חדש

 

[moshem]

בסדר גמור
בכל אופן תודה רבה

 

[גאולה פרינט]

אם יש אפשרות לשחק עם עיצוב של תיבת הסיסמה

לדוגמא להחליף להעברית OK ל"אישור" וכן שלא יופיע הקוד 123 רק ככה ****

 

[חייםיודלביץ]

לגבי העיצוב שלא יראה מספר אלא כוכבית אפשר להשתמש מה שידוע לי במסכת קלט או תבנית עיצוב

 

[קצת סדר...]

לגבי העיצוב שלא יראה מספר אלא כוכבית אפשר להשתמש מה שידוע לי במסכת קלט או תבנית עיצוב

בעיה היא שתבנית התיבה הוא ע"י קוד ולא תבנית פשוטה בתוך האקסס שאתה יכול לשחק עם זה