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

@אבי
נראה לי שזה בידוק מה ש @odeddvir התכוון ומאוד פשוט.

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

@yossiz תודה רבה זה היה הפתרון.

@yossiz אמר בhttpclient ב angular - שליחה בpost לא מקבל נתונים.:

אתה שלחת את הנתונים ב-body. בשרת ה-body הוא undefined, אולי אתה לא משתמש ב-body-parser?
express לא נותן לך body בברירת מחדל. צריך לייבא את המודול ולהשתמש בו.
const bodyParser = require('body-parser'); app.use(bodyParser.json());

@one1010 כתב בחישוב צאצאים אחרי 100 שנה:

התחלתי להתבלבל... כולכם כ"כ משכנעים...
בהתחלה שזה אחז ב11,000 צאצאים הבנתי שזאת טעות, עכשיו יש 3 טוענים בתוקף, אתה טוען 1,100 @dovid טוען 1,700 ו @avi-rz טוען 2000 ו

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

• האם הלידה הראשונה היא ב 20 והאחרונה ב 38 או הראשונה ב 22 והאחרונה ב 40?
  תשובה: אם הלידות הן בין 20-38 = 2,024 ואם הלידות הן בין 22-40 = 1,100

• האם המספר שאתה רוצה לקבל כולל את הלידות בשנת המאה או לא כולל?
  תשובה: אם הספירה כוללת את הלידות בשנת המאה, ולפי ההנחה שהלידות הן בין 20-38 = 2,024, ואם הספירה אינה כוללת את הלידות בשנת המאה, ולפי ההנחה שהלידות הן בין 20-38 כנ"ל = 1,705
  ואידך זיל גמור...

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

בהצלחה.

@laswater כתב בבאקסס-הרצה של נתונים מסוימים בדף הבית של התוכנה:

האם זה אפשרי להריץ באקסס נתונים מסוימים בדף הבית של התוכנה?
לדוג' בעסק מסוים עד שלא מתעדכן חדש תמיד רץ על המסך הראשי באיזה שהוא מקום, מדה כהן רכש ב300 ש"ח וכו'?

בעיקרון אתה יכול להניח את העסקה האחרונה בדף הבית ע"י
dlookup (לשלוף נתונים , שם / משפחה / סכום / ותאריך)
ולסנן את ה Id ע"י פונקציה:
או DMax כלומר ה id הגבוה / התאריך הגבוה, או להשתמש ב DLast. שזה אחרון (אם אתה מכניס עסקאות גם ישנות יותר בתאריך - אז הדרך הזאת אינה רלוונטית).

ולהחליף / לרענן אותו:
בכל יצירת עסקה חדשה
או אירוע פסיקת שעון כל דקה
או בעת לחיצה - וזה יהיה עדכני אחרי לחיצה, או לחילופין תזוזות עכבר (כלומר ע"י התערבות כל שהי).

בהצלחה.

@ג-ינג-י כתב בטופס חיפוש באקסס:

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

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

Me.Form.Filter = "[שם_מלא]Like'*" & Me.תיבת_חיפוש.Value & "*'"
ME.Form.FilterOn = True 

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

'לכתוב את המשפט SQL / השאילתה בעצמה
strSql = "select * FROM טבלת_אנשים WHERE (((שם_מלא) Like '*" & Me.תיבת_חיפוש.value & "*'));"
'להחליף את המקור של הטופס בשאילתה הנל
Me.RecordSource = strSql
'ואולי גם לרענן - (יכול להיות שזה קורה לבד)
me.Requery 

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

וכו'..

בהצלחה

@ראש-פינה אמר בסיכום נתונים לפי א ב באקסל:

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

תוכל להוסיף עמודה של Left בכל השורות

=LEFT(A1,1)

ואח"כ איפה שאתה רוצה לבדוק תכניס COUNTIF לדוגמא:

=COUNTIF(C:C,F1)

@odeddvir אמר בהדפסת ד''וח מאקסס על בסיס קובץ וורד:

@בערל אמר בהדפסת ד''וח מאקסס על בסיס קובץ וורד:

ואז אעשה שאילתא חדשה שתביא לי רק את השורה האחרונה מהטבלה, (איך? ע''י בחירת ה-ID הגבוה ביותר?

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

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

@odeddvir אמר בעזרה בברקוד באקסס:

כדי לסרוק את הברקוד תצטרך כמובן סורק ברקוד (תוכל להזמין מהארץ או מחו"ל).
חשוב שהוא ידע להתמשק בקלות עם קוד VBA.

לא כ"כ הבנתי.

אני יסביר...
סורק ברקוד, הוא כמו מקלדת רק בצורה של ברקוד, לאחר שסורקים את הברקוד כשהוא מחובר למחשב, הוא כותב את המספרים על המסך ועושה enter
להמחשה: בוא נאמר אתה פותח word > כותב למעלה בס"ד > יורד שורה > סורק ברקוד - יופיע המספר והסמן יירד שורה, - כך שאם תסרוק ברצף כמה מוצרים (או אפי' אותו מוצר) - תראה כמה שורות של כל המספרים
מצו' דוגמא:

@tar אמר בעזרה בברקוד באקסס:

לקשר בין המוצרים לברקוד מכיון שאני צריך את הברקוד של המוצר שנמצא על האריזות דווקא

פשוט להוסיף שדה בפרטי המוצר של ברקוד, ולעבור כל מוצר ולהניח את הסמן על השדה של הברקוד -וכל מה שנשאר זה רק לסרוק, והברקוד יופיע.
כשאתה רוצה לחפש ברקוד אתה עושה תיבת טקסט ובאירוע לאחר עדכון - מחפש את הid של המוצר לפי הברקוד ב Dlookup וכדו'.

@tar אמר בעזרה בברקוד באקסס:

וכן לגבי סריקת הברקוד אני צריך את הקוד איך לעשות את זה

לא הבנתי אם אתה מתכון לעוד משהו ממה שכתבתי או לא.

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

@avi-rz אמר בעזרה בפונקציית IF באקסל:

או להשתמש בvba - אתה צריך לשמור את הגיליון בפורמט אחר, ולהתקדם שלב.

הנה קוד,

Public Function FixNumber(Optional strNum As Variant) As String

    Dim len_ As Long
    Dim first As String
    
strNum = CStr(strNum)


first = Left(strNum, 1)

Select Case a
    Case "0":
        FixNumber = strNum
    Case Else
        len_ = Len(strNum)
        Select Case len_
            Case 9, 8:
                FixNumber = "0" & strNum
            Case 7:
                FixNumber = "02" & strNum
            Case Else
        FixNumber = strNum
        End Select
End Select


End Function

תעתיק את זה ותדביק בעודך הvba.
תשתמש בפונקציה הזאת כך:

=FixNumber(A4)

@יהודי-טוב אמר בעזרה בפונקציית IF באקסל:

=IF(LEFT(A4>0),

דבר ראשון, את התנאי הראשון לסדר,

=IF(LEFT(A4)>0,

ובסוף במקום

@יהודי-טוב אמר בעזרה בפונקציית IF באקסל:

,TEXT(A4,"020000000")))))

להוסיף

,TEXT(A4,"020000000"),A4))))

וגם בסוף ממש להוסיף תנאי שלילי, כלומר אם זה כן אפס בהתחלה שיביא את השדה בשלמותו

))),A4)

ולשנות גם את האפס בהתחלה לטקסט

=IF(LEFT(A4)<>"0"

למעשה בשורה התחתונה תדביק את זה:

=IF(LEFT(A4)<>"0",IF(LEN(A4)=9,TEXT(A4,"0000000000"),IF(LEN(A4)=8,TEXT(A4,"000000000"),IF(LEN(A4)=7,TEXT(A4,"020000000"),A4))),A4)

בהצלחה.

@יהודי-טוב אמר באקסס-קריאה למאקרו יותר מ19 פעמים?:

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

בעיקרון אין מה להוסיף על מה ש

@odeddvir אמר באקסס-קריאה למאקרו יותר מ19 פעמים?:

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

אם את מתעקש תנסה, לא להשתמש ב runMacro, ותכתוב כל פעם מחדש את הפקודה - (תוכל אפי' למצוא אותו בצד בלחיצה כפולה הוא מעתיק לך).
אבל באמת שאני לא מבין למה אתה מתעקש בפרט שאתה משתמש רק ב2 פקודות בהתחלה.
פתיחת טופס:

Docmd.openForm "FormName"

וסגירת טופס:

Docmd.Close asForm, "FormName"

ואתה גם יכול לוותר על שם הטופס, ואז הוא יסגור את הטופס הפעיל כך:

Docmd.Close asForm

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

@חנון-המרבה
לבדוק עם הפונקציה

IsNumeric()

@איש-ימיני
אפשר להגביל את התוצאות למשל אם אתה רוצה רק את ה3 העליונות זה משהו כזה:

SELECT TOP 3 *
FROM טבלה

ואם אתה רוצה רק אחד תכתוב במקום 3 את הספרה 1
ואם יש סיבה מסוימת שבעבורה אתה רוצה להתחיל מ (/ לקבל רק את) השלישי או הרביעי אז תכניס בתנאי,

SELECT TOP 1 *
FROM טבלה
WHERE ((([תרם_כבר])=true));

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

"[תרם כבר]=true" 

וכדו' - אני חושב שהוא גם יביא את התוצאה הראשונה

@איש-פלוני אמר באקסס - איך אני מגדיר איפה במסך עולה הטופס:

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

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

@איש-פלוני אמר באקסס - איך אני מגדיר איפה במסך עולה הטופס:

איך אני יכול להגדיר שטופס מוקפץ מסויים יעלה במיקום מסויים במסך?

להכניס באירוע בעת טעינה את הפונקיצה הזאת:

Me.Move 1000, 1000

הראשון = מגדיר גודל משמאל והשני = מלמעלה, (השלישי = רוחב והרביעי = גובה)

@nigun אמר בהעברת חומר ממחשב למחשב:

אם יש לך ראוטר,

אז אתה יכול

• לשתף את התיקייה של היוזר
• להיכנס אליו מהמחשב השני(רשת>בחר את המחשב הרצוי>שם משתמש וסיסמא)
• פשוט להעתיק

בס"ד

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

@חוקר אם יש לך eset internet security אז אתה יכול להגדיר שם רשימה לבנה, ולעשות סיסמא להגדרות.

בס"ד

כמה דברים שעדיין צריך להבין,
הDB והתוכנה הם בקבצים נפרדים?
לכל מחשב יש את הנתונים משלו, או שהם מחוברים לקובץ (DB) אחד ברשת המקומית?
המבחנים מורכבים מהשאלות והתשובות ע"י קישור אליהם או שהשו"ת מעותק למבחנים?
כלומר חסר את התהליך / מבנה של הנתונים
אבל מלמעלה, אם יעזור לך לעשות 2 קבצי DB (על אף שזה אפשרי, לחבר את הנתונים ליותר מקובץ אחד), אז למה שלא תחליף רק את הטבלאות הנ"ל,
וחוצמזה, אם שאר הטבלאות משתמשות (מקושרות) בנתונים של השו"ת אז תוכל רק להוסיף שאלות ותשובות, ואת אלו שאתה כבר לא צריך להוסיף להם איזה סימון של לא פעיל (או/ו כדו'), ולסנן אותם בשימוש שלהם.
מקווה שיצא ברור, כי בסה"כ הייתי צריך לנחש מהי הארכיטקטורה של התוכנה.

@yossiz @צדיק-תמים
תודה רבה! הפתרון שניסיתי להכניס את הפרמטרים בנפרד ולא ב url עבד!

@dovid כתב בייבוא נתונים מהרשת לאקסס:

@avi-rz רשת/מירשתת = web, אינטרנט = internet.

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

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