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

תודה.
יש אפשרות להגדיר סינון בתוצאות?

פורסם במקור בפורום CODE613 ב27/06/2016 15:53 (+03:00)

עוד לא כתוב.

יש חלק שכתוב בPHP

פורסם במקור בפורום CODE613 ב27/06/2016 05:34 (+03:00)

אין מידע? :oops: :oops:

פורסם במקור בפורום CODE613 ב26/06/2016 15:35 (+03:00)

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

אשמח לקבל כל מידע ו/או הפניות למדריכים בענין

בתודה מראש

פורסם במקור בפורום 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)

1. איך ניתן לייצא טקסט מסויים (משתנה) לקובץ .txt - לא באמצעות טבלה/שאילתה/דוח - אלא באמצעות משתנה.
2. קובץ .ini - האם הוא קובץ txt רגיל אל אם סיומת שונה, או שמא הוא סוג קובץ שונה, ואם הוא סוג שונה איך ניתן לייצא גם לקובץ זה
   בתודה מראש

פורסם במקור בפורום CODE613 ב08/09/2015 21:37 (+03:00)

@ארכיטקט

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

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

@ארכיטקט

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

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

בכל אופן, הרבה הצלחה!

פורסם במקור בפורום CODE613 ב10/08/2015 16:11 (+03:00)

@avr416

@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)