חיפוש בטופס רציף

[simbez43]

חיפוש בטופס רציף

שלום, איך מריצים חיפוש בטופס רציף באקסס? תודה,

 

[simbez43]

נואש

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

שבת שלום,

 

[צור כרמי]

תנסי...

select top 1 field1 from tbl where field1 = textbox.text הבעיה עם הקוד הנ"ל היא איך לגרום לו לדלג לבא אחריו, אולי פשוט תפעילי חיפוש פשוט של אקסס (יש לחצן מובנה כזה)

 

[גרי רשף]

למיטב זכרוני DoCmd.FindRecord

זו פקודת VB שמחפשת את הרשומה הראשונה העונה על תנאי מסויים (נניח: "City="Haifa). יש מספר אפשרויות כיצד לחפש וניתן להיעזר ב-Help או ברשת דוגמאות מתאימות (אינני זוכר בעל פה).

 

[lj101]

פיתרון לשאלה...

Dim rs As DAO.Recordset Dim strSearchName As String Set rs = Me.RecordsetClone strSearchName = "äåà" rs.FindFirst ("shela like " & "'*" & strSearchName & "*'") If rs.NoMatch Then MsgBox "Match Not Found For: " & strSearchName & " - Please " Else Me.Bookmark = rs.Bookmark End If rs.Close​

רק בחיפוש נוסף יש לעשות rs.findnext

 

[simbez43]

תודה יהודי

ביי