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

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

Public Type Kesher
    FirstName As String
    LastName As String
    ID As Double
    Address As String
End Type

וזה הקוד בטופס:

Dim ctl         As Control
Dim KesherInfo  As Kesher

For Each ctl In Me.Controls
    
    KesherInfo(ctl.name) = Me(ctl.name)

Next

אבל הוא מחזיר לי שגיאה על המילים KesherInfo(ctl.name).
יש דרך לעשות את זה?
תודה!

@dovid אני מנסה לכתוב כך:

SELECT EXISTS (select id from men where id = 1234)

אבל אקסס כותב לי כך:

מה עושים?
שוב תודה!

@dovid תודה!

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

@yossiz גאונות!
תודה!

שבוע טוב.
אני מנסה לכתוב קוד שבו יכניסו שתי מספרים, לדוג' 20 ו600, והוא יחזיר חשבון של 600 פחות 20 אחוז.
בשביל זה אני צריך דבר ראשון להמיר את ה20 ל0.8 ואז להכפיל 600 ב0.8 (תוצאה של 480).
הקוד שניסיתי הוא כך:

Public Function test()
Dim a As Single, b As Single
a = 20
b = 600

a = (100 - a)
a = a \ 100

Debug.Print b * a
End Function

אבל הוא מחזיר 0.
מה הבעיה כאן?
תודה!

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

תודה לכל המעוררים.

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

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

ודאי שכל זה הוא לפלפול בעלמא, וכשנגיע למעשה אעשה שאלת רב.

שוב תודה לכל המגיבים.

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

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

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

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

@mekev כנראה.
אם ככה לכאו' אין לי שום דרך להגיע לאותו מרחק שלהם.
אמנם אם אני משתמש בנתונים של מפ"י כבר פחות אכפת לי שיהיה נתונים קצת אחרים, גם אם יעלו על זה יש לי תירוץ טוב...

@OdedDvir מה עושים שזה לא אותם מרחקים
לדוג' מקריית שמונה לאילת, לפי הביטוח הלאומי זה 524 ק"מ, ולפי מפ"י זה 458 ק"מ....
לא ברור לי איך כל אחד מהם מודד (כביש 6 או 90...)

@OdedDvir תודה!
אני מכיר את האתר אבל לא ידעתי שיש שם נתונים כאלו.
זה בדיוק מה שחיפשתי!
תודה!!!

@dovid תודה!!
הבעיה היא שאני צריך שיצא לי את אותו המרחק שלהם בדיוק, אחרת יסבכו אותי שאני גובה יותר ממה שמותר.
אולי יש לך רעיון כלשהו? כמה גרוע יהיה לשלוח את כל הhtml שלהם? להשתמש בטקסט שיש באתר ורק לשנות את הנתונים שמכניסים.
שוב תודה.

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

@ivrtikshoret מאקרו בקובץ וורד או באקסס?

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

השגיאה:

@OdedDvir עובד!
תודה רבה!!!

@dovid הקפצה.
תודה.

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

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
 
objWord.PrintOut , , , , , , , , , , , , "C:\Users\1\מכתב.doc"
 
objWord.Quit

וזו התוצאה (דוגמא מתוך הקובץ PDF):