אקסס
-
Function SetBypass(rbFlag As Boolean, File_name As String) As Integer DoCmd.Hourglass True On Error GoTo SetBypass_Error Dim db As Database Set db = DBEngine(0).OpenDatabase(File_name) db.Properties!AllowBypassKey = rbFlag setByPass_Exit: MsgBox "Changed the bypass key to " & rbFlag & " for database " & File_name, vbInformation, "Skyline Shared" db.Close Set db = Nothing DoCmd.Hourglass False Exit Function SetBypass_Error: DoCmd.Hourglass False If Err = 3270 Then ' allowbypasskey property does not exist db.Properties.Append db.CreateProperty("AllowBypassKey", dbBoolean, rbFlag) Resume Next Else ' some other error message MsgBox "Unexpected error: " & Error$ & " (" & Err & ")" Resume setByPass_Exit End If End Function
בשביל לסגור את הקובץ שלא יוכלו לראות את הקוד / לשנות תצוגות, סגור אותו לMDE / ACCDE.
שים לב, לא רק לשנות סיומת, ממש לסגור אותו. יש אפשרות כזו באקסס, בד"כ זה בכלי ניהול או בשמירה בשם.
אתה יכול גם לשים סיסמא על הקוד VBA שלך, רק שים לב שזה לפעמים מסוכן, כי אם הקובץ נשחת (וזה קורה יחסית הרבה לצערינו באקסס), לפעמים יותר קשה לשחזר את הקובץ. -
-
@www השאלה אם כל הקובץ תקול.
לפעמים התוכנות האלו לא מצליחות לשחזר אותו, לפעמים בגלל הסיסמא.
היה לי מקרה שחזרתי בקובץ אחורה שבוע (שזה המון..)עוד דבר חשוב....
גיבוי, גיבוי, ושוב גיבוי.... -
@www השאלה אם כל הקובץ תקול.
לפעמים התוכנות האלו לא מצליחות לשחזר אותו, לפעמים בגלל הסיסמא.
היה לי מקרה שחזרתי בקובץ אחורה שבוע (שזה המון..)עוד דבר חשוב....
גיבוי, גיבוי, ושוב גיבוי.... -
@הכוכב-שלנו
יש לי ספר מאוד טוב באנגלית להעלות אותו?
-
@הכוכב-שלנו
יש לי ספר מאוד טוב באנגלית להעלות אותו?
-
@הכוכב-שלנו
יש לי ספר מאוד טוב באנגלית להעלות אותו?
@yits כן וודאי גם אני מצטרף
-
הנושא שמתחיל ולא נגמר....
למישהו יש חוברות הדרכה בשפות VBA ובשפה QOL?
או אקסס טובים לדוגמא@הכוכב-שלנו
אם אתה מוכן לשלם על זה
נתקלתי עכשיו בזה
https://www.hod-ami.co.il/product/programming/המדריך-השלם-access-2000-vba-קובץ-pdf/
אולי יש שם גם מעודכן יותר -