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

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

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

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

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

    @OdedDvir
    שם הטבלה: ShelfCharacteristics
    שם שדה של מספרי פקדים : ShelfNumber
    שם שדה של תיבות סימון בטבלה: ClosedShelf

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

    @אוריי כיצד נקראים הפקדים ביחס למספרים?

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

      @אוריי כיצד נקראים הפקדים ביחס למספרים?

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

      @OdedDvir
      שמות הפקדים הם מספרים מ1 ומעלה ללא שום אותיות וכדו'..

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

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

        @OdedDvir
        שמות הפקדים הם מספרים מ1 ומעלה ללא שום אותיות וכדו'..

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

        @אוריי תוסיף את הקוד הבא לטופס (הופך את צבע הקידמה של הפקד לאדום):

        Private Sub SetColors()
            Dim rs As DAO.Recordset
            Set rs = CurrentDb.OpenRecordset("SELECT * FROM ShelfCharacteristics WHERE ClosedShelf=True", dbOpenSnapshot, dbReadOnly)
            rs.MoveFirst
            While Not rs.EOF
                Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                rs.MoveNext
            Wend
            rs.Close
        End Sub
        
        Private Sub Form_Load()
            SetColors
        End Sub
        
        
        אורייא 2 תגובות תגובה אחרונה
        3
        • OdedDvirO OdedDvir

          @אוריי תוסיף את הקוד הבא לטופס (הופך את צבע הקידמה של הפקד לאדום):

          Private Sub SetColors()
              Dim rs As DAO.Recordset
              Set rs = CurrentDb.OpenRecordset("SELECT * FROM ShelfCharacteristics WHERE ClosedShelf=True", dbOpenSnapshot, dbReadOnly)
              rs.MoveFirst
              While Not rs.EOF
                  Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                  rs.MoveNext
              Wend
              rs.Close
          End Sub
          
          Private Sub Form_Load()
              SetColors
          End Sub
          
          
          אורייא מנותק
          אורייא מנותק
          אוריי
          כתב ב נערך לאחרונה על ידי
          #11

          @OdedDvir
          מחזיר שגיאה
          6d20f09c-a88a-45f3-a528-7f29bfbd2d4d-image.png

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

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

            @OdedDvir
            מחזיר שגיאה
            6d20f09c-a88a-45f3-a528-7f29bfbd2d4d-image.png

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

            @אוריי יש לך כנראה כבר קוד עבור הארוע Form_Load
            פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא, ותוסיף לפונקציה Form_Load הקיימת בטופס את הקריאה שבשורה 13

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

              @אוריי יש לך כנראה כבר קוד עבור הארוע Form_Load
              פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא, ותוסיף לפונקציה Form_Load הקיימת בטופס את הקריאה שבשורה 13

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

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

              פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא

              את זה איפה אני מוסיף באיזה אירוע?

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

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

                @אוריי יש לך כנראה כבר קוד עבור הארוע Form_Load
                פשוט תוסיף רק את הקוד של הפונקציה הראשונה SetColors() שבשורות 1-10, ואת השאר לא, ותוסיף לפונקציה Form_Load הקיימת בטופס את הקריאה שבשורה 13

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

                @OdedDvir
                הוספתי ומחזיר כזו שגיאה
                1d0ffda6-bd75-40c4-bf2c-5ce680b6a41f-image.png

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

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

                  @OdedDvir
                  הוספתי ומחזיר כזו שגיאה
                  1d0ffda6-bd75-40c4-bf2c-5ce680b6a41f-image.png

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

                  @אוריי צודק, ערכתי את הקוד למעלה

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

                    @אוריי תוסיף את הקוד הבא לטופס (הופך את צבע הקידמה של הפקד לאדום):

                    Private Sub SetColors()
                        Dim rs As DAO.Recordset
                        Set rs = CurrentDb.OpenRecordset("SELECT * FROM ShelfCharacteristics WHERE ClosedShelf=True", dbOpenSnapshot, dbReadOnly)
                        rs.MoveFirst
                        While Not rs.EOF
                            Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                            rs.MoveNext
                        Wend
                        rs.Close
                    End Sub
                    
                    Private Sub Form_Load()
                        SetColors
                    End Sub
                    
                    
                    אורייא מנותק
                    אורייא מנותק
                    אוריי
                    כתב ב נערך לאחרונה על ידי
                    #16

                    @OdedDvir
                    תודה עובד מצויין

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

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

                      @אוריי צודק, ערכתי את הקוד למעלה

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

                      @OdedDvir
                      איך אני גורם לו שבכל עידכון בטבלה הוא ישנה מייד את הצבע?

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

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

                        @OdedDvir
                        איך אני גורם לו שבכל עידכון בטבלה הוא ישנה מייד את הצבע?

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

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

                        Public Sub SetColors()
                        .....
                        

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

                        Private Sub After_Update()
                            Forms("<form-name>").SetColors()
                        End Sub
                        
                        אורייא 2 תגובות תגובה אחרונה
                        1
                        • OdedDvirO OdedDvir

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

                          Public Sub SetColors()
                          .....
                          

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

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

                          @OdedDvir
                          מה אני אמור לכתוב?

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

                          תגובה 1 תגובה אחרונה
                          0
                          • 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
                                          תגובה
                                          • תגובה כנושא
                                          התחברו כדי לפרסם תגובה
                                          • מהישן לחדש
                                          • מהחדש לישן
                                          • הכי הרבה הצבעות


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

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

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