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

[חייםיודלביץ]

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

תודה

[dovid]

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

[חייםיודלביץ]

@dovid תודה

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

[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

[dovid]

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

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

תשנה את dbText לdbInteger.

[חייםיודלביץ]

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

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

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

[dovid]

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

[חייםיודלביץ]

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

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

תודה

[חייםיודלביץ]

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

תודה

[dovid]

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

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

תודה

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

[חייםיודלביץ]

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

תודה

[dovid]

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

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

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