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

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

זה הקוד שאני משתמש בו בינתיים:

Private Sub פתיחת_סורק_Click()
'DoCmd.RunSQL "יצירתטבלתברקוד"
Dim Path As String
Path = "C:\Program Files\שם הסורק.exe"
Shell Path
Dim ScanValue As String
ScanValue = InputBox("אנא הקלד את הערך שסרק הסורק:")

'בדיקת תקינות הערך שסרק הסורק
If IsNumeric(ScanValue) Then
    'בדיקת קיומו של הערך בטבלה
    Dim RecordExists As Boolean
    RecordExists = Not IsNull(DLookup("ID", "מחברקודספר", "ID = " & ScanValue))

    If RecordExists Then
        DoCmd.OpenForm "מחברקודספרכטופס", acFormDS, , "ID = " & ScanValue
    Else
        MsgBox "ערך לא קיים במאגר הנתונים, אנא נסה שוב"
    End If
Else
    MsgBox "ערך לא תקין, אנא נסה שוב"
End If

End Sub

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

https://tchumim.com/topic/2784/איך-כותבים-בvba-קוד-לשליחת-אימייל-ישירות-מהאקסס

https://tchumim.com/topic/1269/תוכנה-לשליחת-אימיילים

אודה מאוד למי שיוכל לעדכנני האם יש שם פיתרון ומהו

שלום וברכה,
אני משתמש בתוכנת אקסס לקיטלוג.

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

יש אפשרות כזו?

תודה רבה

@מוטי-ברנד נראה לי שבינתיים האפליקציה רק באנגלית. לא הצלחתי להפוך אותה לעברית

@בערל יש אפשרות להפוך את האפליקציה לאנדרואיד לעברית?
אגב, האפליקציה של גוגל צ'אט הרבה יותר מהירה מהאפליקציה של הנגאוטס.

@dovid העתקתי את מה שכתבת לתוך שאילתה בתצוגה של SQL וזהו...

@dovid לא עובד. (שגיאת תחביר אופרטור חסר בביטוי השאילתה).
המילה מניפולציה באמצע? ככה?

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

ב. תבודד את המספר מהשדה המקורי אל שדה נפרד X על ידי מניפולציה על המחרוזת.
ג. קשר את הטבלאות על ידי השדות X-OldValue

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

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

@איש-פלוני תוכל להשתמש בשאילתת עדכון ולשמור את הערך הקיים, פשוט תבצע Replace על הערך הקיים, כלומר למשל על השדה SomeField תעדכן ל:

Replace([SomeField],'1','א')

אני יכול להגדיר לו כמה נתונים להחלפה (דהיינו, Replace([SomeField],'1','א'), ו Replace([SomeField],'2','ב')) ? כשניסיתי לעשות שאילתה שבכל אחד מהשדות אותה פונקציה עם נתונים שונים זה מעלה לי הודעת שגיאה על כפילות ביעד הפלט.
תודה רבה!

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

או בשימוש עם טבלת עזר MyTable כמו שציין @avi-rz, ותשלוף את הערכים משם:
Replace([SomeField], MyTable.OldValue, MyTable.NewValue)

יש אפשרות להגדיר לו לפי איזה סדר הוא יחליף?
אחרת חוזרת הבעיה שכתבתי:

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

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

@dovid
יש לי טבלה בשם kategoryot בה יש IDkategoria (קוד קטגוריה), ו- name
ככה:
יש לי טבלה נפרדת בשם katalogM שבה יוצא בשדה kategHeara ככה:

אני רוצה שיחליף לי רק את המספרים, כל מספר לפי הקטגוריה השייכת אליו.
תודה רבה!

@avi-rz כי עדכון יחליף לי את כל מה שבשדה. אני רוצה שאם בשדה כתוב 1 XXX זה יהפוך לא XXX ולא רק לא.

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

1. שהוא יעבוד דווקא על שדה מסויים בטבלה מסויימת.
2. שהוא לא יעבוד אוטומטית אלא שאני אצטרך להריץ אותו. (עדיף שיהיה לי לחצן באיזשהו טופס, אבל אפשר גם דרך עורך הVBA)
3. שהוא יחליף לפי סדר מסויים. (דהיינו אני רוצה שאת סדרת המספרים 1-20 הוא יחליף כל מספר לאות, 1-א, 2-ב וכן הלאה. אם הוא יתחיל מ-1 הוא יחליף לי את 11 ל-אא, לכן אני צריך שהוא יתחיל מ20 וירד כלפי מטה).
4. אם יש אפשרות (לא חובה): שאת הנתונים מה להחליף הוא יקבל מטבלה אחרת בקובץ. דהיינו, אם יש לי טבלה כזו: שהקוד ידע שאת מה שבשדה הראשון להחליף במה שבשדה השני.

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

בתאריך של ההודעה לתורם, האם יש אפשרות שהתאריך יהיה תאריך עברי?

@clickone אמר בסינון באקסס - שיציג את כל הנתונים חוץ מאחד:

בגדול אפשר גם ככה:
not in (select name from table)

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

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

וגם לא נותן לי לפתוח את עורך הVBA
יש למישהו מושג מה הבעיה ומה הפיתרון?
תודה רבה

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

@mgm-ivr

@בערל בתא המחושב של סה"כ: =SUM(B:B)
בתא המחושב שלוקח ממנו את הנתונים: ='א'!D1

עדכון:
התחיל להתרענן. אין לי מושג מה הייתה הבעיה