נעלם לי התפריט

[mozhik]

נעלם לי התפריט

אקסס 2003 נעלם התפריט אין לי קובץ,כלים, עריכה וכו'

 

[גרי רשף]

כנראה שתצטרך לקנות חדש בהמון כסף..../images/Emo10.gif

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

 

[mozhik]

אבל התפריט למעלה זה מה שנעלם לי

צירפתי תמונת מסך

 

[ub65]

התקנה חוזרת אולי...?

 

[דונאלד ד]

תעשה ככה

תפתח את האקסס , תפתח קובץ אקסס חדש קונטרול N , תיכנס למאקרואים (אלט-f11) , תכניס מאקרו חדש תדביק את הקוד הבא ותריץ אותו:

Option Compare Database Sub SetStartupProperties() ChangeProperty "StartupShowDBWindow", dbBoolean, True ChangeProperty "StartupShowStatusBar", dbBoolean, True ChangeProperty "AllowBuiltinToolbars", dbBoolean, True ChangeProperty "AllowFullMenus", dbBoolean, True ChangeProperty "AllowBreakIntoCode", dbBoolean, True ChangeProperty "AllowSpecialKeys", dbBoolean, True ChangeProperty "AllowBypassKey", dbBoolean, True End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Database, prp As Property Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function​

 

[mozhik]

זה לא נותן לי להפעיל

הכפתור של "הפעל" אפור צירפתי תמונה

 

[א ו ר ח ת]

../images/Emo13.gif יותר פשוט ... תלחץ על shift ואז תפתח

את האקסס יופיעו כל הכלים חזרה , לאחר מכן כלפים הפעלה תחזרים את הסרגלים.

 

[א ו ר ח ת]

כלפים=כלים , תחזרים - תחזיר ../images/Emo68.gif

 

[דונאלד ד]

הפעלה של קוד היא באמצעות ...

כלים/ הרץ מאקרו