אקסס למתחילים: תגובות

[שואף לדעת]

@odeddvir לגבי הפוסט האחרון, לא הבנתי מדוע כשאני נמצא בתוך טופס רשימת המשפחות ואני רוצה להציג כרטיס משפחה - מדוע אני צריך ללכת דרך טופס הניווט הראשי, מדוע לא נכתוב קוד (ללחצן "הצג") שיקח אותי ישר לטופס כרטיס המשפחה ?

[OdedDvir]

@שואף-לדעת אמר באקסס למתחילים: תגובות:

לצערי אני לא מוצא אצלי טופס בכזה שם.

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

[OdedDvir]

@שואף-לדעת אמר באקסס למתחילים: תגובות:

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

שאלה מצויינת!
לעת עתה - זה יותר עניין קוסמטי.
אם נשמיט את הארגומנט של הנתיב לגמרי, כך:

Private Sub cmdViewFamilyCard_Click()
    DoCmd.BrowseTo acBrowseToForm, "frmFamilyCard", , "ID=" & Me.ID
End Sub

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

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

[שואף לדעת]

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

וכשאני לוחץ על: Debug הוא פותח לי את המסך הבא:

איפה טעיתי ?

[OdedDvir]

@שואף-לדעת לדעתי זו שגיאה צדדית. סגור את אקסס ותפעיל מחדש.

[שואף לדעת]

@odeddvir עשיתי זאת לפני ששאלתי, ועדיין....

[OdedDvir]

@שואף-לדעת אני לא יודע מה הבעיה.
אני כן רואה טעות בקוד שבפונקציה, מיקמת את הגרשים האחרונים במקום לא נכון.

[שואף לדעת]

@odeddvir כרגיל, צדקת ! תקנתי את הגרשיים וזה עובד לפי הספר...

[שואף לדעת]

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

[שואף לדעת]

@odeddvir לכאורה היה צריך לכתוב בסוף השורה: acNewRec כמו בלחצן "כרטיס חדש" בכרטיס המשפחה.

[לומד ומתלמד]

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

[צבי 10]

@OdedDvir אני עומד לסיים את המדריך המדהים, ורציתי לשאול אם יש דרך לשתף ACCESS דרך האינטרנט? כמו מסמך שיטס משותף?

[OdedDvir]

@צבי-10 לצערי אין דרך פשוטה לעשות זאת.

בתחילת החודש (נובמבר 2021) הכריזו מייקרוסופט על אפשרות שילוב של אקסס בפלטפורמת PowerApps.

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

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

כרגע התוכנית זמינה בגרסת ניסיון למשתמשי Insider.
לפרטים: https://powerapps.microsoft.com/en-us/blog/announcing-power-apps-microsoft-access-security-mobility-new-experiences/

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

[צבי 10]

@odeddvir תודה. אגב יש לי שגיאה בקוד Nz(DSum של TargetFamilyNam אבל אני תיכף מסיים את המדריך ואז אולי אעלה לך את הקובץ, (בינתיים הסתדרתי עד עכשיו עם כל הבאגים שיצרתי:)

[spider]

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

[בערל]

@spider אמר באקסס למתחילים: תגובות:

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

הוסף אירוע בעת פתיחת הטופס:

Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
End Sub

כאן מפורט (עם תמונות) תהליך זהה על אירוע סגירת הטופס.
תעשה אותו דבר רק בחר באירוע פתיחת הטופס..
https://tchumim.com/post/118235

[OdedDvir]

פוסט זה נמחק!

[spider]

פוסט זה נמחק!

[spider]

@OdedDvir @בערל איך ניתן לעשות שבכניסה לאקסס,
יצטרכו להקיש שם משתמש וסיסמא,
ולכל משתמש יהיו הרשאות מסויימות?

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

תודה ענקית

[מלא]

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

[TempVars]![Permissionlevel] = Me.cobUser.Column(1)

במקום Column(1) תכתוב את מספר העמודה ששם יהיה רמת הרשאה.

תוסיף משתנים אלו במודול כללי

Global CanDel As Boolean
Global CanEdit As Boolean

תוסיף מודול הזה לפרוייקט:

sub Permissionlevel ()
    Dim strPermissionlevel     As String
    
    strPermissionlevel = [TempVars]![Permissionlevel]

    If strPermissionlevel = "מנהל בכיר" Then
        CanEdit = True
        CanDel = True
    ElseIf strPermissionlevel = "מנהל" Then
        CanDel = True
        CanEdit = False
    Else
        CanDel = False
        CanEdit = False
    End If
End sub

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

    Call Permissionlevel
    Me.AllowEdits = CanEdit
    Me.AllowDeletions = CanDel