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

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

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

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

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

    @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
                • OdedDvirO OdedDvir

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

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

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

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

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

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

                  וזה לא עובד.

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

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

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

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

                    וזה לא עובד.

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

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

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

                    נקרא לו A

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

                    נקרא לו B

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

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

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

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

                      נקרא לו A

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

                      נקרא לו B

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

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

                      @OdedDvir
                      עכשיו זה נמצא שם (A) באירוע לאחר עידכון ולא עובד

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

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

                        @OdedDvir
                        עכשיו זה נמצא שם (A) באירוע לאחר עידכון ולא עובד

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

                        @אוריי האם מתבצעת בכלל קריאה לפונקציה בזמן הריצה?

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

                          @אוריי האם מתבצעת בכלל קריאה לפונקציה בזמן הריצה?

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

                          @OdedDvir
                          נראה לי שלא הוא נתקע בקוד הזה

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

                          d599f4f5-e3ee-4a54-b868-c4e7c19aab87-image.png
                          ובלחיצה על F8 הוא מחזיר שגיאה כזו
                          1a53e3de-50eb-4bcd-9d63-f903ecb58fd4-image.png

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

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

                            @OdedDvir
                            נראה לי שלא הוא נתקע בקוד הזה

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

                            d599f4f5-e3ee-4a54-b868-c4e7c19aab87-image.png
                            ובלחיצה על F8 הוא מחזיר שגיאה כזו
                            1a53e3de-50eb-4bcd-9d63-f903ecb58fd4-image.png

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

                            @אוריי אתה צריך להוריד את המילה Form

                            Call Forms("as").SetColors()
                            
                            אורייא תגובה 1 תגובה אחרונה
                            1
                            • OdedDvirO OdedDvir

                              @אוריי אתה צריך להוריד את המילה Form

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

                              @OdedDvir
                              עכשיו עובד
                              אבל נוצרה בעיה אחרת שאם אני מוריד את הסימון הוא לא מחזיר את העיצוב הקודם

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

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

                                @OdedDvir
                                עכשיו עובד
                                אבל נוצרה בעיה אחרת שאם אני מוריד את הסימון הוא לא מחזיר את העיצוב הקודם

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

                                @אוריי זה בגלל שמעיקרא הפונקציה סורקת רק את הפקדים שמסומנים
                                אפשר לשנות שתסרוק הכל ולעדכן את כולם, כך

                                Public Sub SetColors()
                                    Dim rs As DAO.Recordset
                                    Set rs = CurrentDb.OpenRecordset("ShelfCharacteristics", dbOpenSnapshot, dbReadOnly)
                                    rs.MoveFirst
                                    While Not rs.EOF
                                        If rs!ClosedShelf Then
                                              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                                        Else
                                              Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbBlack
                                       End If
                                       rs.MoveNext
                                    Wend
                                    rs.Close
                                End Sub
                                
                                אורייא תגובה 1 תגובה אחרונה
                                1
                                • OdedDvirO OdedDvir

                                  @אוריי זה בגלל שמעיקרא הפונקציה סורקת רק את הפקדים שמסומנים
                                  אפשר לשנות שתסרוק הכל ולעדכן את כולם, כך

                                  Public Sub SetColors()
                                      Dim rs As DAO.Recordset
                                      Set rs = CurrentDb.OpenRecordset("ShelfCharacteristics", dbOpenSnapshot, dbReadOnly)
                                      rs.MoveFirst
                                      While Not rs.EOF
                                          If rs!ClosedShelf Then
                                                Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbRed
                                          Else
                                                Me.Controls(CStr(rs!ShelfNumber)).ForeColor = vbBlack
                                         End If
                                         rs.MoveNext
                                      Wend
                                      rs.Close
                                  End Sub
                                  
                                  אורייא מנותק
                                  אורייא מנותק
                                  אוריי
                                  כתב ב נערך לאחרונה על ידי אוריי
                                  #36

                                  @OdedDvir
                                  מחזיר כזו שגיאה
                                  1497a1dc-5c9a-46c9-9e74-1bc36bb18317-image.png
                                  33711ef0-8ca2-4ef6-90d4-e182bc9681f4-image.png

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

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

                                    @OdedDvir
                                    מחזיר כזו שגיאה
                                    1497a1dc-5c9a-46c9-9e74-1bc36bb18317-image.png
                                    33711ef0-8ca2-4ef6-90d4-e182bc9681f4-image.png

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

                                    @אוריי זה אומר שאין לך פקד בשם "5" בטופס, אבל בטבלה יש

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

                                      @אוריי זה אומר שאין לך פקד בשם "5" בטופס, אבל בטבלה יש

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

                                      @OdedDvir הההא
                                      אם כך יש לי הרבה פקדים חסרים בסידרה
                                      צריך קוד שידע לדלג על הפקדים האלו וירוץ עד הסוף

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

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

                                        תוכל להוסיף בין שורה 1 לשורה 2 את הקוד

                                        On Error Resume Next
                                        

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

                                        למקרה שלך שבה הפונקציה רק משנה עיצוב - זה לא נורא...

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

                                          תוכל להוסיף בין שורה 1 לשורה 2 את הקוד

                                          On Error Resume Next
                                          

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

                                          למקרה שלך שבה הפונקציה רק משנה עיצוב - זה לא נורא...

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

                                          @OdedDvir

                                          תודה רבה אין מילים להודות על כל העזרה שלך כאן בפורום
                                          👍 👍 👍 👍

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

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


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

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

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