קצת סדר...
משתמש פעיל
כלומר אני רוצה לחסום פרטים כמו לפתוח כל מיני טפסים רק עם סיסמה
עדיף דרך מאקרו אם לא דרך קוד
עדיף דרך מאקרו אם לא דרך קוד
Dim strPas As String
strPas = InputBox("הקש סיסמה")
If StrPtr(strPas) = 0 Then
MsgBox "סיסמה שגויה"
DoCmd.Close acForm, "myform"
ElseIf strPas = "" Then
MsgBox "סיסמה שגויה"
DoCmd.Close acForm, "myform"
ElseIf strPas <> 123 Then
MsgBox "סיסמה שגויה"
DoCmd.Close acForm, "myform"
End If
נכתב ע"י moishy;1939394:זה לא עובד לך?
DoCmd.OpenForm "mySecretForm"
נכתב ע"י a26955;1939341:ואפשר להדביק את זה באירוע בעת טעינה של הטופס או הדוח
קוד:Dim strPas As String strPas = InputBox("הקש סיסמה") If StrPtr(strPas) = 0 Then MsgBox "סיסמה שגויה" DoCmd.Close acForm, "myform" ElseIf strPas = "" Then MsgBox "סיסמה שגויה" DoCmd.Close acForm, "myform" ElseIf strPas <> 123 Then MsgBox "סיסמה שגויה" DoCmd.Close acForm, "myform" End If
(למבינים: אני לא יודע למה הוא לא נתן להיכנס בשורה אחת עם or אולי לכם פתרונים...)
נכתב ע"י שמואלעוויץ;1940001:יפה מאוד אבל אחרי שהוא כותב לי קוד שגוי הוא פותח לי את הטופס
נכתב ע"י moishy;1940053:ברור, איך לא שמתי לב, בזה לא אמור להיות בעיה:
קוד:Dim strPas As String strPas = InputBox("הקש סיסמה") If Len(strPas) = 0 Or strPas = "" Or strPas <> "123" Then MsgBox "סיסמה שגויה" DoCmd.Close acForm, "myform" End If
עם הקוד המקורי שלך, ניסית להכניס בתיבת טקסט סיסמה שונה מזו המוגדרת בקוד?נכתב ע"י a26955;1940330:אוהה. יפה.
יש הסבר למה כשהוא בשורה נפרדת לא צריך לתחום אותו במרכאות? רק אם יש...
נכתב ע"י moishy;1940572:עם הקוד המקורי שלך, ניסית להכניס בתיבת טקסט סיסמה שונה מזו המוגדרת בקוד?
נכתב ע"י moishy;1940053:ברור, איך לא שמתי לב, בזה לא אמור להיות בעיה:
קוד:Dim strPas As String strPas = InputBox("הקש סיסמה") If Len(strPas) = 0 Or strPas = "" Or strPas <> "123" Then MsgBox "סיסמה שגויה" DoCmd.Close acForm, "myform" End If
נכתב ע"י חייםיודלביץ;1946202:לגבי העיצוב שלא יראה מספר אלא כוכבית אפשר להשתמש מה שידוע לי במסכת קלט או תבנית עיצוב
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
הנחת ענק!
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
24.06
י"ח סיוון
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
21.05
י"ג אייר
#רקבפרוג
הרצאה מרתקת:
דיגיטל בגובה העיניים
עם מנדי נאבול
כל האפשרויות הטמונות בעולם הדיגיטל שיגרמו לך להרוויח יותר!
לתלמידים ובוגרים בלבד!
תהילים פרק קלו
א הוֹדוּ לַיהוָה כִּי טוֹב כִּי לְעוֹלָם חַסְדּוֹ:ב הוֹדוּ לֵאלֹהֵי הָאֱלֹהִים כִּי לְעוֹלָם חַסְדּוֹ:ג הוֹדוּ לַאֲדֹנֵי הָאֲדֹנִים כִּי לְעוֹלָם חַסְדּוֹ:ד לְעֹשֵׂה נִפְלָאוֹת גְּדֹלוֹת לְבַדּוֹ כִּי לְעוֹלָם חַסְדּוֹ:ה לְעֹשֵׂה הַשָּׁמַיִם בִּתְבוּנָה כִּי לְעוֹלָם חַסְדּוֹ:ו לְרֹקַע הָאָרֶץ עַל הַמָּיִם כִּי לְעוֹלָם חַסְדּוֹ:ז לְעֹשֵׂה אוֹרִים גְּדֹלִים כִּי לְעוֹלָם חַסְדּוֹ:ח אֶת הַשֶּׁמֶשׁ לְמֶמְשֶׁלֶת בַּיּוֹם כִּי לְעוֹלָם חַסְדּוֹ:ט אֶת הַיָּרֵחַ וְכוֹכָבִים לְמֶמְשְׁלוֹת בַּלָּיְלָה כִּי לְעוֹלָם חַסְדּוֹ:י לְמַכֵּה מִצְרַיִם בִּבְכוֹרֵיהֶם כִּי לְעוֹלָם חַסְדּוֹ:יא וַיּוֹצֵא יִשְׂרָאֵל מִתּוֹכָם כִּי לְעוֹלָם חַסְדּוֹ:יב בְּיָד חֲזָקָה וּבִזְרוֹעַ נְטוּיָה כִּי לְעוֹלָם חַסְדּוֹ:יג לְגֹזֵר יַם סוּף לִגְזָרִים כִּי לְעוֹלָם חַסְדּוֹ:יד וְהֶעֱבִיר יִשְׂרָאֵל בְּתוֹכוֹ כִּי לְעוֹלָם חַסְדּוֹ:טו וְנִעֵר פַּרְעֹה וְחֵילוֹ בְיַם סוּף כִּי לְעוֹלָם חַסְדּוֹ:טז לְמוֹלִיךְ עַמּוֹ בַּמִּדְבָּר כִּי לְעוֹלָם חַסְדּוֹ:יז לְמַכֵּה מְלָכִים גְּדֹלִים כִּי לְעוֹלָם חַסְדּוֹ:יח וַיַּהֲרֹג מְלָכִים אַדִּירִים כִּי לְעוֹלָם חַסְדּוֹ:יט לְסִיחוֹן מֶלֶךְ הָאֱמֹרִי כִּי לְעוֹלָם חַסְדּוֹ:כ וּלְעוֹג מֶלֶךְ הַבָּשָׁן כִּי לְעוֹלָם חַסְדּוֹ:כא וְנָתַן אַרְצָם לְנַחֲלָה כִּי לְעוֹלָם חַסְדּוֹ:כב נַחֲלָה לְיִשְׂרָאֵל עַבְדּוֹ כִּי לְעוֹלָם חַסְדּוֹ:כג שֶׁבְּשִׁפְלֵנוּ זָכַר לָנוּ כִּי לְעוֹלָם חַסְדּוֹ:כד וַיִּפְרְקֵנוּ מִצָּרֵינוּ כִּי לְעוֹלָם חַסְדּוֹ:כה נֹתֵן לֶחֶם לְכָל בָּשָׂר כִּי לְעוֹלָם חַסְדּוֹ:כו הוֹדוּ לְאֵל הַשָּׁמָיִם כִּי לְעוֹלָם חַסְדּוֹ: