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 ה
אעלה דוגמא בעוד מס' דקות
אני יודעיפה מאוד,
ישנו קוד פשוט מאוד שמתמש עם קוד האסקיי של האות כדי ליצור גימטריא, כך שאין צורך בטבלה הגדולה...
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
קורס משולב בינה מלאכותית
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
18.06
י"ב סיוון
#רקבפרוג
הרצאה מרתקת:
פוטושופ לצלמים
עם אופק עוגן
כלים מתקדמים, טכניקות חדשות ובינה מלאכותית בפוטושופ לצלמים בעידן 2024
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק טו
א מִזְמוֹר לְדָוִד יְהוָֹה מִי יָגוּר בְּאָהֳלֶךָ מִי יִשְׁכֹּן בְּהַר קָדְשֶׁךָ:ב הוֹלֵךְ תָּמִים וּפֹעֵל צֶדֶק וְדֹבֵר אֱמֶת בִּלְבָבוֹ:ג לֹא רָגַל עַל לְשֹׁנוֹ לֹא עָשָׂה לְרֵעֵהוּ רָעָה וְחֶרְפָּה לֹא נָשָׂא עַל קְרֹבוֹ:ד נִבְזֶה בְּעֵינָיו נִמְאָס וְאֶת יִרְאֵי יְהוָה יְכַבֵּד נִשְׁבַּע לְהָרַע וְלֹא יָמִר:ה כַּסְפּוֹ לֹא נָתַן בְּנֶשֶׁךְ וְשֹׁחַד עַל נָקִי לֹא לָקָח עֹשֵׂה אֵלֶּה לֹא יִמּוֹט לְעוֹלָם: