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

@רחמים

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

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

פורסם במקור בפורום CODE613 ב06/01/2014 09:17 (+02:00)

נכון.
ככה זה בPHP כשאפשר לייצר טופס HTML בזמן ריצה. אתה צודק.

פורסם במקור בפורום CODE613 ב06/01/2014 00:30 (+02:00)

@KingYes

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

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

פורסם במקור בפורום CODE613 ב06/01/2014 00:24 (+02:00)

@KingYes

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

בגלל שזה לא WEB, והממשק לא מבקש מAJAX לספר לשרת מה הID שהוא קיבל ואיזה HTML להחזיר (וגם זה שכשהתוכן יישלח עם הSUBMIT הוא לא חוזר לשרת), אז זה לא כ"כ שייך. (הרי לא מדובר בטפסים בזמן ריצה.- הלוואי...).
הכל מעוצב בתוך הטופס עצמו מראש.
בעיקרון, זו השיטה הרווחת בWINFORM ודומיה, (אפילו בWPF ובASPX) - וממש בעיקרון, אפילו בPHP. תקן אותי אם אני טועה. (אני לא טוען ח"ו שא"א לבצע טפסים דינמיים בשלל השפות שהזכרתי, אלא שהמתכנת בד"כ מעצב את הטופס מראש...)

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

@ClickOne

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

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

Screenshot 2014-01-06 00.13.25.png

פורסם במקור בפורום CODE613 ב06/01/2014 00:16 (+02:00)

רציתי להתייעץ ולשמוע את דעתכם.
מכירים את האקורדיון בWEB?
מישהו הציע לי לממש אובייקט דומה באקסס, במיוחד במסכים עתירי נתונים, או מסכים עם שלבים שצריך סדר ברור בין שלב לשלב. (כיום כשצריך ללכת שלב אחרי שלב אני נוהג להשתמש עם TabControl).
אני מצרף את האובייקט שבניתי, שזה בעצם מסך עם 9 כפתורים. (אחד הדברים המעצבנים באקסס, זה שא"א ליצור פקדים על המסך תוך כדי ריצה.) + אובייקט טאב עם 9 עמודים.
כמובן שאפשר לממש את זה עם כל מספר עמודים שתרצו וכן כל מספר כפתורים, רק שימו לב שאתם יוצרים מספר עמודים שווה למספר הכפתורים, וכן שימו לב שאתם קוראים לכפתורים בשם C + המספר הסידורי שלו.

הקוד:

Public Function setCmd(icmd As Integer)
' מטרת הפונקצייה לסדר את האקורדיון
' משתנה עבור גובה כולל
Dim AllH As Long
' הכפתור הראשון בגובה 0
c1.Top = 0
' מעבר בפור על כל הכפתורים
For i = 1 To 9
    'הגובה של הכפתור הוא הגובה הכולל + 20
    Me("c" & i).Top = AllH + 20
    ' שינוי הערך של הגובה הכולל
    AllH = AllH + Me("c" & i).Height + 20
    ' בדיקה אם הכפתור הוא הכפתור שנלחץ (לפי המספר שבר בפרמטר) ואם כן, להציב שם את הטאב
    If icmd = i Then
        ' הצבת הטאב
        Me!TabCtl.Top = AllH + 20
        ' הגובה של הכל עד עכשיו
        AllH = AllH + TabCtl.Height + 20
    End If
   ' מעבר לכפתור הבא
Next
' הערך של הטאב הנוכחי הוא מספר הכפתור פחות אחד, כי האינדקס בטאב קונטרול מתחיל מ0
Me!TabCtl.Value = icmd - 1


End Function

להורדת הדוגמא:
Accordion.zip
[size=150:2qf5zpm2]הקובץ + קוד המקור פתוח לשימוש ושינוי חופשי![/size:2qf5zpm2]

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

פורסם במקור בפורום CODE613 ב05/01/2014 23:45 (+02:00)

@magicode

אולי אפשר להריץ פונקציה בתוך הfor.

ולעשות return בפונקציה.

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

פורסם במקור בפורום CODE613 ב06/01/2014 22:10 (+02:00)

@KingYes

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

ע"ע: http://www.internet-israel.com/?p=3590

כתוב שם:

אם אנחנו ממש רוצים שמשהו יקרה, כדאי לשים אותו בתוך פונקציה ולא להתחיל לשוטט ברחבי הקוד עם goto

וגם:

goto נחשבת לטכניקת תכנות גרועה – כיון שאם משתמשים בה זה עלול לגרום לקוד להיות לא קריא

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

פורסם במקור בפורום CODE613 ב06/01/2014 09:13 (+02:00)

@רחמים

אגב Continue זה לא רק ב FOR אלא גם ב DO וגם ב TRY

וגם סתם בקוד....
אם אתה רוצה לעשות קפיצה למקום מסויים בקוד.
והוא נמצא שם בעיקר מסיבות הסטוריות, (נדמה לי שהמקור שלו משפת Basic)

פורסם במקור בפורום CODE613 ב06/01/2014 08:34 (+02:00)

@ארכיטקט

אני זוכר שכשהתחלתי לתכנת לא ידעתי לעשות לולאות, וגיליתי את goto לפני שגיליתי את הלולאות, אז "המצאתי" לולאה על ידי goto

גם אני.... עד היום יש לי איזה דוח עם לולאה שרצה עם GOTO 20 פעמים עד ליציאה, זה פשוט נשאר שם מטעמים הסטוריים.
@ארכיטקט

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

מת על ההגדרות שלך :lol: :lol: :lol:
בכל מקרה אני מאמץ בחום את הGOTO במקום לעשות קוד ספגטי. (עד שיבוא דוטנט לאקסס גואל...)

פורסם במקור בפורום CODE613 ב06/01/2014 00:38 (+02:00)

@ClickOne

אם כי מספרים שזו שיטה שעברה מן העולם, אבל בכל זאת עובדת.. :lol: :lol:

כתבתי כבר....

פורסם במקור בפורום CODE613 ב06/01/2014 00:10 (+02:00)

ב:

For i=0 to 5

אפשר אכן להשתמש בGoTo, ולהוסיף לi ידנית ספרה (אם כי מספרים שזו שיטה שעברה מן העולם, אבל בכל זאת עובדת.. :lol: :lol: )

אבל ב
For Each Var In Array
איפה תשים את הGoTo?
הרי כדי שהפור יעבור לאיבר הבא צריך להגיע לנקסט. (במחשבה שנייה, אם הבנתי נכון, אתה מתכוון ששורה לפני הנקסט לשים לייבל, ולהפנות לשם, נכון??)
תודה!

פורסם במקור בפורום CODE613 ב05/01/2014 23:54 (+02:00)

יצא לי לכתוב בסוף שבוע שעבר תוכנית קטנה ללקוח בWINFORM.
התוכנית ממירה קובץ אקסל לתבנית מיוחדת שהלקוח צריך להכניס לאיזו מערכת שלו.
(דרך אגב, את הקריאה של האקסל ביצעתי עם ExcelDataReader, מומלץ לקריאה מקבצי אקסל ללא תלות באופיס)
במהלך כתיבת לולאת הFOR, הייתי צריך לבדוק כמה דברים, ואם משהו לא התקיים, פשוט לא לבצע, אלא להמשיך לאיבר הבא במערך.
דא עקא, שהסירבול עם הIFים המקוננים פשוט שיגע אותי, וחיפשתי דרך יותר קצרה.
ואז, מצאתי. אפשר להשתמש בContinue For, זה פשוט ממשיך לאיבר הבא.

דוגמא:

If tmp.Length = 0 Then Continue For

מישהו יודע איך ממשים את זה בVB6 או VBA?

פורסם במקור בפורום CODE613 ב05/01/2014 23:05 (+02:00)

בנוסף, בDB עצמו שדה מסוג LongText (תזכיר) יכול להכיל על 2 ג"ב נתונים. (ואז המסד מגיע לקצה שלו [עד גירסה 2003 אח"כ יש עוד ואני לא זוכר כעת כמה])

