עזרה באקסל או אקסס

[גיא א123]

עזרה באקסל או אקסס

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

 

[yaron881]

אם זה באקסס אז:

בטופס יהיו שני שדות:
fromNo
toNo
וכפתור btnStart
טבלה שתאכסן את המספרים: tblSN
עם שדה: sn מסוג מספר

בארוע לאחר לחיצה של הכפתור צריך לכתוב:
dim rst as recordset
set rst=currentDB.openRecordSet("tblSN")
dim startNo as integer
startNo=ME.fromNo
while startNo<= ME.toNo
rst.AddNew
rst("sn")=startNo
rst.update
startNo=startNo+1
wend
rst.close
set rst=nothing