קודים למפתחים באקסס

[יאיר משה]

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

 

[יאיר משה]

בדיקת תקינות חשבון בנק

נתכב ע"י מוישי - תודה לו על כך

 

[יאיר משה]

בדיקת תקינות תעודת זהות

This user does not have permission to use the HTML BB code.

הפונקציה היא: fValidateTeudatZehut
ואם היא 0 הת"ז אינו תקין

 

[יאיר משה]

המרת סכום למילים עבור צ'קים ישראלים

עבור צקים אמריקים יפורסם בקרוב.

 

[יאיר משה]

המרת תאריכים

גם זה פורסם ע"י מושי.

 

[יאיר משה]

מסתיר את מסך הרקע של האקסס

לא זוכר ע"י מי פורסם.

 

[יאיר משה]

המרת סכום למילים עבור צ'קים אמריקיים

ביצוע שלי על בסיס קיים

 

[יאיר משה]

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

אודות למוישי.
This user does not have permission to use the HTML BB code.

הפונקציה לשער הדולר היא: =GetNISExchangeRate(Date(),"01")

 

[יאיר משה]

שמירת שם משתמש ע"י קוקיס

כמובן - מוישי

ומחיקת קוקיס - This user does not have permission to use the HTML BB code.

 

[FullTime]

תכניס גם את זה, מחיקת הקוקיס.
http://www.prog.co.il/showpost.php?p=1434609&postcount=18

 

[יאיר משה]

שמירת שם משתמש ע"י קוקיס מעודכן

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

 

[HUBHCBH]

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

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

 

[FullTime]

כשיש טבלה של לקוחות וטבלה של הזמנות
ורוצים להציג את כל תאריכי ההזמנות השייכות לאותו לקוח, בתא אחד.

הדוגמא הזאת עוסקת באבות וילדים. ומקורה כאן

 

[יאיר משה]

קוד ליצירת קובץ וורד מתוך VBA

נכתב ע"י רחמים.

Option Explicit

Sub יצירת_קובץ_וורד()

    Dim WDApp As Object
    ' יוצר מופע של וורד
    Set WDApp = CreateObject("WORD.application")
    Dim Doc As Object
    ' יוצר מופע של מסמך
    Set Doc = WDApp.Documents.Add
    WDApp.Visible = True 'גורם לוורד להראות

    ' כאן אפשר להשתמש באובייקט DOC
    ' ולהוסיף טקסט למסמך וכן לשמור אותו וכדומה
    Doc.Paragraphs(1).Range.InsertAfter "שלום עולם"
    Doc.Close -1
    ' ...

    WDApp.Quit 'בסוף השימוש חייבים לסגור
    Set WDApp = Nothing

End Sub

 

[יוסידדד]

קוד באקסס לגבית תשלומים בכרטיסי אשראי. (זה דורש להתחבר למסוף סליקה של שב"א)
https://dl.dropboxusercontent.com/u/...eshertrans.exe

 

[אפקטיביות]

קוד באקסס לגבית תשלומים בכרטיסי אשראי. (זה דורש להתחבר למסוף סליקה של שב"א)
https://dl.dropboxusercontent.com/u/...eshertrans.exe

הקישור לא נכון.. הוא מפנה לדף שלא נמצא בדרופבוקס (שגיאה 404).
תעלה שוב את הקישור.

 

[יוסידדד]

צודק.

הנה הקישור המתוקן
https://dl.dropboxusercontent.com/u/10583016/קבצים לאתר/keshertrans.exe

זה מוריד קובץ EXE למחשב, אחרי ההתקנה נוצר קיצור דרך על שולחן העבודה.

 

[HUBHCBH]

גיבוי וכיווץ

קוד לגבות קובץ (גם שהקובץ פתוח) וכיווץ ל ZIP
קרידט ל...

 

[nnc3]

צודק.

הנה הקישור המתוקן
https://dl.dropboxusercontent.com/u/10583016/קבצים לאתר/keshertrans.exe

זה מוריד קובץ EXE למחשב, אחרי ההתקנה נוצר קיצור דרך על שולחן העבודה.

עדיין לא תקין הקישור

 

[chagold]

צודק.

הנה הקישור המתוקן
https://dl.dropboxusercontent.com/u/10583016/קבצים לאתר/keshertrans.exe

זה מוריד קובץ EXE למחשב, אחרי ההתקנה נוצר קיצור דרך על שולחן העבודה.

יש שגיאה בקוד. האם ניתן לקבל את הקוד? תודה מראש.