@רמי-פרי אמר בבעיה |שולים שחורים בהדפסה:
@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()
@dovid אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
יש אין סוף אנשים שזה יכול להפיל, ולמעשה זה נותן לך כח עצום על המחשב של כל מקבל גם לגיטימי שנותן בך אמון (הוא לא מבין כמה אמון הוא נותן...).
ולכן, כרום, ג'מייל, וינדוס, ולקינוח האנטיוירוס אמורים לעמוד בדרכך. כל הפתרונות שלך צריכים בחינה אם הם נחסמים וגם אם לא הם במצב התנגשות עם השוטרים הללו, שבצדק מנסים להכשיל את תוכניתך.
ומה כל זה לאומת מה שאיש פשוט נכנס לאתר, שאז בעל האתר יכול לעשות הרבה הרבה יותר.
@dovid אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
ולכן, כרום, ג'מייל, וינדוס, ולקינוח האנטיוירוס אמורים לעמוד בדרכך. כל הפתרונות שלך צריכים בחינה אם הם נחסמים וגם אם לא הם במצב התנגשות עם השוטרים הללו, שבצדק מנסים להכשיל את תוכניתך.
ומדוע באמת לא תועיל הרעיון של שליחת קובץ מצו' בפורמט html ולאחר שיפתח אותו נמען, ויבחר את המוצרים והכמות ילחץ על כפתור וירד לו קובץ שיצטרך לצרף אותו למייל?
וכמובן פתוח לעוד הצעות מהירות בנייה, לקהל שיש לו רק מייל בלבד.
@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
@avi-rz אוף... אני לא אוהב את הכיוון הזה...
אדרבה, אשמח לשמוע יותר למה באמת ומה כן אפשרי,
כמובן אם זה לא מידי קשה, תודה רבה.
@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
@avi-rz אפשר לשלוח אבל זה לא ירוץ...
טוב, אז נאמר שאני יצרף קובץ ויצטרכו לפתוח אותו.
יש אפשרות ללחוץ על כפתור והוא..
@yossiz אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
אפשר לשלוח HTML אבל רק HTML סטטי, בלי שום JS.
ובקובץ מצו' אפשר לשלוח קוד js, או גם לא?
@ש-ב-ח אמר בשליחת אימייל עם אפשרות להחזיר קובץ.:
בצורה כזו לא ניתן באמת לשלוח
זכור לי שבקוד לשליחת מייל בvba באקסס (cdo) יש אפשרות לשלוח תוכן html - אולי אני באמת טועה?
@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]
@ב-ל
איזו תוכנה ניסית?
ומה הייתה השגיאה?
זה נשמע שהדיסק היה מחובר למחשב כשהוא עבד לפני שבת,
אז איך המחשב נכבה בערב שבת,
בצורה תקינה או הפסקת חשמל(שעון /מעבר לגנרטור)?
@avi-rz אמר בשאלה בעניין העתקת אנשי קשר לכרטיס זיכרון:
תכניס בפלאפון 2 אנשי קשר ואז תעשה גיבוי ותוכל לפתוח את הקובץ הנ"ל באמצעות פנקס רשימות וליראות איך זה נראה.
ואז תנסה גם באנשים של ווינדוס וכדו',
(בהנחה שזה נשאר בקובץ אחד),
לפי' דברי @אדרבה עדיין תראה רק את האיש קשר הראשון ולא את כל הרשימה.
@מעמד
תכניס בפלאפון 2 אנשי קשר ואז תעשה גיבוי ותוכל לפתוח את הקובץ הנ"ל האמצעות פנקס רשימות וליראות איך זה נראה.