-
תצרף קוד רלוונטי. לא קובץ. ואם אתה לא יודע מה זה קוד, תפרסם בפורום גומלין שאתה צריך עזרה בנידון.
@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
-
תהיה בריא...
בשורה הזו:bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)
תשנה את dbText לdbInteger.
@dovid אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)
תודה אבל אני לא יכול לבדוק את זה כי הוא נותן לי שגיאה אחרת בנתיים
בכל אופן מקווה שאצליח להסתדר -
בקשר לעובדה שזה לא עובד, לא התאפקתי והורדתי את הקובץ המצורף. הבעיה היא שהטופס מאוגד לטבלה אז היא בעצם "פתוחה" ובלתי ניתנת לשינוי. במצב עיצוב נקה את השדה "מקור רשומה" במאפייני הטופס, וזה יעבוד.
-
@dovid אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
bOK = AddFieldToTable("", "אנשי קשר", strName, dbText, MyFieldLength)
תודה אבל אני לא יכול לבדוק את זה כי הוא נותן לי שגיאה אחרת בנתיים
בכל אופן מקווה שאצליח להסתדריש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
-
יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
@חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
אם אי אפשר בתצוגת עיצוב, מסתמא אי אפשר גם מהקוד. תוכל לנסות ולשתף בתוצאות.
אבל אני חושב אפשר עם טיפה אריכות לפתוח מהקוד את המסד המרוחק ולבצע זאת ישירות עליו. -
@חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
יש אולי אפשרות גם להוסיף לטבלה מקושרת או שבגלל הקישור ההוספה רק דרך הקובץ ששמה הטבלה
תודה
אם אי אפשר בתצוגת עיצוב, מסתמא אי אפשר גם מהקוד. תוכל לנסות ולשתף בתוצאות.
אבל אני חושב אפשר עם טיפה אריכות לפתוח מהקוד את המסד המרוחק ולבצע זאת ישירות עליו.@dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי
תודה
-
@dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי
תודה
@חייםיודלביץ אמר באיך להוסיף שדה באופן אוטומטי לטבלה?:
@dovid יש לך אולי להפנות אותי איפה יש קוד כזה חפשתי לא מצאתי
לא. ואם היה לי הייתי כותב.
-
D dovid העביר נושא זה מ-תכנות ב-