תחומים - פורום חרדי מקצועי

@שעטנ-ז-ג-ץ אמר בהאם הרשיונות שנמכרים באייבי באמת חוקיים:

מה שמחשיד הוא איך זה כזה זול

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

@odeddvir אמר באקסס- עיגול תאריך - עזרה:

פלט לדוגמא:
?NextPaymentDay(#15/4/2021#) 01/05/2021

אם כבר תביא דוגמא שתמחיש את מה שעשית (בדגש על הדוגמה ש @לומד-ומתלמד מצא - [למי שלא הבין: יש חסרון בדוגמא ההיא, כשהחשבונית היא בחודש ה12 - לפי הדוגמא ההיא התאריך שתקבל זה "01/01/2020"]).

?NextPaymentDay(#15/12/2021#)
01/01/2022

@יהודי-טוב
הכל עובד טוב.
נראה ממש יפה, הקרדיט ל @OdedDvir ?

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

@נ-נח
נראה לי שזה נקרא לעבור נושא, כי ציר הנושא הוא ה vba זה יכול להיות בשביל הרבה צרכים. כגון ממשק לאותו לקוח, וכו'. במקום שיצטרך כ"פ לפתוח את האפשרויות, או אפי' התקנת תוספות, וכו'.

בס"ד
אולי יעזור לך:
הקוד להלן הוא ממיר מחזיר גימטריה ממספר לאותיות - ומאותיות למספר, זה נכון עד למספר 499 ו אותיות עד תצט,
אפשר להוסיף - זה פשוט קוד ישן שלי.

Public Function GetGimatryya(str_ As Variant) As Long
        
    
    Dim i As Long
    Dim longht_ As Long
    Dim Y As Long
    Dim out As Long
    Dim str_to_out As String
    
    longht_ = Len(Nz(str_, ""))
    For i = 1 To longht_
        str_to_out = Mid(str_, i, 1)
        Select Case str_to_out
            Case "א", "ב", "ג", "ד", "ה", "ו", "ז", "ח", "ט", "י", "כ", "ל", "מ", "נ", "ס", "ע", "פ", "צ", "ק", "ר", "ש", "ת", "ך", "ם", "ן", "ף":
                Y = Asc(str_to_out) - 223
            Case Else
                Y = 0
        End Select
        arr_ = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 20, 30, 40, 40, 50, 50, 60, 70, 80, 80, 90, 90, 100, 200, 300, 400)
        out = Nz(out, 0) + arr_(Y)
    Next i
    GetGimatryya = out
End Function

Public Function GetGimatryyaStr(str_ As Variant) As String
        
    
    Dim i As Long
    Dim longht_ As Long
    Dim Y As Long
    Dim out As String
    Dim str_to_out As Long
    
    longht_ = Len(Nz(str_, ""))
    arr_ = Array("", "א", "ב", "ג", "ד", "ה", "ו", "ז", "ח", "ט", "י", "י", "כ", "ל", "מ", "נ", "ס", "ע", "פ", "צ", "ק", "ק", "ר", "ש", "ת")
    
    For i = 1 To longht_
        Select Case (longht_ + 1) - i
            Case 1:
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out)
            Case 2:
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out + 10)
            Case Else
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out + 20)
        End Select
    Next i
    GetGimatryyaStr = out
End Function

אפשר לנסות

Debug.Print GetGimatryya("רמח")
Debug.Print GetGimatryyaStr(499)

@בערל אמר באיך אני מחשב אחוזים באקסס בטבלא?:

@avi-rz אמר באיך אני מחשב אחוזים באקסס בטבלא?:

@בערל אמר באיך אני מחשב אחוזים באקסס בטבלא?:

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

עוד אפשרות:
הסכום שכבר נכנס לחלק לסכום היעד.

וכמובן להכפיל במאה בסוף...

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

@מומחה-באקסס אמר באיך אני עושה שכל דקה יפתח טופס אחר|אקסס:

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

בא נאמר שצריך חיבור לנתונים, יש לך מה להציע בפאוור פוינט?

יש תוכנת DataPoint שמחברת בין אקסס לפאוור פוינט
כאן

בתשלום מלא.

@mgm-ivr

@מלא אמר באיך אני עושה שכל דקה יפתח טופס אחר|אקסס:

תעשה את זה עם טיימר.

דוגמא.
החלפת מסך אוטמטי.accdb

@ivrtikshoret אמר באיך אני עושה שכל דקה יפתח טופס אחר|אקסס:

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

בא נאמר שצריך חיבור לנתונים, יש לך מה להציע בפאוור פוינט?

@איש-פלוני אמר בהעתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס:

אפשר להגדיר בקריטוריונים של טבלה שערך ברירת מחדל יהיה: שווה לנתון שבפקד/שדה מסויים?

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

@איש-פלוני אמר בהעתקת נתונים לשדות בטופס מתוך טופס מוקפץ - אקסס:

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

לא כ"כ הבנתי,
מה קורה בטבלה הגדרות?
ואיפה זה נמצא?

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

אפשר צילומי מסך?

@איש-פלוני

@איש-פלוני אמר בעזרה באקסס - חיפוש בטופס:

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

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

@איש-פלוני
תפתח את המאפיינים של הטופס > נתונים >מקור רשומה > תבחר את הטבלה של התורמים.

@איש-פלוני
כותב שהטופס לא מאוגד.

@avi-rz
אם זה עדיין לא עובד = אז זה כנראה בעיה אחרת בחלק לא משותף.
תוכל לבדוק גם:

DoCmd.SetFilter , "[משפחה]=" & """" & Me.InForm & """"

@avi-rz
אגב, שמתי לב שאתה מסנן לפי מחרוזת אז תוסיף גרשיים לפני ואחרי השדה שלפיו יהיה הסינון. כך:

Me.Filter = "[משפחה]=" & """" & Me.InForm & """"

@איש-פלוני
עוד שורה בסוף הפונקציה של אחרי עדכון.

@איש-פלוני
תוסיף

Me.Requery

@איש-פלוני
ברור זה אמור להיות בתוך פונקציה.
אני רואה שבינתיים לא השתמשת בפונקציה של העדכון ולקרוא לה,
אז תכניס את זה בכל מקום שכתבת, "Me.filter = ...."
שורה מתחת.

@איש-פלוני

• תנסה לעשות "אחרי עדכון", ולראות אם זה עובד.

• תנסה אחרי זה לרענן.

• או אולי להוסיף הקוד הבא:

Me.FilterOn = True

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

Sub setDetails()
    Form_תרומות.קוד_תורם.Value = Me.קוד_תורם.Value
    DoCmd.Close
End Sub

ולקרוא לה בכל מקום אחד בעמוד ע"י.

Call setDetails

אגב זה מצריך טופס מיוחד לזה, - לע"ע.