-
שכחתי לציין כי מדובר באקסס
איפה עורכים הודעות שכבר כתבתיתודה
-
@dovid תודה
מצורף, משום מה כרגע הוא בכלל מראה לי שגיאה בכלל על הוספת שדה
אשמח לעזרה0_1529859574269_הוספת שדה אוטומטית.accdb -
@dovid
Option Compare DatabaseSub 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 = 20strName = 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 IfEnd 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 FieldOn Error GoTo err_AddFieldToTable
If strDatabase = "" Then
Set db = CurrentDb()
Else
Set db = DBEngine.Workspaces(0).OpenDatabase(strDatabase)
End IfSet tdf = db.TableDefs(strTable)
If intDataType = dbText Then
Set fld = tdf.CreateField(strField, intDataType, intLength)
Else
Set fld = tdf.CreateField(strField, intDataType)
End Iftdf.Fields.Append fld
AddFieldToTable = True
exit_AddFieldToTable:
db.Close
Exit Functionerr_AddFieldToTable:
AddFieldToTable = False
Resume exit_AddFieldToTableEnd Function
-
@dovid אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)
תודה אבל אני לא יכול לבדוק את זה כי הוא נותן לי שגיאה אחרת בנתיים
בכל אופן מקווה שאצליח להסתדר -
יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
-
@חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
אם אי אפשר בתצוגת עיצוב, מסתמא אי אפשר גם מהקוד. תוכל לנסות ולשתף בתוצאות.
אבל אני חושב אפשר עם טיפה אריכות לפתוח מהקוד את המסד המרוחק ולבצע זאת ישירות עליו. -
@חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
@dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי
לא. ואם היה לי הייתי כותב.
-
D dovid העביר נושא זה מ-תכנות ב-