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

@מוטי-מן אמר בגרף עמודות ועוגה באתר אינטרנט:

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

אתה יכול להגדיר שהתרשים יהיה על כל הגיליון (ואז זה ישתנה לפי גודל המסך)..

@מוטי-מן
כנס לתגובות > בחר יעד לתגובות

ונשאר לך רק לבחור

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

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

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

@מוטי-מן אמר בטופס להזנה מהירה לאקסל, אפשרי?:

אם זה אפשרי בשיטס זה ג"כ טוב.

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

@מלא אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

@אוריי אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

למה כוונתך פוקוס??

שהסמן עומד עליו.
אי אפשר להסתיר כשהוא בפוקוס
https://docs.microsoft.com/en-us/office/vba/api/access.textbox.setfocus

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

@OdedDvir @Shmuel754 @מלא
הרבה תודה על העזרה...

@shmuel754

@odeddvir אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

פנה אלי בפרטי ואנסה לעזור.

את האמת @OdedDvir עזר לי בפרטי
הבעיה הייתה איזה סוג של באג לא ברור באקסס שהוא לא זיהה את שם השדה
לאחר משחק בשם של השדה האקסס חזר לזהות אותו

@shmuel754 אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

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

למה כוונתך פוקוס??

@odeddvir
תודה על הטיפ!! זה די עוזר
גם אני הרבה משתמש אבל עד עכשיו לא שמתי לזה חשיבות
לעניינינו באמת ה Intellisense לא מוצא את השדה ולמה ??? ממה זה יכול להיות??

@odeddvir אמר בשגיאה באקסס 2465 | שגיאה מוגדרת יישום או מוגדרת אובייקט:

@אוריי נראה לי פשוט שגיאת כתיב. תבדוק טוב.

חיפשתי טוב ולא מצאתי

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

@odeddvir
עכשיו הוא מחזיר שגיאה שהוא לא מוצא את השדה

והשדה כן נמצא

@odeddvir
עוד לפני שהוא נכנס לריצה של הפונקציה
כאשר עשיתי למטה אנטר כדי להריץ את הפונקציה הוא הקפיץ את ההודעה

@odeddvir
אותו הדבר בדיוק כמו שכתבתי בפוסט הראשון

סורי
כתבתי כך

Public Function vb_HidesFieldsDonates(TrueOfFalse As Integer)
    'ñëåí úøåîä
        Me!TextBoxDonationAmount.Visible = TrueOfFalse
        Me!LabelDonationAmount.Visible = TrueOfFalse
    'ñåâ îèáò
        Me!TextBoxCurrency.Visible = TrueOfFalse
   'àåôï äúøåîä
        Me!TextBoxDonationType.Visible = TrueOfFalse
        Me!LabelDonationType.Visible = TrueOfFalse
    'äòøåú úøåîä
        Me!TextBoxRemarksDonates.Visible = TrueOfFalse
        Me!LabelRemarksDonates.Visible = TrueOfFalse
    'ô÷ã ÷áìú îñ
        Me!CheckboxTaxReceipts.Visible = TrueOfFalse
        Me!LabelTaxReceipts.Visible = TrueOfFalse
End Function

אבל זה לא כזה משנה כי הוא אפי' לא נכנס לריצת הקוד
אלא פשוט מחזיר שגיאה

@odeddvir

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

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

שאפו ענק

יש לי פונקציה באקסס שמסתירה ומציגה פקדים בטופס
זה הקוד

Public Function vb_HidesFieldsDonates(TrueOfFalse As Integer)
    'ñëåí úøåîä
        Forms.board.TextBoxDonationAmount.Visible = TrueOfFalse
        Forms.board.LabelDonationAmount.Visible = TrueOfFalse
    'ñåâ îèáò
        Forms.board.TextBoxCurrency.Visible = TrueOfFalse
   'àåôï äúøåîä
        Forms.board.TextBoxDonationType.Visible = TrueOfFalse
        Forms.board.LabelDonationType.Visible = TrueOfFalse
    'äòøåú úøåîä
        Forms.board.TextBoxRemarksDonates.Visible = TrueOfFalse
        Forms.board.LabelRemarksDonates.Visible = TrueOfFalse
    'ô÷ã ÷áìú îñ
        Forms.board.CheckboxTaxReceipts.Visible = TrueOfFalse
        Forms.board.LabelTaxReceipts.Visible = TrueOfFalse
End Function

ומשום מה בשורה 8 קופצת לו שגיאה כזו

והשגיאה הזו קופצת לו רק בשורה הזו לפני ואחרי הכל עובד טוב

הפקד קיים (כך שזו לא הבעיה)

