אופיס 365 עזרה ב VB אקסס

[אריה123]

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

תודה מראש לשמחים לעזור.

 

[אריה123]

עם 1. הסתדרתי.

אשמח לקבל עזרה לסעיף 2

 

[moishy]

באמצעות DLookup.

 

[אריה123]

אפשר פירוט ?

 

[moishy]

אני הייתי עושה משהו כזה (לא בדקתי אם זה עובד, אבל מסברא נראה שכן)

If InStr(DLookup("[שם השדה בטבלה]", "[שם הטבלה]"), Me.txtSample) > 1 Then
[LEFT]  MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If
[/LEFT]

 

[אריה123]

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

 

[moishy]

האם שינית את txtSample לשם של תיבת הטקסט שבו מוכנסת הערך הנבדק?

 

[חבלזון]

פונקציה אחרת

לדעתי הפונקציה היא Dcount ולא instr

ולכן

If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]"), Me.txtSample) > 1 Then
  MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If

 

[אריה123]

האם שינית את txtSample לשם של תיבת הטקסט שבו מוכנסת הערך הנבדק?

הגזמת....

בודאי.

 

[אריה123]

לדעתי הפונקציה היא Dcount ולא instr

ולכן

If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]"), Me.txtSample) > 1 Then
  MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If

לא עובד...
יכול להיות שחסר כאן DLOOKUP ? בכל מקרה, הוספתי את הדלוקאפ וזה לא עובד.
הוא לוקח את הערך של השדה הנוכחי ולא את הערך מהטבלה.

 

[חבלזון]

תיקון

לא צריך Dlookup.

אבל היתה לי טעות בקוד אז הנה הוא מתוקן
(השינויים- המספר שונה ל-0, במאפיין הוספתי text כי זה התוכן שהוקלד (עוד לפני שנשמר בשדה)

If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]", Me.txtSample[B].Text[/B]) > [B]0[/B] Then
  MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If

 

[נדמ]

הקוד

[LEFT]if dlookup("filed", "table", "[filed] = '" & erech & "'") =  erech  then
msgbox "הערך קיים כבר"
end if[/LEFT]

filed - שם השדה (שימי לב צריך פעמיים)
table - שם הטבלה
erech - הערך שמחפשים בטבלה.
אם מדובר בערך טקסט צריך להקפיד על ' בתוך גרשיים כמו בדוגמא. אם מדובר במספר צריך להסיר את ה-'.

 

[moishy]

תנסה אחד מהאפשרויות הבאות:

If DCount("[שם השדה בטבלה]", "[שם הטבלה]", "'" & Me.txtSample & "'") > 1 Then

או

If Not IsNull(DLookup("[שם השדה בטבלה]", "[שם הטבלה]", "'" & Me.txtSample & "'")) Then

 

[אריה123]

לא צריך Dlookup.

אבל היתה לי טעות בקוד אז הנה הוא מתוקן
(השינויים- המספר שונה ל-0, במאפיין הוספתי text כי זה התוכן שהוקלד (עוד לפני שנשמר בשדה)

If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]", Me.txtSample[B].Text[/B]) > [B]0[/B] Then
  MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If

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

 

[moishy]

האם האפשרויות שהצעתי עבדו?

 

[חבלזון]

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

תשימי את הקוד באירוע "befor update"

 

[אריה123]

האם האפשרויות שהצעתי עבדו?

לא.

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

תודה רבה רבה רבה רבה אין מילים.

 

[חבלזון]

לא.

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

תודה רבה רבה רבה רבה אין מילים.

מנסיון- זו לא הסיבה [השם הדומה]. מאחר והוספת "me" הוא מתייחס רק לטופס.

צריך לשנות את הפונקציה כך:

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

הנה דוגמה מתוך תוכנה פועלת שלי: [משווה תוכן מתיבת טקסט MyId לטבלת Talmid]

IF DCount("*", "TALMID", "[ID] = '" & MyId & "'") >0

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

בהצלחה.

 

[אריה123]

מנסיון- זו לא הסיבה [השם הדומה]. מאחר והוספת "me" הוא מתייחס רק לטופס.

צריך לשנות את הפונקציה כך:

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

הנה דוגמה מתוך תוכנה פועלת שלי: [משווה תוכן מתיבת טקסט MyId לטבלת Talmid]

IF DCount("*", "TALMID", "[ID] = '" & MyId & "'") >0

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

בהצלחה.

ברוך השם זה עובד.
תודה למוישי ותודה לחבלזון.

ותודה גם ל"נדמ", אבל משום מה הקוד שלך לא עבד.