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

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

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

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

מתוזמן נעוץ נעול הועבר תוכנה
40 פוסטים 3 כותבים 752 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • 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
                                        • OdedDvirO OdedDvir

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

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

                                          או על ידי

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

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

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

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


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

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

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