קודים לכניסה באקסס

[HUBHCBH]

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

Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        Debug.Print ctl.Name & ": " & ctl.Value
    End If
Next ctl

אבל בשביל לוהסיף קוד צריך שהאקסס לא יהיה סגור בפורמט accde

 

[מזכיר נמרץ]

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

 

[מזכיר נמרץ]

איך אני עושה את זה תכל'ס?