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

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

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

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

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

    @אוריי אתה צריך לקרוא לפונקציה SetColors() אחרי כל עדכון של הטבלה.
    ראשית תשנה את הפונקציה לציבורית, כדי שתוכל לקרוא לה מטופס אחר:

    Public Sub SetColors()
    .....
    

    אחר כך תוסיף לטופס שבו נמצאת הטבלה את הארוע After_Apdate() ושם תקרא לפונקציה של הטופס:

    Private Sub After_Update()
        Forms("<form-name>").SetColors()
    End Sub
    
    אורייא מנותק
    אורייא מנותק
    אוריי
    כתב ב נערך לאחרונה על ידי
    #20

    @OdedDvir
    סליחה אבל לא הבנתי מה לעשות בדיוק
    א. איך להפוך לציבורית
    ב. האם אני אמור לשנות את זה?

    ("<form-name>")
    

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

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • אורייא אוריי

      @OdedDvir
      סליחה אבל לא הבנתי מה לעשות בדיוק
      א. איך להפוך לציבורית
      ב. האם אני אמור לשנות את זה?

      ("<form-name>")
      
      OdedDvirO מנותק
      OdedDvirO מנותק
      OdedDvir
      כתב ב נערך לאחרונה על ידי OdedDvir
      #21

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

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

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

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

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

      Forms("Shelves").SetColors()
      
      אורייא תגובה 1 תגובה אחרונה
      1
      • OdedDvirO OdedDvir

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

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

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

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

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

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

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

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

        OdedDvirO תגובה 1 תגובה אחרונה
        0
        • אורייא אוריי

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

          OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          כתב ב נערך לאחרונה על ידי
          #23

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

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

          או על ידי

          Forms!as.SetColors()
          
          אורייא תגובה 1 תגובה אחרונה
          1
          • OdedDvirO OdedDvir

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

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

            או על ידי

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

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

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

            OdedDvirO תגובה 1 תגובה אחרונה
            0
            • אורייא אוריי

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

              OdedDvirO מנותק
              OdedDvirO מנותק
              OdedDvir
              כתב ב נערך לאחרונה על ידי
              #25

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

              אורייא תגובה 1 תגובה אחרונה
              1
              • OdedDvirO OdedDvir

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

                אורייא מנותק
                אורייא מנותק
                אוריי
                כתב ב נערך לאחרונה על ידי
                #26

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

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

                OdedDvirO תגובה 1 תגובה אחרונה
                0
                • אורייא אוריי

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

                  OdedDvirO מנותק
                  OdedDvirO מנותק
                  OdedDvir
                  כתב ב נערך לאחרונה על ידי
                  #27

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

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

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

                  Call Forms("as").Form.SetColors()
                  
                  אורייא תגובה 1 תגובה אחרונה
                  1
                  • OdedDvirO OdedDvir

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

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

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

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

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

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

                    וזה לא עובד.

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

                    OdedDvirO תגובה 1 תגובה אחרונה
                    0
                    • אורייא אוריי

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

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

                      וזה לא עובד.

                      OdedDvirO מנותק
                      OdedDvirO מנותק
                      OdedDvir
                      כתב ב נערך לאחרונה על ידי
                      #29

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

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

                      נקרא לו A

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

                      נקרא לו B

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

                      אורייא תגובה 1 תגובה אחרונה
                      1
                      • OdedDvirO OdedDvir

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

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

                        נקרא לו A

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

                        נקרא לו B

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

                        אורייא מנותק
                        אורייא מנותק
                        אוריי
                        כתב ב נערך לאחרונה על ידי אוריי
                        #30

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

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

                        OdedDvirO תגובה 1 תגובה אחרונה
                        0
                        • אורייא אוריי

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

                          OdedDvirO מנותק
                          OdedDvirO מנותק
                          OdedDvir
                          כתב ב נערך לאחרונה על ידי
                          #31

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

                          אורייא תגובה 1 תגובה אחרונה
                          1
                          • OdedDvirO 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
                            • אורייא אוריי

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

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

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

                              OdedDvirO מנותק
                              OdedDvirO מנותק
                              OdedDvir
                              כתב ב נערך לאחרונה על ידי
                              #33

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

                              Call Forms("as").SetColors()
                              
                              אורייא תגובה 1 תגובה אחרונה
                              1
                              • OdedDvirO OdedDvir

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

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

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

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

                                OdedDvirO תגובה 1 תגובה אחרונה
                                0
                                • אורייא אוריי

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

                                  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
                                  • OdedDvirO OdedDvir

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

                                    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
                                    
                                    אורייא מנותק
                                    אורייא מנותק
                                    אוריי
                                    כתב ב נערך לאחרונה על ידי אוריי
                                    #36

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

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

                                    OdedDvirO תגובה 1 תגובה אחרונה
                                    0
                                    • אורייא אוריי

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

                                      OdedDvirO מנותק
                                      OdedDvirO מנותק
                                      OdedDvir
                                      כתב ב נערך לאחרונה על ידי OdedDvir
                                      #37

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

                                      אורייא תגובה 1 תגובה אחרונה
                                      1
                                      • OdedDvirO OdedDvir

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

                                        אורייא מנותק
                                        אורייא מנותק
                                        אוריי
                                        כתב ב נערך לאחרונה על ידי
                                        #38

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

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

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

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

                                          On Error Resume Next
                                          

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

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

                                          אורייא תגובה 1 תגובה אחרונה
                                          2
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


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

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

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