תודה.
יש אפשרות להגדיר סינון בתוצאות?
פורסם במקור בפורום CODE613 ב27/06/2016 15:53 (+03:00)
H
hsf
@hsf
-
RSS לאתר -
RSS לאתרעוד לא כתוב.
יש חלק שכתוב בPHP
פורסם במקור בפורום CODE613 ב27/06/2016 05:34 (+03:00)
-
RSS לאתראין מידע? :oops: :oops:
פורסם במקור בפורום CODE613 ב26/06/2016 15:35 (+03:00)
-
RSS לאתר- איך אני מגדיר שהאתר שלי ייקח RSS מכמה אתרים.
- האם ניתן להוסיף סינון על העדכונים שמתקבלים.
אשמח לקבל כל מידע ו/או הפניות למדריכים בענין
בתודה מראש
פורסם במקור בפורום CODE613 ב26/06/2016 01:54 (+03:00)
-
גליון נתונים - מתקדם - אקססכוונתי גם: תיבת רשימה (לצורכי מיון סינון וכו'), אך שיהיה אפשר לשנות ישירות בטבלה נתונים
פורסם במקור בפורום CODE613 ב04/04/2016 23:19 (+03:00)
-
גליון נתונים - מתקדם - אקססאם הבנתי אותך נכון, בכל תבנית ברירת מחדל של אקסס יש דוגמא כזו, תנסה טופס מפוצל וכנ"ל.
הבנת נכון.
אבל אני רוצה, כעין זה בגירסאות מוקדמות יותר
וכן שיהיה בתור טופס משנה, ללא החלק למעלה.פורסם במקור בפורום CODE613 ב21/03/2016 12:59 (+02:00)
-
גליון נתונים - מתקדם - אקססכוונתי הסופית. גליון נתונים. שעד שאתה לוחץ על התא. או שאתה מתחיל לכתוב בפועל. הוא לא נכנס לתוך התא
פורסם במקור בפורום CODE613 ב20/03/2016 09:30 (+02:00)
-
גליון נתונים - מתקדם - אקססהאם ניתן להגדיר טבלת גליון נתונים - באקסס - בתור תופס.
שיתפקד גם בתור רשימה עם פקדים.
חשוב שיהיה בסגנון גליון נתונים (לחיצה למעלה למטה, ימיה, שמאלה).פורסם במקור בפורום CODE613 ב17/03/2016 23:41 (+02:00)
-
ייצוא משתנה מאקססשיניתי את המיקום,
וכן הטקסט לטקסט בעברית
ומוסיף לי מרכאות בתחילה וסוף.פורסם במקור בפורום CODE613 ב17/09/2015 21:18 (+03:00)
-
ייצוא משתנה מאקסס...
פורסם במקור בפורום CODE613 ב16/09/2015 16:47 (+03:00)
-
ייצוא משתנה מאקססנתקע בשורה הזה.
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")לדוד ל.ט. מצויין...
הוא מוסיף לי מרכאות בתחילת וסוף הקובץ, האם יש אפשרות ללא...פורסם במקור בפורום CODE613 ב11/09/2015 00:52 (+03:00)
-
ייצוא משתנה מאקססתודה על התשובה השניה.
וגם על השאלה הראשונה. אולם מה ההקדמה לקוד שאני אמור להוסיף....
כי הקוד הבא לכאו לא מספיקConst fsoForWriting = 2 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Open the text file Dim objTextStream Set objTextStream = objFSO.OpenTextFile("C:\SomeFile.txt", fsoForWriting, True) 'Display the contents of the text file objTextStream.WriteLine "Hello, World!" 'Close the file and clean up objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothingפורסם במקור בפורום CODE613 ב09/09/2015 23:45 (+03:00)
-
ייצוא משתנה מאקסס- איך ניתן לייצא טקסט מסויים (משתנה) לקובץ .txt - לא באמצעות טבלה/שאילתה/דוח - אלא באמצעות משתנה.
- קובץ .ini - האם הוא קובץ txt רגיל אל אם סיומת שונה, או שמא הוא סוג קובץ שונה, ואם הוא סוג שונה איך ניתן לייצא גם לקובץ זה
בתודה מראש
פורסם במקור בפורום CODE613 ב08/09/2015 21:37 (+03:00)
-
נספח: פיתוח מנוע חיפוש שיתחרה בגוגלכל מי שיכול לענות תשובה עניינית לשאלה מבלי להיכנס לויכוח על הפנטזיה יבורך (אפשר לפתוח אשכול נפרד לכל מי שיש לו מה לומר על עצם הפנטזיה :lol: :lol: :lol: ).
מכיוון שביקשת לענות באשכול נפרד, פתחתי אשכול נפרד...
התוכנית היא כזאת, לסרוק אתרים שבהם יש מידע מנורמל אודות מוצרים ושירותים (הכוללים מחירים, ופרמטרים רלוונטיים נוספים), ולהכניס את הכל לדטה בייס משלי, שיוכל להגיב לשאילתות שלי כאשר משתמשים יבקשו לסנן מוצרים לפי פרמטרים מדוייקים. לא לגנוב לי את הרעיון!!!!
הבעיה, שישנם כל הזמן עדכונים, אם אתה שומר את התוכן מראש, הוא לא מתעדכן... טעיתי?
בכל אופן, הרבה הצלחה!
פורסם במקור בפורום CODE613 ב10/08/2015 16:11 (+03:00)
-
ייעול של פונקציות החיפוש@HSF
כאן העלתי דוגמא לקוד באקסס, שנ"ל קצר יותר.כשבכל שדה בודק איזה סינון להחיל עליו.
כשבסוף מצרף את כל הסינוניםאני לא מבין VB וניסיתי להמיר אותו כאן אבל זה כתב שיש לו שגיאה ושהוא לא יכול להמיר את הקובץ
לא הבנתי אותך.. אתה בעצם מחפש לפי כל פרמטר בנפרד, ואח"כ מקבץ את כל התוצאות, ואז שוב מבצע סינון?? שהרי זה לא עוזר לי שיהיו לי את כל התוצאות שהרי אם הוא מזין נתונים בכמה מקומות אז הוא רוצה לסנן גם ע"פ הפרמטר הזה וגם הזה והזה.. אז בעצם מראש צריך להריץ שאילתא אחת שתסנן ע"פ כל הפרמטרים?? נמצא שצריך לכתוב שאילתא לכל שילוב אפשרי ולפי מה שהמשתמש מזין לדעת באיזה שאילתא לבחור..אני מכין מראש את נוסחת הסינון לכל פרמטר בנפרד, ומשתמש בפונקציית IF שאם לא בחר סינו יוסיף סינון "" ובמידה ובחר סינון אחר (כגון: שווה ל.. /החל מ /עד/בין/גדול/קטן, כל דבר לפי ענינו) מוסיף את הנוסחה למשתנה פנימי בהתאם לפרמטר שלו.
ולבסוף אני מאחד את כל הסינונים.ולדוגמא הסינון של סכום מאוחסן במשתנה X
הסינון של תאריך מאוחסן במשתנה XX
בסוף אני עושה איחוד של X & XX ומוסיף אותו לשורת הסינון בשאילתה
במידה ואין שום סינון הרי נוסף רק "" כאמור.פורסם במקור בפורום CODE613 ב09/08/2015 18:34 (+03:00)
-
ייעול של פונקציות החיפושכאן העלתי דוגמא לקוד באקסס, שנ"ל קצר יותר.
כשבכל שדה בודק איזה סינון להחיל עליו.
כשבסוף מצרף את כל הסינוניםפורסם במקור בפורום CODE613 ב09/08/2015 18:10 (+03:00)
-
יצירת דוחותנכון, וליצור דוח מותאם אישית כמו שטל למדן כתב, ולתת אפשרות לשמור את זה ברשימת הדוחות המוכנים
פורסם במקור בפורום CODE613 ב07/07/2015 16:56 (+03:00)
-
יצירת דוחותבהמשך לתגובתי הקודמת, א"כ לכאו' כדאי ליצור כפי האפשרות הראשונה שבחרת שיהיה בתצוגת רשימה, ויהיה ניתן להוסיף עוד סוגי דוחות עם פרמטרים, כשיהיה טופס ייעודי ליצירת דוחות חדשים...
פורסם במקור בפורום CODE613 ב07/07/2015 00:10 (+03:00)
-
יצירת דוחותבהתאם למה שהוצע לעיל, רציתי להרחיב מעט,
מעט ארוך, אולי לא מתקדם,
אבל זה מה שיש לי ממה שהכנתי לפני זמן רב.
מצורף דוגמא - צילום מסך:
מצורף דוגמא - קוד לעדכון רשימה - תצוגת רשימה:
Public Function Rahema1() 'פותח טקסט Text1 = "SELECT [רשימת הזמנות].[קוד הזמנה], [רשימת הזמנות].[" & [מיין לפי] & "] AS מיין, " 'טקסט רשימה Text2 = " [רשימת הזמנות].[קוד הזמנה] AS הזמנה, [רשימת הזמנות].[קוד לקוח] AS לקוח, [רשימת הזמנות].פרטים, [רשימת הזמנות].כתובת, [רשימת הזמנות].קומה, [רשימת הזמנות].[תאריך הזמנה], [רשימת הזמנות].[תאריך הזמנה עברי], [רשימת הזמנות].[הוזמן לתאריך], [רשימת הזמנות].[הוזמן לתאריך עברי], [רשימת הזמנות].[סופק בתאריך], [רשימת הזמנות].[סופק בתאריך עברי], [רשימת הזמנות].לתשלום, [רשימת הזמנות].שולם, [רשימת הזמנות].הקפה, IIF([קוד לקוח], DLookUp('[הקפה]','[רשימת אנשי קשר]','[קוד]=' & [קוד לקוח])) AS [הקפת לקוח], [רשימת הזמנות].מצב, DCount('[שורה]','[פרטי הזמנה - רשימת הזמנה]','[קוד הזמנה]=' & [קוד הזמנה]) AS ש_הזמנה, DCount('[שורה]','[פרטי הזמנה - רשימת הספקה]','[קוד הזמנה]=' & [קוד הזמנה]) AS ש_הספקה FROM [רשימת הזמנות] " 'סינון בסיס Text3 = "WHERE (((IIf([FORMS]![רשימת הזמנות]![הצג הכל]=-1,""הצג"",IIf([מצב]=""בהזמנה"" And [FORMS]![רשימת הזמנות]![בהזמנה]=-1,""הצג"",IIf([מצב]=""בוצע"" And [FORMS]![רשימת הזמנות]![בוצע]=-1,""הצג"",IIf([מצב]=""בוטל"" And [FORMS]![רשימת הזמנות]![בוטל]=-1,""הצג"",IIf([מצב]=""מושהה"" And [FORMS]![רשימת הזמנות]![מושהה]=-1,""הצג"",""""))))))=""הצג"")" 'סינן תאריכים Text4 = IIf([סוג סינון] = "בין תאריכים", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "]) Between [forms]![רשימת הזמנות]![מתאריך] AND ([forms]![רשימת הזמנות]![עד תאריך])) ", IIf([סוג סינון] = "מתאריך", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "])>=[מתאריך])", IIf([סוג סינון] = "עד תאריך", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "]<=[עד תאריך])) ", ")"))) 'סינון סה לתשלום If ([סוג סינון סה לתשלום] = "ללא סינון") Then Text5 = "" End If If ([סוג סינון סה לתשלום] = "שווה ל...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) Like [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "גדול מ...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) > [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "קטן מ...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) < [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "בין...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) Between [FORMS]![רשימת הזמנות]![סה לתשלום-1] And [FORMS]![רשימת הזמנות]![סה לתשלום-2]) " End If 'סינון סה שולם If ([סוג סינון סה שולם] = "ללא סינון") Then Text6 = "" End If If ([סוג סינון סה שולם] = "שווה ל...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) Like [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "גדול מ...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) > [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "קטן מ...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) < [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "בין...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) Between [FORMS]![רשימת הזמנות]![סה שולם-1] And [FORMS]![רשימת הזמנות]![סה שולם-2]) " End If 'סינון הקפה If ([סוג סינון הקפה] = "ללא סינון") Then Text7 = "" End If If ([סוג סינון הקפה] = "שווה ל...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) Like [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "גדול מ...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) > [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "קטן מ...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) < [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "בין...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) Between [FORMS]![רשימת הזמנות]![הקפה-1] And [FORMS]![רשימת הזמנות]![הקפה-2]) " End If 'מיון Text8 = "ORDER BY [רשימת הזמנות].[" & [מיין לפי] & "]" & [מיון עולה יורד] & ";" 'מחברת טקסט רשימה Text9 = Text1 & Text2 & Text3 & Text4 & Text5 & Text6 & Text7 & Text8 'מעדכן רשימה [רשימת הזמנות].RowSource = Text9 'מעדכן שדה איתור [שדה איתור].RowSource = Text9 ' מרענן רשימה DoCmd.RunCommand acCmdRefreshPage End Functionמצורף דוגמא - קוד ליצירת רשימה - עבור דוח:
Public Function Rahema2() 'פותח טקסט Text1 = "SELECT [רשימת הזמנות].[" & [מיין לפי] & "] AS מיין, " 'טקסט רשימה Text2 = " [רשימת הזמנות].[קוד הזמנה] AS הזמנה, [רשימת הזמנות].[קוד לקוח] AS לקוח, [רשימת הזמנות].פרטים, [רשימת הזמנות].כתובת, [רשימת הזמנות].קומה, [רשימת הזמנות].[תאריך הזמנה], [רשימת הזמנות].[תאריך הזמנה עברי], [רשימת הזמנות].[הוזמן לתאריך], [רשימת הזמנות].[הוזמן לתאריך עברי], [רשימת הזמנות].[סופק בתאריך], [רשימת הזמנות].[סופק בתאריך עברי], [רשימת הזמנות].לתשלום, [רשימת הזמנות].שולם, [רשימת הזמנות].הקפה, [רשימת הזמנות].מצב INTO [דוח הזמנות] FROM [רשימת הזמנות] " 'סינון בסיס Text3 = "WHERE (((IIf([FORMS]![רשימת הזמנות]![הצג הכל]=-1,""הצג"",IIf([מצב]=""בהזמנה"" And [FORMS]![רשימת הזמנות]![בהזמנה]=-1,""הצג"",IIf([מצב]=""בוצע"" And [FORMS]![רשימת הזמנות]![בוצע]=-1,""הצג"",IIf([מצב]=""בוטל"" And [FORMS]![רשימת הזמנות]![בוטל]=-1,""הצג"",IIf([מצב]=""מושהה"" And [FORMS]![רשימת הזמנות]![מושהה]=-1,""הצג"",""""))))))=""הצג"")" 'סינן תאריכים Text4 = IIf([סוג סינון] = "בין תאריכים", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "]) Between [forms]![רשימת הזמנות]![מתאריך] AND ([forms]![רשימת הזמנות]![עד תאריך])) ", IIf([סוג סינון] = "מתאריך", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "])>=[מתאריך])", IIf([סוג סינון] = "עד תאריך", " AND ([רשימת הזמנות].[" & [אפשרות סינון] & "]<=[עד תאריך])) ", ")"))) 'סינון סה לתשלום If ([סוג סינון סה לתשלום] = "ללא סינון") Then Text5 = "" End If If ([סוג סינון סה לתשלום] = "שווה ל...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) Like [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "גדול מ...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) > [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "קטן מ...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) < [FORMS]![רשימת הזמנות]![סה לתשלום-1]) " End If If ([סוג סינון סה לתשלום] = "בין...") Then Text5 = " AND (([רשימת הזמנות].[לתשלום]) Between [FORMS]![רשימת הזמנות]![סה לתשלום-1] And [FORMS]![רשימת הזמנות]![סה לתשלום-2]) " End If 'סינון סה שולם If ([סוג סינון סה שולם] = "ללא סינון") Then Text6 = "" End If If ([סוג סינון סה שולם] = "שווה ל...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) Like [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "גדול מ...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) > [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "קטן מ...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) < [FORMS]![רשימת הזמנות]![סה שולם-1]) " End If If ([סוג סינון סה שולם] = "בין...") Then Text6 = " AND (([רשימת הזמנות].[שולם]) Between [FORMS]![רשימת הזמנות]![סה שולם-1] And [FORMS]![רשימת הזמנות]![סה שולם-2]) " End If 'סינון הקפה If ([סוג סינון הקפה] = "ללא סינון") Then Text7 = "" End If If ([סוג סינון הקפה] = "שווה ל...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) Like [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "גדול מ...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) > [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "קטן מ...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) < [FORMS]![רשימת הזמנות]![הקפה-1]) " End If If ([סוג סינון הקפה] = "בין...") Then Text7 = " AND (([רשימת הזמנות].[הקפה]) Between [FORMS]![רשימת הזמנות]![הקפה-1] And [FORMS]![רשימת הזמנות]![הקפה-2]) " End If 'מיון Text8 = "ORDER BY [רשימת הזמנות].[" & [מיין לפי] & "]" & [מיון עולה יורד] & ";" 'מחברת טקסט רשימה Text9 = Text1 & Text2 & Text3 & Text4 & Text5 & Text6 & Text7 & Text8 ' יוצר רשימת הזמנות DoCmd.RunSQL "" & Text9 & "", -1 End Functionבכל אופן שיהיה לך הרבה הצלחה
פורסם במקור בפורום CODE613 ב07/07/2015 00:08 (+03:00)
-
יצירת פקד באמצעות קוד - אקססאשמח אם תמצא זמן.
ושיהיה לך הצלחה בכל אופן (גם אם לא תמצא זמן)פורסם במקור בפורום CODE613 ב09/08/2015 18:07 (+03:00)