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

הנה 3 אפשרויות:

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

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

3. אתה יכול לפתוח Module ולהגדיר שם משתנה כך:

קוד:

 Public yourName As Integer

כמובן שאתה צריך לשנות את yourName לשם שאתה רוצה ואת Integer לסוג משתנה שאתה רוצה.

ברור לי הנושא של המודול,

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

אוקי, הנה דוגמא:
https://2007-uploaded.fresh.co.il/2...27/99685607.rar

אחשיו יש שם 2 תבלאות ותופס. בקוד של התופס יש ערך מסויים. הוא קרגע A. מה שהקוד עושה, זה הוא בודק אם בתבלא 1 יש בשדה AAA את הערך הזה. אם יש, הוא בודק אם בתבלא 2 באותו מ"ס רשומה, יש את אותו ערך. אם כן הוא זורק הודאה: "היתחברתה בהצלחה" אחרת הוא זורק "תעות"

תיסתכל בקוד ותיראה איך הוא בנוי.

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

נ.ב:
צירפתי גם מודול אם תוגמאות קוד.

תודה רבה

זה נחמד מאוד, ובדיוק מה שחיפשתי (אני חושב, עוד לא ניסיתי לחבר את זה לקוד שלי)
אני השתמשתי עד עכשיו בפקודה : DoCmd.FindRecord
DoCmd.FindRecord Customer, acEntire, True, acSearchAll, True, acCurrent, True
זה עובד יפה כל עוד אתה עובד על שאילתה אחת אבל שרוצים להתקדם, זה מסבך את העיניינים.
נראה לי ש:
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl1", dbOpenDynaset
יעזור לי יותר.
אעדכן אותך כשאצליח !!!
שוב תודה

האם יש לך מושג מדוע הקוד :

Set rst = CurrentDb.OpenRecordset("SELECT * FROM tbl1", dbOpenDynaset)

נותן לי במסד נתונים שלי שגיאה :
type miatach
ובשלך לא

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

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

האמת, נפטרתי מהבעיה בדרך פרמיטבית קצת.

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

שוב תודה.

אתה יכול אם שאילתת LIKE:

קוד:

"SELECT * FROM tblName WHERE colName_1 LIKE '%"& txtTOsearch &"%' OR  colName_2 LIKE '%"& txtTOsearch &"%'"  

שוב תודה

אני אנסה את זה בתוך כמה ימים.