"1;אפשרות 1;2;אפשרות 2; וכו'
Function ObjectExists(ObjectName As String, ObjectType As Long) As Boolean
הובנת, לפחות על ידי.אני לא בטוח שהובנתי כמו שצריך
אני רוצה לכתוב בVBA פונקציה לבדוק אם טבלה מסוימת קיימת, הקוד הוא:
ואני רוצה שכשכותבים את הקוד אז בפרמטר ObjectType יהיה רשימה של אופציות (1 זה טבלה, 5 זה שאילתה וכדו').קוד:Function ObjectExists(ObjectName As String, ObjectType As Long) As Boolean
כמו בתמונה המצורפת
צפה בקובץ המצורף 523975
יש איך לעשות זאת?
תודה.
תבדוק את המאקרולא כ"כ הבנתי מה אני אמור לראות בקובץ ששלחת, הטופס ריק...
יפה מאוד, אבל גם אם זה יתאים לו, זה יעזור רק אם יש רק פרמטר אחד לפונקציה.בס"ד
@moishy
למה לא?
זה לא טוב?
קוד:Public Enum nwe1 vbAAAA = 1 vbBBBB = 2 VBGGGG = 3 End Enum Dim select1 As nwe1 select1 =
תעתיק את זה ותעשה אחרי ה= ctrl+מקש
כמו"כ אפשר להגדיר את הסוג משתנה הזה למשתנה הנמצא בתוך פונקציה
לזה הכוונה?
האם לזה הכוונה או לא?זה יעזור רק אם יש רק פרמטר אחד לפונקציה.
Public Enum nwe1
vbAAAA = 1
vbBBBB = 2
VBGGGG = 3
End Enum
Public Enum nwe2
vbHHHH = 1
vbYYYY = 2
VBOOOO = 3
End Enum
Public Enum nwe3
vbWWWW = 1
vbQQQQ = 2
VBZZZZ = 3
End Enum
Public Function A(select1 As nwe1, select2 As nwe2, select3 As nwe3) As String
End Function
Dim B As String
B = A(vbBBBB, vbYYYY, vbQQQQ)
סליחה על הבורות לא הבנתי, אם אפשר לתרגם? תודה.בשורה התחתונה לא ניתן להכניס Intellisense לפונקציות בלי להשתלט על הVBE
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
25.06
י"ט סיון
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
25.06
י"ט סיון
פתיחת מסלול
קורס פיתוח ובניית אתרים
מלגות גבוהות!
27.06
כ"א סיון
פתיחת מסלול:
התכנית המקצועית להכשרת אדריכלי פנים ומעצבים
לעבוד בתחום האדריכלות תוך שנתיים בלבד! וללמוד תכנים בלעדיים שיתנו לך יתרון ענק וביקוש גדול בשוק!
מסלול לגברים
25.07
י"ט תמוז
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
25.07
י"ט תמוז
פתיחה חגיגית:
תשכחו מכל מה שהכרתם!
גם עיצוב גרפי, גם בניית אתרים וגם בינה מלאכותית, בקורס אחד, חדשני ומפוצץ תוכן!
סילבוס חדש!
30.07
כ"ד תמוז
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
תהילים פרק לב
א לְדָוִד מַשְׂכִּיל אַשְׁרֵי נְשׂוּי פֶּשַׁע כְּסוּי חֲטָאָה:ב אַשְׁרֵי אָדָם לֹא יַחְשֹׁב יְהוָה לוֹ עָוֹן וְאֵין בְּרוּחוֹ רְמִיָּה:ג כִּי הֶחֱרַשְׁתִּי בָּלוּ עֲצָמָי בְּשַׁאֲגָתִי כָּל הַיּוֹם:ד כִּי יוֹמָם וָלַיְלָה תִּכְבַּד עָלַי יָדֶךָ נֶהְפַּךְ לְשַׁדִּי בְּחַרְבֹנֵי קַיִץ סֶלָה:ה חַטָּאתִי אוֹדִיעֲךָ וַעֲוֹנִי לֹא כִסִּיתִי אָמַרְתִּי אוֹדֶה עֲלֵי פְשָׁעַי לַיהוָה וְאַתָּה נָשָׂאתָ עֲוֹן חַטָּאתִי סֶלָה:ו עַל זֹאת יִתְפַּלֵּל כָּל חָסִיד אֵלֶיךָ לְעֵת מְצֹא רַק לְשֵׁטֶף מַיִם רַבִּים אֵלָיו לֹא יַגִּיעוּ:ז אַתָּה סֵתֶר לִי מִצַּר תִּצְּרֵנִי רָנֵּי פַלֵּט תְּסוֹבְבֵנִי סֶלָה:ח אַשְׂכִּילְךָ וְאוֹרְךָ בְּדֶרֶךְ זוּ תֵלֵךְ אִיעֲצָה עָלֶיךָ עֵינִי:ט אַל תִּהְיוּ כְּסוּס כְּפֶרֶד אֵין הָבִין בְּמֶתֶג וָרֶסֶן עֶדְיוֹ לִבְלוֹם בַּל קְרֹב אֵלֶיךָ:י רַבִּים מַכְאוֹבִים לָרָשָׁע וְהַבּוֹטֵחַ בַּיהוָה חֶסֶד יְסוֹבְבֶנּוּ:יא שִׂמְחוּ בַיהוָה וְגִילוּ צַדִּיקִים וְהַרְנִינוּ כָּל יִשְׁרֵי לֵב: