כתיבת משתנה מחוץ לפרוצדורה

[ארי4791]

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

 

[לוי א]

אתה צריך לרשום בראש הטופס מעל לכל הפרוצדורות
public [שם המשתנה]
ואז בפתיחת הטופס להשים את המשתנה

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

 

[אייקוד]

תכתוב אותו למעלה
מעל כל הפרוצדורות
(מתחת לשורות
Option Compare Database
Option Explicit)

 

[ארי4791]

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

Public pass As String
pass = "1234"

אבל הוא מביא לי שגיאה.

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

תודה רבה מאוד

 

[אייקוד]

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

Const pass As String = "1234"

 

[ארי4791]

ויהיה אפשר לעשות קוד לשנות את הערך שלו?
אם כן איך?
תודה רבה

 

[FullTime]

את הקבוע שאייקוד הביא לא תוכל לשנות.

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

הדרכים החילופיים,
זה לשמור את הסיסמה בקובץ טקסט עם סיומת INI בתקיית system של וינדוס לדוגמא
או לשמור את הערך ברג'יסטרי

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

 

[ארי4791]

זה לשמור את הסיסמה בקובץ טקסט עם סיומת INI בתקיית system של וינדוס לדוגמא

איך קוראים אותו מאקסס אח"כ?

או לשמור את הערך ברג'יסטרי

אפשר קצת הסבר על זה?

תודה רבה מאוד

 

[FullTime]

איך קוראים אותו מאקסס אח"כ?

כמו שקוראים לקובץ טקסט

Sub GetValueFromFile()
    Dim strFilePath As String, strText
    strFilePath = "D:\TextFile.ini"
    Open strFilePath For Input As #1
    Input #1, strText
    Close
    Debug.Print strText
End Sub

אפשר קצת הסבר על זה?

היה אשכול בימים האחרונים בנושא

 

[ארי4791]

כמו שקוראים לקובץ טקסט

סליחה, אבל לא הבנתי איפה בקוד הוא קורא את הטקסט שכתוב (איפה אני מוסיף בדיקה שמה שכותבים שווה למה שכתוב שם)?
תודה רבה מאוד!

 

[ארי4791]

היה אשכול בימים האחרונים בנושא

אפשר הסבר קצר איך ואיפה כותבים רג'יסטרי, ראיתי שיש לויינדוס Registry Editor אבל לא הבנתי איפה להוסיף קובץ חדש (באיזה תיקייה).
תודה רבה!!!

 

[אייקוד]

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

 

[FullTime]

@ארי4791 לא מומלץ בשביל סיסמה לשנות ערכים ברג'דיט.
קח את הרעיון של אייקוד (כתבתי את זה גם למעלה בהודעה 9..)

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

מי שבאמת יודע לפרוץ ידע להגיע גם לרג'דיט ואם הוא לא ידע את הערך,
אז גם מתוך הטבלה הוא לא ידע.