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

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

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

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

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

    @OdedDvir
    תודה רבה
    ואיך אני כותב את זה?

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

    @אוריי מה שם הטבלה והשדות הרלוונטיים?

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

      @אוריי מה שם הטבלה והשדות הרלוונטיים?

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

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

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

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

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


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

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

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