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

בס"ד

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

headera: {userName: 'avi rz'}

וניסיתי לייבא את ה HttpHeaders לעשות new ולהוסיף עם הפונקציות set ועם append
ולהוסיף מפתח יירוט בappModel ב

providers: [
{ provide: HTTP_INTERCEPTORS, useClass: MyHeaders, multi: true },
],

שום דבר לא עזר!
ברוב המקרים זה נשלח רגיל רק בלי ה headers שהוספתי, ובחלק מהמקרים זה בכלל לא נשלח ובחלק נוסף (שזה מה שניסיתי ליירט כמו' שמובא כאן וכאן - חשוב לציין: שלא השתמשתי ב JWT - אלא הוספתי סתם כותרת בצורה הזאת)
ובצורה הזאת הוא שלח את הHTTP בצורה שך options למרות שבשליחה עצמה השתמשתי בפונקציה של post,
ונסיתי גם את זה והוספתי בheaders Uלא קיבלתי כלום

  providers: [
    { provide: 'HEADERS', useValue: new HttpHeaders({'Content-Type': 'application/json'}) },
  ],

למרות זאת כשאני שולח נורמלי ב postman אני מקבל כל מה שאני רוצה.

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

@odeddvir אמר בשדות מוסתרים בטופס אקסס:

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

גם חושב כך.

@אביי אמר בשדות מוסתרים בטופס אקסס:

@avi-rz כוונתי שכשאני סוגר את הטופס ופותח מחדש, זה חוזר להיות מוסתר, אני חיפשתי משהו שישנה את זה לצמיתות עד לשינוי ידני בחזרה.

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

@אביי אמר בשדות מוסתרים בטופס אקסס:

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

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

@משה-זרביב
אם מדובר במערכת כל שהי,
ip > בד"כ מוגדר לו(או שמקבל לבד ע"י הראוטר),
פורט > בד"כ מופיע גם בהגדרות

אז תפנה לכתובת Ip הזאת עם הפורט ותיכנס למערכת.

@אביי אמר בשדות מוסתרים בטופס אקסס:

@avi-rz אמר בשדות מוסתרים בטופס אקסס:

אם הוא לא בתוך טופס אחר,

הווי אומר?

זה עדיין לא עזר לי משתי סיבות,

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

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

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

@אביי
אם הוא לא בתוך טופס אחר,

form_MyForm.MyFiald.Visible = True
form_שם_טופס.שם_שדה.Visible = True

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

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

@רמי-פרי אמר בבעיה |שולים שחורים בהדפסה:

@avi-rz התוף אחראי על פיזור הדיו וצריך להחליף אותו לאחר סך הדפסות מסוים .יש חברות שהטונר מגיע יחד עם תוף כך שבכל החלפת טונר מוחלף גם התוף ויש חברות שזה שני חלקים נפרדים (בדרך כלל זה גם מוזיל את העלות של הטונרים)

תודה רבה.

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

Public Function GetGimatryya(str_ As Variant) As Long
        
    
    Dim i As Long
    Dim longht_ As Long
    Dim Y As Long
    Dim out As Long
    Dim str_to_out As String
    
    longht_ = Len(Nz(str_, ""))
    For i = 1 To longht_
        str_to_out = Mid(str_, i, 1)
        Select Case str_to_out
            Case "א", "ב", "ג", "ד", "ה", "ו", "ז", "ח", "ט", "י", "כ", "ל", "מ", "נ", "ס", "ע", "פ", "צ", "ק", "ר", "ש", "ת", "ך", "ם", "ן", "ף":
                Y = Asc(str_to_out) - 223
            Case Else
                Y = 0
        End Select
        arr_ = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 20, 30, 40, 40, 50, 50, 60, 70, 80, 80, 90, 90, 100, 200, 300, 400)
        out = Nz(out, 0) + arr_(Y)
    Next i
    GetGimatryya = out
End Function

