ניווט

    תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    • מקצועות
    חוקי הפורום

    איך להוסיף שדה באופן אוטומטי לטבלה?

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

      שלום
      האם מישהו יודע האם אפשר להוסיף שדה לטבלה ולהגדיר את סוג השדה למספר
      מצאתי רק קוד שמגדיר או לטקסט או לתזכיר [כך נראה לי]
      אשמח לדעת האם אפשר גם לשדה מספר

      בתודה מראש

      חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • חייםיודלביץ
        חייםיודלביץ @חייםיודלביץ נערך לאחרונה על ידי

        שכחתי לציין כי מדובר באקסס
        איפה עורכים הודעות שכבר כתבתי

        תודה

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • dovid
          dovid נערך לאחרונה על ידי

          תביא את הקוד שעובד לגבי טקסט או תזכיר ואומר לך מה לשנות.

          חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • חייםיודלביץ
            חייםיודלביץ @dovid נערך לאחרונה על ידי

            @dovid תודה

            מצורף, משום מה כרגע הוא בכלל מראה לי שגיאה בכלל על הוספת שדה
            אשמח לעזרה0_1529859574269_הוספת שדה אוטומטית.accdb

            תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • dovid
              dovid נערך לאחרונה על ידי dovid

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

              חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 2
              • חייםיודלביץ
                חייםיודלביץ @dovid נערך לאחרונה על ידי

                @dovid
                Option Compare Database

                Sub AddNewField()
                ' ==============================================
                ' Example code for AddFieldToTable()
                ' ----------------------------------------------
                ' Prompts the user for a field name and then
                ' adds a text field with that name to the
                ' Customers table in the current database.
                ' ==============================================
                Dim bOK As Boolean
                Dim strName As String
                Const MyFieldLength = 20

                strName = InputBox("What is the new field's name?")

                If strName <> "" Then
                bOK = AddFieldToTable("", "Customers", strName, dbText, MyFieldLength)
                If Not bOK Then
                MsgBox "Error: Unable to add new field."
                End If
                End If

                End Sub

                Function AddFieldToTable(strDatabase As String, strTable As String, strField As String, intDataType As Integer, intLength As Integer) As Boolean
                ' Comments : Adds a field to a table in any database
                ' Parameters: strDatabase - path and name of the database or "" (blank string) for the current database
                ' strTable - name of the table
                ' strField - name of the field to add
                ' intDataType - type of field dbText, dbMemo, etc.
                ' intLength - length of field
                ' Returns : True - field was added, False - field was not added
                '
                Dim db As Database
                Dim tdf As TableDef
                Dim fld As Field

                On Error GoTo err_AddFieldToTable

                If strDatabase = "" Then
                Set db = CurrentDb()
                Else
                Set db = DBEngine.Workspaces(0).OpenDatabase(strDatabase)
                End If

                Set tdf = db.TableDefs(strTable)

                If intDataType = dbText Then
                Set fld = tdf.CreateField(strField, intDataType, intLength)
                Else
                Set fld = tdf.CreateField(strField, intDataType)
                End If

                tdf.Fields.Append fld

                AddFieldToTable = True

                exit_AddFieldToTable:
                db.Close
                Exit Function

                err_AddFieldToTable:
                AddFieldToTable = False
                Resume exit_AddFieldToTable

                End Function

                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • dovid
                  dovid נערך לאחרונה על ידי

                  תהיה בריא...
                  בשורה הזו:

                  bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)
                  

                  תשנה את dbText לdbInteger.

                  חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 3
                  • חייםיודלביץ
                    חייםיודלביץ @dovid נערך לאחרונה על ידי

                    @dovid אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:

                    bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)

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

                    חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • dovid
                      dovid נערך לאחרונה על ידי

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

                      חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 5
                      • חייםיודלביץ
                        חייםיודלביץ @dovid נערך לאחרונה על ידי

                        @dovid תודה אכן עובד!

                        ואני נסיתי לכתוב number

                        תודה

                        תגובה 1 תגובה אחרונה תגובה ציטוט 2
                        • חייםיודלביץ
                          חייםיודלביץ @חייםיודלביץ נערך לאחרונה על ידי

                          יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה

                          תודה

                          dovid תגובה 1 תגובה אחרונה תגובה ציטוט 0
                          • dovid
                            dovid @חייםיודלביץ נערך לאחרונה על ידי dovid

                            @חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:

                            יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה

                            תודה

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

                            חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                            • חייםיודלביץ
                              חייםיודלביץ @dovid נערך לאחרונה על ידי

                              @dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי

                              תודה

                              dovid תגובה 1 תגובה אחרונה תגובה ציטוט 0
                              • dovid
                                dovid @חייםיודלביץ נערך לאחרונה על ידי

                                @חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:

                                @dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי

                                לא. ואם היה לי הייתי כותב.

                                תגובה 1 תגובה אחרונה תגובה ציטוט 2
                                • 1 / 1
                                • First post
                                  Last post
                                בא תתחבר לדף היומי!