דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. האם אפשר לעשות עיצוב מותנה לפקד באקסס?

האם אפשר לעשות עיצוב מותנה לפקד באקסס?

מתוזמן נעוץ נעול הועבר תוכנה
40 פוסטים 3 כותבים 736 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • OdedDvirO מחובר
    OdedDvirO מחובר
    OdedDvir
    השיב לאוריי ב נערך לאחרונה על ידי OdedDvir
    #21

    @אוריי אמר בהאם אפשר לעשות עיצוב מותנה לפקד באקסס?:

    א. איך להפוך לציבורית

    רשמתי לך למעלה (לשנות את המילה Private למילה Public)

    ב. האם אני אמור לשנות את זה?

    כן, תכניס שם את שם הטופס שמכיל את הפקדים, למשל:

    Forms("Shelves").SetColors()
    
    אורייא תגובה 1 תגובה אחרונה
    1
    • אורייא מנותק
      אורייא מנותק
      אוריי
      השיב לOdedDvir ב נערך לאחרונה על ידי
      #22

      @OdedDvir
      מחזיר שגיאה
      dbba57d9-e169-4e64-a432-b9f65e1d0bed-image.png

      ניתן לפנות אלי גם ב al0548446188@gmail.com
      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

      OdedDvirO תגובה 1 תגובה אחרונה
      0
      • OdedDvirO מחובר
        OdedDvirO מחובר
        OdedDvir
        השיב לאוריי ב נערך לאחרונה על ידי
        #23

        @אוריי זו שגיאה כי הקומפיילר לא מזהה את הפונקציה.
        תוכל לעקוף את השגיאה על ידי

        Forms("as").Form.SetColors()
        

        או על ידי

        Forms!as.SetColors()
        
        אורייא תגובה 1 תגובה אחרונה
        1
        • אורייא מנותק
          אורייא מנותק
          אוריי
          השיב לOdedDvir ב נערך לאחרונה על ידי
          #24

          @OdedDvir
          עדיין מחזיר שגיאה
          אולי עדיף לעבוד כמודול?

          ניתן לפנות אלי גם ב al0548446188@gmail.com
          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

          OdedDvirO תגובה 1 תגובה אחרונה
          0
          • OdedDvirO מחובר
            OdedDvirO מחובר
            OdedDvir
            השיב לאוריי ב נערך לאחרונה על ידי
            #25

            @אוריי מה השגיאה שמחזיר?

            אורייא תגובה 1 תגובה אחרונה
            1
            • אורייא מנותק
              אורייא מנותק
              אוריי
              השיב לOdedDvir ב נערך לאחרונה על ידי
              #26

              @OdedDvir
              6e4a8c21-8907-4be2-b050-69d71637f1d0-image.png

              ניתן לפנות אלי גם ב al0548446188@gmail.com
              ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

              OdedDvirO תגובה 1 תגובה אחרונה
              0
              • OdedDvirO מחובר
                OdedDvirO מחובר
                OdedDvir
                השיב לאוריי ב נערך לאחרונה על ידי
                #27

                @אוריי אההה, זו לא באמת שגיאה, אלא מוגבלות של השפה:
                תשנה את הקוד ל:

                Forms!as.SetColors
                או
                Forms("as").Form.SetColors
                

                דהיינו בלי סוגריים, או אם דווקא אתה רוצה סוגריים תוסיף את המילה Call בהתחלה

                Call Forms("as").Form.SetColors()
                
                אורייא תגובה 1 תגובה אחרונה
                1
                • אורייא מנותק
                  אורייא מנותק
                  אוריי
                  השיב לOdedDvir ב נערך לאחרונה על ידי
                  #28

                  @OdedDvir
                  משום מה לא מצליח
                  יכול להיות שאני לא כותב את זה במקום הנכון
                  אני אסביר מה יש לי ואיפה אני כותב כעת
                  לי יש שאילתה לפי מס' מדף השאילתה מוצגת בתוך טופס והטופס הזה בתוך טופס אחר
                  אני ניסתי לכתוב את זה באירוע לאחר עידכון של הטופס האמצעי (המקשר בין השאילתה לטופס המוצג)
                  ושם כתבתי כך

                  Private Sub Form_AfterUpdate()
                  Call Forms("as").Form.SetColors
                  End Sub
                  

                  וזה לא עובד.

                  ניתן לפנות אלי גם ב al0548446188@gmail.com
                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                  OdedDvirO תגובה 1 תגובה אחרונה
                  0
                  • OdedDvirO מחובר
                    OdedDvirO מחובר
                    OdedDvir
                    השיב לאוריי ב נערך לאחרונה על ידי
                    #29

                    @אוריי הקוד צריך להמצא בטופס שמציג את השאילתא על ShelfCharacteristics
                    העובדה שהטופס הנ"ל נמצא בעוד טופס אחר לא משנה.

                    י יש שאילתה לפי מס' מדף השאילתה מוצגת בתוך טופס

                    נקרא לו A

                    והטופס הזה בתוך טופס אחר

                    נקרא לו B

                    הקוד צריך להיות בטופס A

                    אורייא תגובה 1 תגובה אחרונה
                    1
                    • אורייא מנותק
                      אורייא מנותק
                      אוריי
                      השיב לOdedDvir ב נערך לאחרונה על ידי אוריי
                      #30

                      @OdedDvir
                      עכשיו זה נמצא שם (A) באירוע לאחר עידכון ולא עובד

                      ניתן לפנות אלי גם ב al0548446188@gmail.com
                      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                      OdedDvirO תגובה 1 תגובה אחרונה
                      0
                      • OdedDvirO מחובר
                        OdedDvirO מחובר
                        OdedDvir
                        השיב לאוריי ב נערך לאחרונה על ידי
                        #31

                        @אוריי האם מתבצעת בכלל קריאה לפונקציה בזמן הריצה?

                        אורייא תגובה 1 תגובה אחרונה
                        1
                        • אורייא מנותק
                          אורייא מנותק
                          אוריי
                          השיב לOdedDvir ב נערך לאחרונה על ידי
                          #32

                          @OdedDvir
                          נראה לי שלא הוא נתקע בקוד הזה

                          Call Forms("as").Form.SetColors()
                          

                          d599f4f5-e3ee-4a54-b868-c4e7c19aab87-image.png
                          ובלחיצה על F8 הוא מחזיר שגיאה כזו
                          1a53e3de-50eb-4bcd-9d63-f903ecb58fd4-image.png

                          ניתן לפנות אלי גם ב al0548446188@gmail.com
                          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                          OdedDvirO תגובה 1 תגובה אחרונה
                          0
                          • OdedDvirO מחובר
                            OdedDvirO מחובר
                            OdedDvir
                            השיב לאוריי ב נערך לאחרונה על ידי
                            #33

                            @אוריי אתה צריך להוריד את המילה Form

                            Call Forms("as").SetColors()
                            
                            אורייא תגובה 1 תגובה אחרונה
                            1
                            • אורייא מנותק
                              אורייא מנותק
                              אוריי
                              השיב לOdedDvir ב נערך לאחרונה על ידי
                              #34

                              @OdedDvir
                              עכשיו עובד
                              אבל נוצרה בעיה אחרת שאם אני מוריד את הסימון הוא לא מחזיר את העיצוב הקודם

                              ניתן לפנות אלי גם ב al0548446188@gmail.com
                              ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                              OdedDvirO תגובה 1 תגובה אחרונה
                              0
                              • OdedDvirO מחובר
                                OdedDvirO מחובר
                                OdedDvir
                                השיב לאוריי ב נערך לאחרונה על ידי
                                #35

                                @אוריי זה בגלל שמעיקרא הפונקציה סורקת רק את הפקדים שמסומנים
                                אפשר לשנות שתסרוק הכל ולעדכן את כולם, כך

                                Public Sub SetColors()
                                    Dim rs As DAO.Recordset
                                    Set rs = CurrentDb.OpenRecordset("ShelfCharacteristics", dbOpenSnapshot, dbReadOnly)
                                    rs.MoveFirst
                                    While Not rs.EOF
                                        If rs!ClosedShelf Then
                                              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                                        Else
                                              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbBlack
                                       End If
                                       rs.MoveNext
                                    Wend
                                    rs.Close
                                End Sub
                                
                                אורייא תגובה 1 תגובה אחרונה
                                1
                                • אורייא מנותק
                                  אורייא מנותק
                                  אוריי
                                  השיב לOdedDvir ב נערך לאחרונה על ידי אוריי
                                  #36

                                  @OdedDvir
                                  מחזיר כזו שגיאה
                                  1497a1dc-5c9a-46c9-9e74-1bc36bb18317-image.png
                                  33711ef0-8ca2-4ef6-90d4-e182bc9681f4-image.png

                                  ניתן לפנות אלי גם ב al0548446188@gmail.com
                                  ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                                  OdedDvirO תגובה 1 תגובה אחרונה
                                  0
                                  • OdedDvirO מחובר
                                    OdedDvirO מחובר
                                    OdedDvir
                                    השיב לאוריי ב נערך לאחרונה על ידי OdedDvir
                                    #37

                                    @אוריי זה אומר שאין לך פקד בשם "5" בטופס, אבל בטבלה יש

                                    אורייא תגובה 1 תגובה אחרונה
                                    1
                                    • אורייא מנותק
                                      אורייא מנותק
                                      אוריי
                                      השיב לOdedDvir ב נערך לאחרונה על ידי
                                      #38

                                      @OdedDvir הההא
                                      אם כך יש לי הרבה פקדים חסרים בסידרה
                                      צריך קוד שידע לדלג על הפקדים האלו וירוץ עד הסוף

                                      ניתן לפנות אלי גם ב al0548446188@gmail.com
                                      ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                                      תגובה 1 תגובה אחרונה
                                      0
                                      • OdedDvirO מחובר
                                        OdedDvirO מחובר
                                        OdedDvir
                                        כתב ב נערך לאחרונה על ידי OdedDvir
                                        #39

                                        תוכל להוסיף בין שורה 1 לשורה 2 את הקוד

                                        On Error Resume Next
                                        

                                        שזה אומר להתעלם מכל השגיאות בפונקציה.
                                        שים לב, לא הייתי משתמש בקוד כזה כלל בגרסת הפצה של תוכנה, כי באופן כללי זה דבר לא מומלץ להתעלם משגיאות בלי הבחנה, והנכון הוא לטפל בכל שגיאה לפי הקוד שלה.
                                        אבל זה כבר נושא בפני עצמו.

                                        למקרה שלך שבה הפונקציה רק משנה עיצוב - זה לא נורא...

                                        אורייא תגובה 1 תגובה אחרונה
                                        2
                                        • אורייא מנותק
                                          אורייא מנותק
                                          אוריי
                                          השיב לOdedDvir ב נערך לאחרונה על ידי
                                          #40

                                          @OdedDvir

                                          תודה רבה אין מילים להודות על כל העזרה שלך כאן בפורום
                                          👍 👍 👍 👍

                                          ניתן לפנות אלי גם ב al0548446188@gmail.com
                                          ותמיד... אבל תמיד תוכלו לשאול אותי ב :) כאן שאלות באקסל

                                          תגובה 1 תגובה אחרונה
                                          1

                                          • 1
                                          • 2
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום