Compileer fout VBA

[Marcotica]

hallo,

Al enige tijd heb ik een database waar in de gebruikers namen van gebruikers gecontroleerd worden.
Deze werkte op en top. Sinds een week krijgen we deze melding.



Wie kan mij vertellen wat hier fout is gegaan?

gr. Marco

 

[OctaFish]

Als iets werkte, en op een bepaald moment niet meer, dan is er iets veranderd in de (werk)omgeving. Misschien een upgrade naar een nieuwere versie o.i.d. Controleer in ieder geval of je bibliotheken nog aanwezig zijn en werken.

 

[Marcotica]

Ik heb het zo staan OctaFish.
Juist:

 

[OctaFish]

Het is een beetje een vreemde mix; ADO 2.1 en ADO Ext. 2.8 bijvoorbeeld zijn niet van dezelfde versie. Dus ADO 2.1 zou ik in ieder geval vervangen door ADO 2.8. En wat doet Word 14.0 daar? Zo te zien heb je een oudere Access versie (9.0); dan zou Word 14.0 daar fouten op kunnen genereren. Gebruik geen nieuwere bibliotheken dan je programmaversie.
Heb je de db een keer in een 2010 versie geopend? En daar de Word bibliotheek aan toegevoegd?

 

[Marcotica]

Ja..Ik heb de dbase in 2010 versie geopend. Maar niet de Word bieb toegevoegd.
Dus de ADO 2.1 verwijderden?

De dbase werkte overigens niet op 2010

 

[OctaFish]

ADO 2.1 vervangen door 2.8. En de verwijzing naar Word 14.0 in ieder geval uitzetten.

 

[Marcotica]

Helaassssss............nog niets.
Misschien nog andere suggesties?

 

[OctaFish]

De functie vervangen. Bijvoorbeeld zo:

Function foSUserName() As String
    foSUserName = VBA.Environ("Username")
End Function

Dan heb je die ingewikkelde constructie ook niet meer nodig.

 

[Marcotica]

Jooohooo. Het lijkt te werken.
Wat een korte versie dan die ik had.
Nog even checken bij anderen, maar het lijkt te lukken.

 

[OctaFish]

Dan zat de 'fout' in de API aanroep. Die heb je met deze functie niet meer nodig.

 

[Marcotica]

Hoi Michel,

Nog even een vraagje. Na de "api" oplossing, krijg ik nu weer een andere melding (Kan het project of bibliotheek niet vinden)
Zie ook schermprintje.
Kun je mij misschien vertellen wat deze nu weer inhoud?



Ik hoor graag van je.

mvg
Marco

 

[OctaFish]

Deze functie maakt nog steeds gebruik van API.
Vervang hem door bovenstaande functie, en je bent van de melding af als het goed is.

 

[Marcotica]

Hmmm. Het is een andere dan daarvoor he.
Maar moet ik deze vervangen:

Function fOSMachineName() As String

    'Returns the computername
    Dim lngLen As Long, lngX As Long
    Dim strCompName As String
    lngLen = 16
    strCompName = String$(lngLen, 0)
    lngX = apiGetComputerName(strCompName, lngLen)
    If lngX <> 0 Then
        fOSMachineName = Left$(strCompName, lngLen)
    Else
        fOSMachineName = ""
    End If
End Function

Door:

Function fOSMachineName() As String
    fOSMachineName() = VBA.Environ("***********")
End Function

En wat moet ik bij de ******* zetten dan?

gr. Marco

 

[OctaFish]

Function fOSMachineName() As String
fOSMachineName() = VBA.Environ("COMPUTERNAME")
End Function

 

[Marcotica]

Helaas krijg ik volgende melding:

 

[OctaFish]

Les 1: nooit code overnemen van een vraagsteller

fOSMachineName = VBA.Environ("COMPUTERNAME")

 

[Marcotica]

Hahahah.
Thnx.......
Bij mij loopt ie door. Kijken of bij de andere persoon dit probleem is verholpen.

Ontzettend bedankt!!!! (alvast weer)

gr. Marco

Ps. Alvast fijne feestdagen gewenst.