שדה חיפוש בטופס אקסס

[ש.ב.ח.]

מעוניין לחפש בטופס בשדה מסויים
איך עושים את זה?

חשוב לי שבמקרה שהחיפוש לא קיים בשדה יהיה openfoem לטופס אחר

 

[דב פליי]

מעוניין לחפש בטופס בשדה מסויים
איך עושים את זה?

חשוב לי שבמקרה שהחיפוש לא קיים בשדה יהיה openfoem לטופס אחר

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

 

[ש.ב.ח.]

מצטער חיפשתי נואשות ולא מצאתי משהו שישביע את רצוני.

 

[דב פליי]

מצטער חיפשתי נואשות ולא מצאתי משהו שישביע את רצוני.

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

 

[ש.ב.ח.]

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

בקיצור: עניין של חיפושים, טפסים, וגם משהו חשוב ריענון טופס x ע"י פקד מטופס y.

כולי תקווה שהבנתני

 

[ראש לשועלים]

תיצור תיבה משולבת/תיבת טקסט, ובמאפיין "לאחר עדכון" שלה תכתוב את הקוד הבא:

    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[שדה] = " & Str(Nz(Me![פקד], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

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

 

[ראש לשועלים]

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