לולאה בתוך RecordSet

ארי4791

משתמש צעיר
איך עושים לולאה שתעבור על כל השדות שנמצאו בRecordSet?
אני רוצה שהיא תבדוק אם יש בהם ערך מסוים, ואח"כ תמחוק אותם.
תודה רבה
 

לוי א

משתמש צעיר
או לחילופין
קוד:
Rs.MoveFirst
for a = 1 to rs.recordcount
If Rs!שדה = תנאי Then Rs.Delete
Rs.MoveNext
next a
 
נערך לאחרונה ב:

FullTime

משתמש מקצוען
אם כבר
rs.recordcount
במקום dcount

EOF עובר על כל הרשומות,
הסימון not לפניו, מורה על אי מציאת נתון = רשומה.
 

לוי א

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

FullTime

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

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

אתה הבאת צורת מעבר רשומות עם for ו dcount
וכנ"ל.
 

אקסס

משתמש רשום
קוד:
Sub testSub()

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
   
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tab1")
   
    If rst.BOF Then
        Exit Sub
    End If
   
    rst.MoveFirst

    Do Until rst.EOF
        If rst!filde1 = 1 Then
            rst.Delete
        End If
        rst.MoveNext
    Loop
   
    rst.Close: Set rst = Nothing
    dbs.Close: Set dbs = Nothing

End Sub
 

ארי4791

משתמש צעיר
האמת היא שלא הבנתי הרבה מכל הנ"ל
אני יסביר ברור מה אני מבקש

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

קבצים מצורפים

  • עזרה.accdb.txt
    7.8 MB · צפיות: 15

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק קיט א'

א אַשְׁרֵי תְמִימֵי דָרֶךְ הַהֹלְכִים בְּתוֹרַת יְהוָה:ב אַשְׁרֵי נֹצְרֵי עֵדֹתָיו בְּכָל לֵב יִדְרְשׁוּהוּ:ג אַף לֹא פָעֲלוּ עַוְלָה בִּדְרָכָיו הָלָכוּ:ד אַתָּה צִוִּיתָה פִקֻּדֶיךָ לִשְׁמֹר מְאֹד:ה אַחֲלַי יִכֹּנוּ דְרָכָי לִשְׁמֹר חֻקֶּיךָ:ו אָז לֹא אֵבוֹשׁ בְּהַבִּיטִי אֶל כָּל מִצְוֹתֶיךָ:ז אוֹדְךָ בְּיֹשֶׁר לֵבָב בְּלָמְדִי מִשְׁפְּטֵי צִדְקֶךָ:ח אֶת חֻקֶּיךָ אֶשְׁמֹר אַל תַּעַזְבֵנִי עַד מְאֹד:
נקרא  34  פעמים

לוח מודעות

למעלה