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

clickone

@ארכיטקט

בעיות נוספות:
אם עושים סינון פרמטר בתיבת רשימה(forms!frmMain!IDTxt וכו'), אז Requery לא עובד, כי הוא לא יודע לאיזה טופס להתייחס.

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

פורסם במקור בפורום CODE613 ב16/06/2014 12:37 (+03:00)

clickone

@ארכיטקט

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

ב2010 לא ראיתי שום בעייה, וב2013 אכן יש בעייה, והייתי צריך להגדיר Me!cmd.UseTheme = True

בעיות נוספות:
אם עושים סינון פרמטר בתיבת רשימה(forms!frmMain!IDTxt וכו'), אז Requery לא עובד, כי הוא לא יודע לאיזה טופס להתייחס.

פורסם במקור בפורום CODE613 ב16/06/2014 12:33 (+03:00)

clickone

וכמובן, להיזהר מאד מהזרקת SQL

פורסם במקור בפורום CODE613 ב15/06/2014 19:29 (+03:00)

clickone

@ארכיטקט

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

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

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

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

מקור:
http://support.microsoft.com/kb/180736

פורסם במקור בפורום CODE613 ב17/06/2014 10:47 (+03:00)

clickone

@ארכיטקט

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

דווקא יש ריבוי מופעים.
מצ"ב הדוגמא שלי
MultiFormInAccess.accdb

פורסם במקור בפורום CODE613 ב15/06/2014 13:39 (+03:00)

clickone

@ClickOne

כמובן, בסוף זה היה FileContents, למרות שזה לא עבד לי בהתחלה ואני לא מבין למה

הנה הקוד להדבקת קובץ מRDP (שימו לב שזה לא עובד בהדבקה מקומית, וצריך לבדוק אם יש קבצים בFileDrop) :
Dim data As IDataObject = Clipboard.GetDataObject
     
        If data.GetDataPresent("FileContents", True) Then


            Dim newFile As String = Path.Combine("c:\", "a.Pdf")
            Dim memoryStream As MemoryStream = data.GetData("FileContents")
            ' Create a FileStream object to write a stream to a file
            Using fileStream As FileStream = System.IO.File.Create(newFile, CInt(memoryStream.Length))
                ' Fill the bytes[] array with the stream data
                Dim bytesInStream As Byte() = New Byte(memoryStream.Length - 1) {}
                memoryStream.Read(bytesInStream, 0, CInt(bytesInStream.Length))
                ' Use FileStream object to write to the specified file
                fileStream.Write(bytesInStream, 0, bytesInStream.Length)
            End Using
        End If
עכשיו נשאר לראות אם אפשר להמיר לVBA, או שצריך להשתמש בInterop

נאלצתי להסיר את הV שמסמן שהנושא נפתר.

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

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

פורסם במקור בפורום CODE613 ב10/08/2014 23:32 (+03:00)

clickone

כמובן, בסוף זה היה FileContents, למרות שזה לא עבד לי בהתחלה ואני לא מבין למה

הנה הקוד להדבקת קובץ מRDP (שימו לב שזה לא עובד בהדבקה מקומית, וצריך לבדוק אם יש קבצים בFileDrop) :

Dim data As IDataObject = Clipboard.GetDataObject
     
        If data.GetDataPresent("FileContents", True) Then


            Dim newFile As String = Path.Combine("c:\", "a.Pdf")
            Dim memoryStream As MemoryStream = data.GetData("FileContents")
            ' Create a FileStream object to write a stream to a file
            Using fileStream As FileStream = System.IO.File.Create(newFile, CInt(memoryStream.Length))
                ' Fill the bytes[] array with the stream data
                Dim bytesInStream As Byte() = New Byte(memoryStream.Length - 1) {}
                memoryStream.Read(bytesInStream, 0, CInt(bytesInStream.Length))
                ' Use FileStream object to write to the specified file
                fileStream.Write(bytesInStream, 0, bytesInStream.Length)
            End Using
        End If

עכשיו נשאר לראות אם אפשר להמיר לVBA, או שצריך להשתמש בInterop

פורסם במקור בפורום CODE613 ב10/08/2014 01:32 (+03:00)

clickone

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

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

ועכשיו לקובץ.

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

data.GetFormats( True)


-		data.GetFormats( True)	{Length=3}	String()
		(0)	"FileGroupDescriptorW"	String
		(1)	"FileContents"	String
		(2)	"Preferred DropEffect"	String

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

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

רעיונות?

פורסם במקור בפורום CODE613 ב10/08/2014 00:56 (+03:00)

clickone

@דוד ל.ט.

אצלי עובד, אבל עם באג חמור...
הרצתי קוד VB.NET, ע"ג מחשב מרוחק (SERVER 2003) והוא הציג כתובת שהועתקה במחשב המקומי (WIN7). פורמט הכתובת בדיוק כמו שציינת.
הנה הקוד:
Dim IsContains = My.Computer.Clipboard.ContainsFileDropList
Console.WriteLine(IsContains)

If IsContains Then Console.WriteLine(My.Computer.Clipboard.GetFileDropList(0))
הפלט:
True
\\tsclient\C\Users\shmuel\Desktop\PC07.pptx
אבל! אחרי הרצת הקוד, ההדבקה ננעלת על הכתובת הזו!
כל ההעתקות מכאן ואיך במחשב המקומי מדביקים בשרת את הקובץ ההוא...
מוזר, ומעניין שלא מצאתי שום אזכור לבאג ברחבי הרשת.

כי הוא שומר את ההעתקה בבאפר שלו. (זה גם מה שהיה בXP)
אח"כ הם תיקנו את זה....
אבל! הקוד הנ"ל פשוט לא עובד בWIN7 מול SERVER 2008 R2.....

לא מבין למה... - נראה לי שהם רצו לתקן משהו אחד, ונמצאו מקלקלים דבר אחר....

פורסם במקור בפורום CODE613 ב11/06/2014 22:06 (+03:00)

clickone

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

Clipboard.GetFileDropList(0)

ואז אני יכול להעתיק אותו בקוד, כי יש לי את הנתיב.

הבעייה שלי:
אני רוצה להעתיק על המחשב שלי, ולהדביק בקוד בשרת RDP (במקרה שלי: WIN SERVER 2008 R2).
אז להדביק רגיל הוא נותן, אבל לא לקבל את הנתיב באמצעות הקוד הנ"ל.

בעבר (WIN XP), בהעתקה לRDP ווינדוס היה מעביר את הקובץ לקליפבורד של המחשב השני, ואז הייתה אפשרות להדביק [מהתיקייה הזמנית של המחשב המקומי], היום מייקרוסופט שינו את זה (לטובה!) והקובץ לא מועתק לשום מקום עד שלא עושים "הדבק" והווינדוס שומר את הרפרנס בלבד.

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

\\tcpclient\c\bla.doc

אבל לא ממש מוצא איפה נמצאת הכתובת

רעיונות?

פורסם במקור בפורום CODE613 ב11/06/2014 00:53 (+03:00)

clickone

תכתוב בתבנית עיצוב:

0.00$

פורסם במקור בפורום CODE613 ב08/06/2014 16:44 (+03:00)

clickone

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

פורסם במקור בפורום CODE613 ב06/02/2017 20:20 (+02:00)

clickone

בהמשך לנושא ש"מלא" פתח כאן, אני מצרף את הדוגמא שלי למיזוג דואר, ע"י פתיחת וורד ברקע וכו'.
Word.zip

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

אם יש שאלות והצעות לשיפור, כמובן זה המקום....

ד"א, אפשר להמיר את הדוגמא לדוטנט דיי בקלות [מי מתנדב?], רק צריך למצוא דרך פשוטה כדי לייצא את הנתונים שלכם לאקסל (האמת שאפשר גם לCSV או XML, אבל אם יש הרבה רשומות ושדות זה נהיה איטי....)

בהצלחה!!

פורסם במקור בפורום CODE613 ב05/06/2014 15:30 (+03:00)

clickone

אני לא בטוח שזו כוונתך, אבל: האם הקובץ המצ"ב זה מה שרצית?
WhereList.accdb

פורסם במקור בפורום CODE613 ב05/06/2014 20:05 (+03:00)

clickone

@אבי

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

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

פורסם במקור בפורום CODE613 ב05/06/2014 19:47 (+03:00)

clickone

@ארכיטקט

@HUBHCBH
אבל רוצה לעשות את זה בטופס ובשדה לא מאוגד

בלתי אפשרי.

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

פורסם במקור בפורום CODE613 ב05/06/2014 12:49 (+03:00)

clickone

העלתי לשיתופייה כעת....

פורסם במקור בפורום CODE613 ב05/06/2014 15:32 (+03:00)

clickone

@מלא

הוא כלל לא פותח את הקובץ, וכמובן שהוא לא מדפיס אותו.

הקובץ קיים? (תבדוק שוב...)

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

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

פורסם במקור בפורום CODE613 ב05/06/2014 12:52 (+03:00)

clickone

דבר נוסף שאתה יכול לעשות, זה עם תיבה משולבת (לא יודע אם תאהב את הפיתרון [קצת עקום])
בטעינת הטופס אתה יכול לכתוב את הקוד הבא:

Dim sYear As String

Dim iYear As Integer
For iYear = 1900 To 2100
    sYear = sYear & DateSerial(iYear, 1, 1) & ";" & iYear & ";"
Next iYear
sYear = Left(sYear, Len(sYear) - 1)
Me!d.RowSource = sYear

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

מצ"ב קובץ דוגמא
Year.accdb

פורסם במקור בפורום CODE613 ב28/05/2014 21:25 (+03:00)

clickone

@ארכיטקט

@ClickOne
(הבעייה שם שכשלוחצים כדי להזין מידע הוא מציג לרגע את כל התאריך)

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

@ClickOne

אם זה אפשרי מבחינתך, אז תעשה ברירת מחדל את ה1 לינואר של כל שנה, ובתבנית עיצוב תכתוב YYYY,

התכוונתי שתעשה ברירת מחדל לשדה וכנ"ל

פורסם במקור בפורום CODE613 ב28/05/2014 20:30 (+03:00)

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

clickone

פוסטים