Public Function GetGimatryyaStr(str_ As Variant) As String
        
    
    Dim i As Long
    Dim longht_ As Long
    Dim Y As Long
    Dim out As String
    Dim str_to_out As Long
    
    longht_ = Len(Nz(str_, ""))
    arr_ = Array("", "א", "ב", "ג", "ד", "ה", "ו", "ז", "ח", "ט", "י", "י", "כ", "ל", "מ", "נ", "ס", "ע", "פ", "צ", "ק", "ק", "ר", "ש", "ת")
    
    For i = 1 To longht_
        Select Case (longht_ + 1) - i
            Case 1:
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out)
            Case 2:
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out + 10)
            Case Else
                str_to_out = CLng(IIf(Nz(Mid(str_, i, 1), "") = "", 0, Mid(str_, i, 1)))
                out = Nz(out, 0) + arr_(str_to_out + 20)
        End Select
    Next i
    GetGimatryyaStr = out
End Function

אפשר לנסות

Debug.Print GetGimatryya("רמח")
Debug.Print GetGimatryyaStr(499)

@nokia אמר בבעיה |שולים שחורים בהדפסה:

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

הייתה לי בעיה כזאת,
זה התחיל משחור בצד, ועבר במשך הזמן לפס בצד.
והפתרון היה כמו ש @רמי-פרי אמר

@רמי-פרי אמר בבעיה |שולים שחורים בהדפסה:

@nokia יתכן שצריך להחליף תוף

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

@איש-פלוני אמר באקסס - קוד VBA לחיפוש והחלפה:

הוא יחליף לי את 11 ל-אא, לכן אני צריך שהוא יתחיל מ20 וירד כלפי מטה).

למה לא שאילתת עדכון? אתה מביא את 2 הטבלאות הנ"ל (1. הטבלה של המספרים והאותיות, 2. הטבלה שבה אתה רוצה להחליף)
מוסיף קריטריון שהמספר בטבלה שאתה רוצה להחליף = המספר בטבלה של האותיות, ומעדכן את המספר לאותית,
רק שים לב שכדאי שהכל יהיה בעיצוב של string - או שתשתמש בהחלפה ע"י Cstr() או Clng()

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

@dovid אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

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

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

@dovid אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

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

ומדוע באמת לא תועיל הרעיון של שליחת קובץ מצו' בפורמט html ולאחר שיפתח אותו נמען, ויבחר את המוצרים והכמות ילחץ על כפתור וירד לו קובץ שיצטרך לצרף אותו למייל?

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

@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

@avi-rz אוף... אני לא אוהב את הכיוון הזה...

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

@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

@avi-rz אפשר לשלוח אבל זה לא ירוץ...

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

• יפתח הודעה חדשה עם כתובת נמען שלי.
• יכניס לתוכו מלל בתוכן
• יצרף קובץ שאני יוריד באותו לחיצה

@yossiz

@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

אפשר לשלוח HTML אבל רק HTML סטטי, בלי שום JS.

ובקובץ מצו' אפשר לשלוח קוד js, או גם לא?

@ש-ב-ח אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

בצורה כזו לא ניתן באמת לשלוח

זכור לי שבקוד לשליחת מייל בvba באקסס (cdo) יש אפשרות לשלוח תוכן html - אולי אני באמת טועה?

@clickone

@clickone אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

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

זהו שרציתי משהו קצת יותר משודרג, - יותר קל ונח ופחות מקום לטעויות,

@clickone אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:

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

זהו שלא בדיוק, אחרת הייתי שולח קישור לאיזה אתר php בשרת חינמי שמכניס לdb, ואפי' הייתי שולף בבוא העת את הנתונים ומכניס לאקסס.

בס"ד

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

@odeddvir אמר בעזרה - שינוי סוג הנתונים לשדה בטבלה קיימת באקסס:

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

זהו שחשבתי ששכחתי לציין את זה, ורציתי רק להוסיף דוגמא:

למשל אם אתה מקבל נתונים בלי id ואתה יכול לבדוק שאין כפילות רק לפי:
תאריך ושעה + מספר טלפון + לא יודע מה עוד... וכו' וכו'.

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

@חייםיודלביץ
אם אתה לא מכניס ישירות לטבלה שבה עיצוב השדה = תאריך, אלא לטבלת ביניים.
תוכל לעשות בשאילתת הוספה, כשאתה מוסיף את הנתונים לטבלה הקיימת, CDate כלומר להמיר אז את הנתונים לתאריך.