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

@משה-זרביב
אם מדובר במערכת כל שהי,
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 כלומר להמיר אז את הנתונים לתאריך.

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

SELECT TOP 3 *
FROM טבלה

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

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

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

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

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

@איש-פלוני

not in (select שדה fron טבלה)

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

<>[id]

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

<>[form].[id]

@ב-ל
איזו תוכנה ניסית?
ומה הייתה השגיאה?