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

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

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

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

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

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

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

    @אוריי אתה יכול בארוע הטעינה של הטופס להריץ לולאה על הטבלה ולשנות את הצבע של כל פקד בטופס שמסומן.

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

      @אוריי אתה יכול בארוע הטעינה של הטופס להריץ לולאה על הטבלה ולשנות את הצבע של כל פקד בטופס שמסומן.

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

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

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

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

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


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

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

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