פורסם במקור בפורום CODE613 ב05/01/2014 18:38 (+02:00)

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

Dim FS As String * 10

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

פורסם במקור בפורום CODE613 ב05/01/2014 18:19 (+02:00)

[size=200:2cbjs4s4]קודם כל קבל פירגון ענק על הרעיון!![/size:2cbjs4s4]
הוא יהיה זמין גם לווינדוס?
אפשר להציע גם טישטוש תמונות כמו שעשו בנט-צח? (בעצם זיהוי של טווח הצבעים של הפנים ואז הפיכה שלהם לערך 0 שזה שחור.)
מעניין אותי, (כי ניסיתי בעבר לממש משהו דומה) השתמשת בליסינר כשרת פרוקסי? איך גרמת לקישורים מותרים לעבור ולא לחזור בלופ לליסנר? דרך פורט שונה?
אגב, נראה שזה יכול לעבוד גם באנדרואיד (היא בנוייה על לינוקס)

[size=150:2cbjs4s4]בהצלחה!!!![/size:2cbjs4s4]

פורסם במקור בפורום CODE613 ב05/01/2014 22:51 (+02:00)

@ארכיטקט

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

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

אבל האמת היא ש:
@ארכיטקט

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

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

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

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

פורסם במקור בפורום CODE613 ב05/01/2014 18:01 (+02:00)

ובודאי במקום הקוד שמכניס דרך הוספת חדש בRS תוכל גם להשתמש בשאילתת INSERT

INSERT INTO Tbl2 (id, idpay, bla1, bla2, bla3) values (1, 2, bla1, bla2, bla3)

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

פורסם במקור בפורום CODE613 ב05/01/2014 09:13 (+02:00)

@שמואל

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

לא הבנתי, מדובר בטבלה שמכילה תשלומים, ועכשיו אתה משנה את המבנה במקום שתהיה שורה אחת אתה רוצה לפצל לX שורות? (באותה טבלה או טבלת משנה)

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

dim rs as recordset
dim subrs as recordset

set rs=currentdb.openrecordset("select * from tbl1")
set subrs=currentdb.openrecordset("select * from tbl2")
dim i as integer
do until rs.eof
	for i=1 to rs!PayCount
		subrs.addnew
		' כאן תוסיף את הנתונים לטבלת המשנה - או לטבלה הראשית. אל תשכח להוסיף את ה ID של הטבלה הראשית
		subrs!bla=1 ' לדוגמא:
		subrs!id=rs!id ' וזה דוגמא של משתנה שנלקח מהטבלה השנייה
		subrs.update
	next i

rs.movenext
loop

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

פורסם במקור בפורום CODE613 ב05/01/2014 08:52 (+02:00)

@רחמים

ואל תשכחו את האשכול הזה .....

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

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