Rocky Smolin - Beach Access Software
bchacc at san.rr.com
Mon Dec 5 09:10:56 CST 2005
Never mind. Figured it out. I have the name and path of the linked
database in a global variable already. So:
Set wrk = DBEngine.Workspaces(0)
Set Db = wrk.OpenDatabase(gstrDatabaseName)
Dim strSql As String
strSql = "ALTER TABLE tblPODetail ALTER COLUMN fldPODPartDescription
TEXT(255);"
Db.Execute strSql, dbFailOnError
works.
Rocky
----- Original Message -----
From: "Rocky Smolin - Beach Access Software" <bchacc at san.rr.com>
To: "Access Developers discussion and problem solving"
<accessd at databaseadvisors.com>
Sent: Monday, December 05, 2005 6:50 AM
Subject: Re: [AccessD] Change Field Size
> Gotcha...run-time error 3611...cannot execute data definition statements
> on
> linked data sources...
>
> Is there a way to do this on a linked table? I want to send the patch
> with
> the front end (E-Z-MRP) to extend the length of a field on startup of the
> program.
>
> T&R
>
> Rocky
>
> ----- Original Message -----
> From: "Martin" <mwp.reid at qub.ac.uk>
> To: <accessd at databaseadvisors.com>
> Sent: Monday, December 05, 2005 6:00 AM
> Subject: Re: [AccessD] Change Field Size
>
>
>> Rocky
>>
>> Dim strSql As String
>> strSql = "ALTER TABLE MyTable ALTER COLUMN MyField TEXT(33);"
>> DBEngine(0)(0).Execute strSql, dbFailOnError
>>
>>
>>
>> From: "Rocky Smolin - Beach Access Software"<bchacc at san.rr.com>
>> Sent: 05/12/05 13:43:38
>> To: "Access Developers discussion and problem
>> solving"<accessd at databaseadvisors.com>
>> Subject: Re: [AccessD] Change Field Size
>>
>> Martin:
>>
>> I can't find any references to Alter. It's VBA, yes?
>>
>> Rocky
>>
>> ----- Original Message -----
>> From: "Martin" <mwp.reid at qub.ac.uk>
>> To: <accessd at databaseadvisors.com>
>> Sent: Sunday, December 04, 2005 10:11 AM
>> Subject: Re: [AccessD] Change Field Size
>>
>>
>> > Rocky
>> >
>> > You may have to use an Alter statement also note below from web.
>> >
>> >
>> > Using DAO, you have to CreateField() of the new size, execute an
>> UPDATE
>> > query to populate it, and then remove the old field.
>> >
>> > Martin
>> >
>> >
>> > -----Original Message-----
>> > From: "Rocky Smolin - Beach Access Software"<bchacc at san.rr.com>
>> > Sent: 04/12/05 17:44:36
>> > To: "AccessD at databaseadvisors.com"<AccessD at databaseadvisors.com>
>> > Subject: [AccessD] Change Field Size
>> > Dear List:
>> >
>> > Close, but no cigar.
>> >
>> > I need to change the length of a field through code. I've got:
>> >
>> > Set wrk = DBEngine.Workspaces(0)
>> > Set db = wrk.OpenDatabase(gstrDatabaseName)
>> > Set tdf = db.TableDefs("tblPODetail")
>> >
>> >
>> > Set fld = tdf.Fields("fldPODPartDescription")
>> > fld.Properties("AllowZeroLength") = True
>> > fld.Properties("FieldSize") = 255
>> > tdf.Fields.Append fld
>> >
>> > Set fld = Nothing
>> > Set tdf = Nothing
>> > Set db = Nothing
>> > Set wrk = Nothing
>> >
>> > but fld.Properties("FieldSize") = 255 errors with "property can
>> only
>> > be set when the Field is part of a Recordset object's field
>> collection.
>> >
>> > What am I doing wrong?
>> >
>> > MTIA,
>> >
>> > Rocky Smolin
>> > Beach Access Software
>> > http://www.e-z-mrp.com
>> > 858-259-4334
>> > --
>> > AccessD mailing list
>> > AccessD at databaseadvisors.com
>> > http://databaseadvisors.com/mailman/listinfo/accessd
>> > Website: http://www.databaseadvisors.com
>> >
>> >
>> > --
>> > AccessD mailing list
>> > AccessD at databaseadvisors.com
>> > http://databaseadvisors.com/mailman/listinfo/accessd
>> > Website: http://www.databaseadvisors.com
>> >
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinf
>>
>> [Message truncated. Tap Edit->Mark for Download to get remaining
>> portion.]
>>
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>