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

@ליבל אמר בפונקציית vba & odbc:

ב"ה נראה לי שהצלחתי אבל עדיין אין לי אינדקציה לזה (פשוט אין שגיאות...)
איך אני צריך להביא את הטבלאות ע"י sql ?

תלוי מה שיטת העבודה שלך. אם אתה רק רוצה לגשת לנתונים דרך VBA יש פונקציות לקרוא Recordset
אבל -
אם יש לך טפסים שמבוססים על טבלאות תצטרך לאכלס אותם על ידי VBA או להשתמש בטבלאות מקושרות DAO ובפונקציה שכתבתי לך למעלה

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

@UA באיזו גירסא של Excel מדובר?

@UA אולי תנסה לכבות באפשרויות את התצוגה החיה

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

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

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

@UA לפי מה שמופיע כאן זה יכול להיות Skype web plugin או Audials או תוכנה טלפונית אחרת. דפדף למטה ותראה עוד כמה שציינו תוכנות בעיתייות

@UA זה באג שנגרם כתוצאה מתוכנה שרצה ברקע ובודקת תדיר את נתוני הלוח.
מצאתי את הפתרון הזה:
לך ללוח הבקרה > לוח וסמן את היסטורית הלוח פעילה וכן לחץ על נקה נתוני לוח

@חנון-המרבה יש כאן 2 דרכים לעשות זאת

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

@ליבל אמר בפונקציית vba & odbc:

אצלי אין
אופיס 2016

אתה יכול לראות בטבלה MSysObjects בשדה Connect את מחרוזת החיבור

@ליבל אמר בפונקציית vba & odbc:

לא בדיוק הבנתי את כוונתך
עד היום עשיתי, נתונים חיצונים>מקור חדש>קובץ odbc התכוונת לזה ?

הפונקציה הזו טובה לקריאת נתונים דרך Recordset של ADO (ActiveX Data Object)
היא לא תשמש אותך אם יש טפסים המבוססים ישירות על טבלאות או שאילתות, לזה צריך אובייקט DAO.
מה שאתה צריך זה פונקציה שתיצור קישור טבלה באמצעות אובייקט Tabldefs. משהו בסגנון:

public sub CreateTableLink(tableName as string, cnn as string)
     dim tdf as DAO.Tabledef
     Set tdf =  currentdb.CreateTableDef(tableName) 
     tdf.Connect = cnn
     currentdb.TableDefs.Append tdf
end sub

ותעביר כפרמטרים את שם הטבלה ומחרוזת הקישור

@nigun אמר בהקמת אתר לפרילנסרים חרדים:

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

סליחה על הבורות, אבל למה אי אפשר? אני חושב שב-StackOverflow הניקוד מבוסס על תגובות הגולשים...

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

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

@yits אמר בחידת היגיון:

איך פותרים כזאת שאלה עם פונקציה?

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

@nigun אמר בהקמת אתר לפרילנסרים חרדים:

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

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

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

למה מיועדים החוטים האחרים?
צבע כתום למשל

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

@ניולי הנוסחא שאתה צריך היא SUMPRUDUCT
תרשום בתא של התוצאה

=SUMPRODUCT($B$2:$B$7,C2:C7)

נעלתי את העמודה הראשונה כך שתוכל להעתיק את הנוסחא לשאר העמודות