זה העזרה שאקסס מביא אבל גם שם לא הצלחתי להבין למה מגיעה השגיאה הזו

אשמח להבין מן המומחים למה ומהי השגיאה הזו...
תודה רבה מראש

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

@אוריי לא הבנתי כוונתך.
הפונקציות Nz ו-IsNull הן פונקציות VBA ולא SQL. לכן יש להמנע מהם בשאילתות.

זה לא היה נשמע כך מדבריך שם
בכל אופן אין ביהמ"ד ללא חידוש...
ואינו דומה החוזר 100 ל 101 ...

@odeddvir
כפי איך שהבנתי משם

שים לב שאפילו בפונקציות טריוויאליות, כמו Nz() או IsNull() עדיף לרשום בSQL טהור ולא לבצע קריאה ל-VBA

אני מבין שיש הבדל בין ה SQL ל VBA בקריאת הקוד
אבל כאשר גם ה IF וגם הNZ נמצאים ב SQL טהור ואין קריאה ל VBA האם גם אז יש הבדל?

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

כן, מצוין! (שאר התלמידים ישארו בסוף השיעור לנקות את הכיתה )

ועם כאלו מדריכים אני מוכן לנקות את הכיתה (ולא שאני פרעייר..) אלא פשוט לא השארת שום בלאגן...

שאלה קטטנטנה לגבי מה שכתבת כאן..

שימו לב שהסכום של ישראל הוא ריק ולא מכיל 0.

הערה: כאשר שאילתת צירוף חיצוני לא מוצאת רשומה עם מפתח תואם בטבלת המשנה, היא מחזירה ערך מיוחד שנקרא NULL, שפירושו = כלום, שום דבר, גורנישט, וכו'.

אם ברצוננו להציג שם אפס, צריך ליצור שדה מחושב:

TotalAmount: IIf(TotalAmount Is Null, 0, TotalAmount)

אני התרגלתי במצבים כאלו לכתוב כך

TotalAmount: nz(TotalAmount , 0)

האם אני טועה או שאין הבדל?

@odeddvir אמר בעזרה באקסס | שגיאה 13 אי התאמת נתונים:

שאלת תם, תמהני, מה התועלת שאתה משיג ב:

Like ' * '

אם להסיר רווחים - תשתמש בפונקציה Trim()

א. תודה רבה זה פתר את השגיאה
ב. באמת זה לא עזר לי תכלס טעיתי קצת בקוד אבל ב"ה הסתדר..
הייתי צריך לכתוב Is Not Null במקום Like ' * '
@OdedDvir הרבה תודה

כתבתי פונקציה ב VBA עם כמה שאילתות
תכלס בדקתי את כל המשפטי SQL באשף והכל עובד ..
הבעיה היא כאשר אני מריץ את זה ב vba הוא נתקל בשגיאה 13 של אי התאמת נתונים
המוזר הוא שאת השאילתה הראשונה הוא עובר בקלות ואילו את השניה הוא נתקע בה (והרי שניהם עובדים באשף של אקסס)
ניסיתי לחפש ברשת משהו מעין זה ומה שניסיתי לא כזה הועיל לי
זה הקוד

Public Function vb_status() As Integer
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT DnoriId,status,DialDate " & _
        "FROM DonorManagement " & _
        "WHERE (((DonorManagement.status)=5) And ((DonorManagement.DialDate)<Now()))" & _
        "ORDER BY DonorManagement.DialDate;")
    If rs.EOF Then
        Set rs = CurrentDb.OpenRecordset("SELECT DnoriId, status, HomePhone,Phone1,Phone2 FROM DonorManagement WHERE (((status)=1) AND ((HomePhone) Like " * ")) OR (((status)=1) AND ((Phone1) Like " * ")) OR (((status)=1) AND ((Phone2) Like " * "));")
        If rs.EOF Then
            Set rs = CurrentDb.OpenRecordset("SELECT DnoriId,status,DialDate " & _
                "FROM DonorManagement " & _
                "WHERE (((status)=8) And ((HomePhone) Like " * ")) Or " & _
                "(((status)=8) And ((Phone1) Like " * ")) Or " & _
                "(((status)=8) And ((Phone2) Like " * "));")
        Else
            vb_status = rs!DnoriId
        End If
    Else
        vb_status = rs!DnoriId
    End If
End Function

השגיאה היא בשורה 8

אשמח אם תעירו את היכן תעיתי...

@בערל אמר במערכת לניהול תורמים:

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

@בערל שיהיה בהצלחה!!!

בכל אופן אני אשמח גם לעזור מזמני הפנוי (אם @OdedDvir ילך לישון ... האמת נראה לי שזה לא קורה... )