• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

גישה לרשומה ב'תיבת רשימה' באקסס

מתוזמן נעוץ נעול הועבר ארכיון code613m
6 פוסטים 3 כותבים 398 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • מ מנותק
    מ מנותק
    מלא 0
    כתב ב נערך לאחרונה על ידי
    #1

    אני רוצה לעשות פקד חיפוש שיגש לרשומה בתיבת רשימה

    בקובץ הרצו"ב, כמו שהוא מחפש בטופס למעלה והוא ניגש לרשומה,
    שייגש לרשומה שבתיבת הרשימה. - לא לסנן את הרשימה.

    רוב תודות

    מסד.accdb

    פורסם במקור בפורום CODE613 ב14/05/2014 14:08 (+03:00)

    תגובה 1 תגובה אחרונה
    0
  • א מנותק
    א מנותק
    ארכיטקט
    כתב ב נערך לאחרונה על ידי
    #2

    תדביק את הקוד הבא בתוך הטופס ותקשר לפרוצדורת אירוע לאחר עדכון

    Private Sub משולבת16_AfterUpdate()
    Dim i
    With רשימה14
    .Requery
    For i = 1 To .ListCount - 1
       .Selected(i) = (.Column(0, i) = משולבת16)
    Next i
    End With
    End Sub
    

    פעם אחרונה שאתה קורא לפקדים "רשימה 14" איך אתה היית מרגיש אם היו קוראים לך רשימה 14?????????????? :?: :?: :?:

    פורסם במקור בפורום CODE613 ב14/05/2014 15:12 (+03:00)

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

    תגובה 1 תגובה אחרונה
    3
  • מ מנותק
    מ מנותק
    מלא 0
    כתב ב נערך לאחרונה על ידי
    #3

    תודה רבה, מעולה.

    :lol: :lol: פשוט לא היה לי עצבים להחליף את הכל לשמות 'נורמליים' בשביל הדוגמא בלבד, ובברירת מחדל הם עבריים....

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

    פורסם במקור בפורום CODE613 ב14/05/2014 15:31 (+03:00)

    תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    כתב ב נערך לאחרונה על ידי
    #4

    @ארכיטקט

    תדביק את הקוד הבא בתוך הטופס ותקשר לפרוצדורת אירוע לאחר עדכון

    Private Sub משולבת16_AfterUpdate()
    Dim i
    With רשימה14
    .Requery
    For i = 1 To .ListCount - 1
       .Selected(i) = (.Column(0, i) = משולבת16)
    Next i
    End With
    End Sub
    

    פעם אחרונה שאתה קורא לפקדים "רשימה 14" איך אתה היית מרגיש אם היו קוראים לך רשימה 14?????????????? :?: :?: :?:

    אם תיבת הרשימה אמורה לבחור רשומה אחת בלבד בכל פעם, הייתי הולך על הקוד הבא:

    Me!רשימה14 = Me!משולבת12
    

    @מלא

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

    אתה צריך לחשוב בכיוון של:

    Dim rs As Recordset
    Set rs = Me!רשימה14.Recordset.Clone
    rs.FindFirst "lastname='*" & Nz(Me!txtfind, "") & "*'"
    If rs.Bookmark Then Me!רשימה14.Recordset.Bookmark = rs.Bookmark
    

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

    פורסם במקור בפורום CODE613 ב15/05/2014 01:49 (+03:00)

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    0
  • א מנותק
    א מנותק
    ארכיטקט
    כתב ב נערך לאחרונה על ידי
    #5

    תציין בבקשה V שהבעיה נפתרה.

    פורסם במקור בפורום CODE613 ב15/05/2014 13:40 (+03:00)

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

    תגובה 1 תגובה אחרונה
    1
  • מ מנותק
    מ מנותק
    מלא 0
    כתב ב נערך לאחרונה על ידי
    #6

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

    תודה רבה לחברים הנהדרים העוזרים בעוז ובתעצומות... + נכונות, כדוגמת ההודעה האחרונה.. :roll:

    פורסם במקור בפורום CODE613 ב15/05/2014 22:43 (+03:00)

    תגובה 1 תגובה אחרונה
    0

  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.
  • פוסט ראשון
    פוסט אחרון
0
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
  • התחברות

  • אין לך חשבון עדיין? הרשמה

  • התחברו או הירשמו כדי לחפש.