If InStr(DLookup("[שם השדה בטבלה]", "[שם הטבלה]"), Me.txtSample) > 1 Then
[LEFT] MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים"
End If
[/LEFT]
נכתב ע"י moishy;922496:האם שינית את txtSample לשם של תיבת הטקסט שבו מוכנסת הערך הנבדק?
נכתב ע"י חבלזון;922512:לדעתי הפונקציה היא Dcount ולא instr
ולכןקוד:If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]"), Me.txtSample) > 1 Then MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים" End If
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]
נכתב ע"י חבלזון;922814:לא צריך Dlookup.
אבל היתה לי טעות בקוד אז הנה הוא מתוקן
(השינויים- המספר שונה ל-0, במאפיין הוספתי text כי זה התוכן שהוקלד (עוד לפני שנשמר בשדה)
קוד:If Dcount ("[שם השדה בטבלה]", "[שם הטבלה]", Me.txtSample[B].Text[/B]) > [B]0[/B] Then MsgBox "הערך שהוזן כבר קיים במערכת!", vbMsgBoxRight + vbMsgBoxRtlReading + vbInformation, "מידע קיים" End If
נכתב ע"י מיכל123;922909:הוא מתייחס למספר השדות הקיימים בלי לסנן את השדה הנוכחי.
נכתב ע"י moishy;922913:האם האפשרויות שהצעתי עבדו?
נכתב ע"י מיכל123;923183:לא.
התחלתי לחשוב שזה בגלל שהשם של השדה בטבלה והשם שלו בטופס זה אותו שם.
אני יבדוק את זה יותר לעומק. ואני יעדכן.
תודה רבה רבה רבה רבה אין מילים.
IF DCount("*", "TALMID", "[ID] = '" & MyId & "'") >0
נכתב ע"י חבלזון;923192:מנסיון- זו לא הסיבה [השם הדומה]. מאחר והוספת "me" הוא מתייחס רק לטופס.
צריך לשנות את הפונקציה כך:
יש בה שלשה ארגומנטים, 1- תנאי איזה מהתוצאות לספור, ולכן נותנים לו * כי אין לנו בעצם תנאי.
2- איזו טבלה לבדוק, נותנים לו את שם הטבלה
3- הטקסט לחפש, בצורת תנאי, כלומר השדה פלוני שווה ל-כאן מפנים לאובייקט תיבת הטקסט.
הנה דוגמה מתוך תוכנה פועלת שלי: [משווה תוכן מתיבת טקסט MyId לטבלת Talmid]
קוד:IF DCount("*", "TALMID", "[ID] = '" & MyId & "'") >0
את הבדיקה הכנסתי באירוע של befor update ולכן אם אין עוד כזה תוכן התוצאה אפס, במקרה שהבדיקה היא לאחר העדכון צריך לבדוק אם אין יותר מפעם אחת ולא אפס.
בהצלחה.
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
הנחת ענק!
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
24.06
י"ח סיוון
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
7.05
כ"ט ניסן
#רקבפרוג
הרצאה מרתקת:
מלחמה מבעד לעדשה
עם אילן לורנצי
שיתוף מטלטל ומיוחד על צילומים בזמן מלחמה ותיעודים יותאי דופן זווית יוצאת דופן מתוך עזה והעוטף ועד הצפון
לתלמידים ובוגרים בלבד!
תהילים פרק קלא
א שִׁיר הַמַּעֲלוֹת לְדָוִד יְהוָה לֹא גָבַהּ לִבִּי וְלֹא רָמוּ עֵינַי וְלֹא הִלַּכְתִּי בִּגְדֹלוֹת וּבְנִפְלָאוֹת מִמֶּנִּי:ב אִם לֹא שִׁוִּיתִי וְדוֹמַמְתִּי נַפְשִׁי כְּגָמֻל עֲלֵי אִמּוֹ כַּגָּמֻל עָלַי נַפְשִׁי:ג יַחֵל יִשְׂרָאֵל אֶל יְהוָה מֵעַתָּה וְעַד עוֹלָם: