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

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

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

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

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

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

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

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

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

        אורייא 2 תגובות תגובה אחרונה
        1
        • אורייא מנותק
          אורייא מנותק
          אוריי
          השיב לOdedDvir ב נערך לאחרונה על ידי
          #13

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

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

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

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

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

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

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

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

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

              אורייא תגובה 1 תגובה אחרונה
              1
              • אורייא מנותק
                אורייא מנותק
                אוריי
                השיב לOdedDvir ב נערך לאחרונה על ידי
                #16

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

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

                תגובה 1 תגובה אחרונה
                1
                • אורייא מנותק
                  אורייא מנותק
                  אוריי
                  השיב לOdedDvir ב נערך לאחרונה על ידי
                  #17

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

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

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

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

                    Public Sub SetColors()
                    .....
                    

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

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

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

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

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

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

                        ("<form-name>")
                        

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

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

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

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

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

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

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

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

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

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

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

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

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

                              או על ידי

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

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

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

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

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

                                  אורייא תגובה 1 תגובה אחרונה
                                  1
                                  • אורייא מנותק
                                    אורייא מנותק
                                    אוריי
                                    השיב לOdedDvir ב נערך לאחרונה על ידי
                                    #26

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

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

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

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

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

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

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

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

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

                                        וזה לא עובד.

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

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

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

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

                                          נקרא לו A

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

                                          נקרא לו B

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

                                          אורייא תגובה 1 תגובה אחרונה
                                          1

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

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

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