Left() Right() Trim()

Daxton A.

Registered User.
Local time
Today, 13:05
Joined
Dec 30, 2002
Messages
65
I was using Left() Right() Trim() in Office97 and i switched to 2000 and it doesnt allow the use of those functions unless you install those functions with 2000. I know there's another way of doing it becuz i've done it b4. But I cant remember how. Does anyone know?
 
Daxton A. said:
I was using Left() Right() Trim() in Office97 and i switched to 2000 and it doesnt allow the use of those functions unless you install those functions with 2000. I know there's another way of doing it becuz i've done it b4. But I cant remember how. Does anyone know?
huh? thought this indicated a problem with your references! as them functions are perfectly valid in 2000, and don't need any thing special installing.

uncheck all your references, close the dialog, then go in a recheck them all, then do a full compile, should help. There is some code that does this for you...urm...somewhere...
Code:
Public Sub FixUpRefs()
Dim loRef As Access.Reference
Dim intCount As Integer, intX As Integer
Dim blnBroke As Boolean
Dim strPath As String

On Error Resume Next

'Count the number of references in the Database
intCount = Access.References.Count

'Loop through each reference in the Database
'and determine if the reference is broken.
'If it is broken, remove the Reference and add it back.
For intX = intCount To 1 Step -1
    Set loRef = Access.References(intX)
    With loRef
        blnBroke = .IsBroken
        If blnBroke = True Or err <> 0 Then
            strPath = .FullPath
            With Access.References
                .Remove loRef
                .AddFromFile strPath
            End With
        End If
    End With
Next

Set loRef = Nothing

' Call a hidden SysCmd to automatically compile/save all modules.
Call SysCmd(504, 16483)
End Sub
 

Users who are viewing this thread

Back
Top Bottom