אשפי VB - מבקש סיוע...

פוזנא

New member
אשפי VB - מבקש סיוע...

יש לי בעיה. יש לי טופס ובו שדה טקסט. השדה לא מקושר לשום מקום וגם הטופס, ואני מעדיף שזה ישאר ככה. אני מעוניין שמישהו יקליד בשדה הזה תעודת זהות (סוג טקסט) וילחץ על כפתור OK. אם תעודת הזהות כבר קיימת בטבלה בשם :DETAILS בעמודת מפתח בשם: ID, אז שזה יפעיל לי מקרו בשם MACRO1, ואם היא לא קיימת שזה יפעיל לי מאקרו בשם MACRO2. בדרך כלל אני מצליח לעשות דברים כאלו ללא VB (כמובן בדרך ארוכה ומסובכת יותר) אבל הפעם הרמתי ידיים. האיכה?
 
קבל....

באירוע של לחיצה על כפתו OK:
If DlookUp("[ID]","DETAILS","[ID] = ´" & Me![TxtID] & "´") = Me![TxtID] Then DoCmd.RunMacro(MACRO1) Else DoCmd.RunMacro(MACRO2) End If​
הסברים: שורת ההתניה משווה בין הערך בטבלה לערך בטופס, כשערך הטופס מהווה גם קריטריון.
 

פוזנא

New member
תודה תודה תודה !!!!!

ידעתי שזה איכשהו קשור ל DLOOKUP... לאט לאט אבל אני קולט...
 
למעלה