טיפים מדריכים ועצות טובות אקסס - Access

[היהודי הטוב]

תשואות חן לשי, על פיצול האשכול!!!

[פעיל]

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

[center]שי, מוקדשת לך. תודה ענקית

the-big-shay.gif (709.45 KiB) נצפה 10962 פעמים

שי, אני יודע שאתה לא אוהב זאת, סליחה על המשקל של הקובץ[/center]

[פעיל]

פורסם בטעות באשכול לאקסל;

בבקשה:

פונקציה לעיגול מספרים כלפי מעלה: הפרמטרים: מספר, קפיצות עיגול (אפשרי. אם לא ניתן מעגל למספר שלם)

קוד: בחר הכל

Function roundup(num As Double, Optional value As Double) As Double
Dim d As Double, i As Double

If value = 0 Then value = 1

d = num / value
i = Int(d)
d = d - i

If d > 0 Then
    i = i + 1
End If

d = i * value

roundup = d
End Function

פונקציה לעיגול מספרים כלפי מטה: הפרמטרים: מספר, קפיצות עיגול (אפשרי. אם לא ניתן מעגל למספר שלם)

קוד: בחר הכל

Function rounddown(num As Double, Optional value As Double) As Double
Dim d As Double, i As Double

If value = 0 Then value = 1

d = num / value
i = Int(d)
d = i * value

rounddown = d
End Function

[פעיל]

טיפ:
למי שיודע פונקציה באקסל והוא זקוק לה באקסס:
בVB לבחור TOOLS>references ולסמן microsoft excel 11.0 object library.
כעת כל הפונקציות מופיעות תחת Excel.WorksheetFunction.XXXXX (אפשר לחפש בobject brower את שם הפונקציה)
ניתן בכל קוד להשתמש בהם.
להלן הפונקציה לחישוב תשלום משכנתא בודד (הדוגמא הימנית בקובץ האקסל כאן)

קוד: בחר הכל

Function pmt(achuzshana As Double, shanim As Integer, schumhalvaha As Double)
Dim achuztashlum As Double, tashlumim As Long, tmp As Double
achuztashlum = achuzshana / 12
tashlumim = shanim * 12
tmp = Excel.WorksheetFunction.pmt(achuztashlum, tashlumim, schumhalvaha)
pmt = tmp
End Function

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

[משה123]

קודם כל תודה על כל הרעיונות והפתרונות שיש כאן בפורום, זה מאוד עוזר, תודה רבה.
רציתי לשאול אם מישהו יודע איך ניתן לגרום להודעת msgbox בקוד להיות בצבע שונה מהרגיל, אדום למשל.
וכן אם ניתן לשנות גודל גופן של אותיות שיהיו יותר גדולות בהודעת msgbox.
תודה רבה!

[פעיל]

מפני שהודעות msgbox הינן מובנות על מערכת ההפעלה, לענ"ד לא ניתן לשנות בהם תכונות, אלא ע"י שינוי הגדרות המערכת בכלל.

[פעיל]

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

[איש חסיד]

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

[פעיל]

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

[איש חסיד]

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

[פעיל]

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

[משה123]

תודה רבה, ממתין בכליון עינים לדוגמת הטופס.

[ענק]

גם ב MSGBOX אפשר להגדיר מאפיינים:

התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])‎

prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:

prompt
vbOKOnly 0 הצגה של לחצן אישור בלבד.
vbOKCancel 1 הצגה של הלחצנים אישור וביטול.
vbAbortRetryIgnore 2 הצגה של הלחצנים בטל, נסה שנית והתעלם.
vbYesNoCancel 3 הצגה של הלחצנים כן, לא וביטול.
vbYesNo 4 הצגה של הלחצנים כן ולא.
vbRetryCancel 5 הצגה של הלחצנים נסה שנית וביטול.
vbCritical 16 הצגה של סמל הודעה קריטית.
vbQuestion 32 הצגה של סמל שאילתת אזהרה.
vbExclamation 48 הצגה של סמל הודעת אזהרה.
vbInformation 64 הצגה של סמל הודעת מידע.
vbDefaultButton1 0 הלחצן הראשון הוא ברירת מחדל.
vbDefaultButton2 256 הלחצן השני הוא ברירת מחדל.
vbDefaultButton3 512 הלחצן השלישי הוא ברירת מחדל.
vbDefaultButton4 768 הלחצן הרביעי הוא ברירת מחדל.
vbApplicationModal 0 מודאל יישום; על המשתמש להגיב לתיבת ההודעה לפני שיוכל להמשיך לעבוד ביישום הנוכחי.
vbSystemModal 4096 מודאל מערכת; כל היישומים מושהים עד שהמשתמש מגיב לתיבת ההודעה.
vbMsgBoxHelpButton 16384 הוספת לחצן עזרה לתיבת ההודעה.
VbMsgBoxSetForeground 65536 ציון חלון תיבת ההודעה כחלון בקידמה.
vbMsgBoxRight 524288 הטקסט מיושר לימין.
vbMsgBoxRtlReading 1048576 ציון שעל טקסט להופיע כטקסט לקריאה מימין לשמאל במערכות עבריות וערביות.

ואפשר גם לבצע פקודות החזרה בארגומט buttons גם כאן ניתן להשתמש במספרים במקום במשתנים
ערכי החזרה לbuttons
vbOK 1 אישור
vbCancel 2 ביטול
vbAbort 3 בטל
vbRetry 4 נסה שנית
vbIgnore 5 התעלם
vbYes 6 כן
vbNo 7 לא

[היהודי הטוב]

גם ב MSGBOX אפשר להגדיר מאפיינים:

התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])‎

prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:

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

[חסד]

ב. כולנו יודעים כי אפשר ל'שרוף' שעות שלימות בישיבה על המחשב, ה'שמים' - זמני התפילות / השיעורים וכו' - הם ה'גבול', כזה מגיע, מוכרחים (ב"ה) להפסיק....)

א גוט פשעטל
שכוייח!

גם ב MSGBOX אפשר להגדיר מאפיינים:

התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])‎

prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:

prompt
vbOKOnly 0 הצגה של לחצן אישור בלבד.
vbOKCancel 1 הצגה של הלחצנים אישור וביטול.
vbAbortRetryIgnore 2 הצגה של הלחצנים בטל, נסה שנית והתעלם.
vbYesNoCancel 3 הצגה של הלחצנים כן, לא וביטול.
vbYesNo 4 הצגה של הלחצנים כן ולא.
vbRetryCancel 5 הצגה של הלחצנים נסה שנית וביטול.
vbCritical 16 הצגה של סמל הודעה קריטית.
vbQuestion 32 הצגה של סמל שאילתת אזהרה.
vbExclamation 48 הצגה של סמל הודעת אזהרה.
vbInformation 64 הצגה של סמל הודעת מידע.
vbDefaultButton1 0 הלחצן הראשון הוא ברירת מחדל.
vbDefaultButton2 256 הלחצן השני הוא ברירת מחדל.
vbDefaultButton3 512 הלחצן השלישי הוא ברירת מחדל.
vbDefaultButton4 768 הלחצן הרביעי הוא ברירת מחדל.
vbApplicationModal 0 מודאל יישום; על המשתמש להגיב לתיבת ההודעה לפני שיוכל להמשיך לעבוד ביישום הנוכחי.
vbSystemModal 4096 מודאל מערכת; כל היישומים מושהים עד שהמשתמש מגיב לתיבת ההודעה.
vbMsgBoxHelpButton 16384 הוספת לחצן עזרה לתיבת ההודעה.
VbMsgBoxSetForeground 65536 ציון חלון תיבת ההודעה כחלון בקידמה.
vbMsgBoxRight 524288 הטקסט מיושר לימין.
vbMsgBoxRtlReading 1048576 ציון שעל טקסט להופיע כטקסט לקריאה מימין לשמאל במערכות עבריות וערביות.

ואפשר גם לבצע פקודות החזרה בארגומט buttons גם כאן ניתן להשתמש במספרים במקום במשתנים
ערכי החזרה לbuttons
vbOK 1 אישור
vbCancel 2 ביטול
vbAbort 3 בטל
vbRetry 4 נסה שנית
vbIgnore 5 התעלם
vbYes 6 כן
vbNo 7 לא

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

[מוטי]

גם ב MSGBOX אפשר להגדיר מאפיינים:

התחביר שלו הוא:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])‎

prompt זה סוג ההודעה, ואפשר להחליפו במספר הסיביות המספרים שבצד ימין) במקום המשתנה:

עד כמה שידוע לי .
prompt= הטקסט שאותו הינך רוצה להציג למשתמש.
buttons= מאפייני ההודעה (לחצנים,ברירות מחדל,כיוון קריאה והצגה, וכו' לפי רשימת "ענק")
title= כותרת ההודעה
helpfile= מיקום קובץ עזרה אם קיים

[ענק]

עד כמה שידוע לי .
prompt= הטקסט שאותו הינך רוצה להציג למשתמש.

כוונתך ל context מן הסתם.

[פעיל]

מוטי צודק.
prompt - זהו מקום הטקסט.
טיפ: אם אתם רוצים לכתוב בהודעה 2 שורות, זה נעשה כך: "טקסט שורה ראשונה" & vbcrlf & "טקסט שורה שניה"
הסבר: VBCRLF הינו קבוע היוצר מעבר שורה.

context - זהו ציון למקום העזרה בקובץ העזרה (אפשרי רק אם הוכנס ערך בhelpfile)

[מוטי]

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

[s_h]

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