Sub addRows()
Set RS = CurrentDb.OpenRecordset("{שם הטבלה}")
For i = 1 To 22
RS.AddNew
RS!{שם העמודה} = "תלמוד בבלי " & i
RS.Update
Next
End Sub
זה עם מספרתפתח מודול חדש
ותפעיל את הקוד הזה
תחליף את הסוגרים המסולסלות {} לטקסט המתאיםקוד:Sub addRows() Set RS = CurrentDb.OpenRecordset("{שם הטבלה}") For i = 1 To 22 RS.AddNew RS!{שם העמודה} = "תלמוד בבלי " & i RS.Update Next End Sub
כמובן שאתה יכול להחליף גם לטקסט אחר או להפעיל מתוך טופס וכדו'
1 | א |
2 | ב |
3 | ג |
4 | ד |
5 | ה |
זה עד 510זה עם מספר
אתה יכול באקסס ליצור טבלה כזאת
ואז בעזרת קשרי גומלין כלומר חסר ליצור שאילתת הוספה שתוסיף
1 א 2 ב 3 ג 4 ד 5 ה
אעלה דוגמא בעוד מס' דקות
אני יודעיפה מאוד,
ישנו קוד פשוט מאוד שמתמש עם קוד האסקיי של האות כדי ליצור גימטריא, כך שאין צורך בטבלה הגדולה...
אל תחמיצו!!!
מנוי פרימיום באתר פרוג, יקפיץ את המוניטין שלך לקהל גדול שאסור לך להחמיץ!
ועכשיו בהזדמנות, מבצע פסח 10% הנחה ברכישת מנוי שנתי!
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
2.04
כ"ג אדר ב'
השקה חגיגית
חדש בפרוג
קורס חדשנות AI ובינה מלאכותית
14 שיעורים מפוצצים תוכן על כלי הAI השונים ליצירת תמונות וויז'ואל, עריכת וידאו ומושן, כתיבה ורעיונות, אפיון ועיצוב אתרים ועוד המון!
ההרשמה נפתחה!
20.03
י' אדר ב'
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
26.03
טז' אדר ב'
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
תהילים פרק קכא
א שִׁיר לַמַּעֲלוֹת אֶשָּׂא עֵינַי אֶל הֶהָרִים מֵאַיִן יָבֹא עֶזְרִי:ב עֶזְרִי מֵעִם יְהוָה עֹשֵׂה שָׁמַיִם וָאָרֶץ:ג אַל יִתֵּן לַמּוֹט רַגְלֶךָ אַל יָנוּם שֹׁמְרֶךָ:ד הִנֵּה לֹא יָנוּם וְלֹא יִישָׁן שׁוֹמֵר יִשְׂרָאֵל:ה יְהוָה שֹׁמְרֶךָ יְהוָה צִלְּךָ עַל יַד יְמִינֶךָ:ו יוֹמָם הַשֶּׁמֶשׁ לֹא יַכֶּכָּה וְיָרֵחַ בַּלָּיְלָה:ז יְהוָה יִשְׁמָרְךָ מִכָּל רָע יִשְׁמֹר אֶת נַפְשֶׁךָ:ח יְהוָה יִשְׁמָר צֵאתְךָ וּבוֹאֶךָ מֵעַתָּה וְעַד עוֹלָם: