Re: Field Size: Integer to Double

Tech-Archive recommends: Fix windows errors by optimizing your registry

If instead of the RunSQL, you use the faster Currentdb.Execute, you don't
have to bother with SetWarnings. They will not fire.

Currentdb.Execute "ALTER TABLE WOLABOR ALTER COLUMN L_RUNHRS DOUBLE;",
dbFailOnError


"Bre-x" <mamani@xxxxxxxx> wrote in message
news:OdoTdy5PJHA.4680@xxxxxxxxxxxxxxxxxxxxxxx
Actually, this would to the trick

DoCmd.SetWarnings False
DoCmd.RunSQL "ALTER TABLE WOLABOR ALTER COLUMN L_RUNHRS DOUBLE;"
DoCmd.SetWarnings True

Thank you all!!



"Bre-x" <mamani@xxxxxxxx> wrote in message
news:uTrXOQ5PJHA.496@xxxxxxxxxxxxxxxxxxxxxxx
I have this function to download data from a Pervasive SQL into MS Access

Public Function get_hrs(WOPRE As Double, WOSUF As Double)
Dim sql As String
sql = "SELECT * FROM WOLABOR WHERE MTWOLA_WOPRE = " & WOPRE & " And
MTWOLA_WOSUF = " & WOSUF
CurrentDb.QueryDefs("DBA").sql = sql
DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT DBA.* INTO WOLABOR FROM DBA;"
DoCmd.SetWarnings True
End Function

On my new WOLABOR table I have several Fields that are Data Type = Number
and Field Size = Integer

using VBA or any other method can I change it to "Double"?

Thank you all

Bre-x






.

Relevant Pages

  • Re: COM+ Method level security problem
    ... Public Function CreateNewClientAs Integer ... Dim sql As String ... Dim NewID As Integer ... Public Function FetchClient(ByVal ClientID As Integer) ...
    (microsoft.public.dotnet.framework.component_services)
  • Re: update all records
    ... meet a criteria ... Dim sql as String ... CurrentDB.Execute sql, dbFailOnError ...
    (microsoft.public.access.formscoding)
  • Re: Table with only the last record
    ... query that contains only the last order.To this end i have tried to ... Public Function Alan() ... Dim SQL As String ...
    (comp.databases.ms-access)
  • MissingMethodException
    ... Dim SQL As String ... Public Function GetSqlCeConnection() As Boolean ...
    (microsoft.public.sqlserver.ce)
  • Re: Table with only the last record
    ... Public Function Alan() ... Dim SQL As String ...
    (comp.databases.ms-access)