Discussion :

[Logisticien]

bonjour;

le code ci dessous fonctionne bien sur AC2007 mais quand j'ai mis la base sur un autre PC dont il y a l'office 2013, la base ne fonctionne plus!

pouvez vous m'aider à résoudre ce problème!

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Compare Database
 
Declare Function RecupNomUtilisateur Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function NomUtilisateur() As String
Dim StrNomUtilisateur As String
Dim Resultat As Long ' Contiendra simplement 1 si l'appel s'est bien déroulé
StrNomUtilisateur = String$(255, 0)
Resultat = RecupNomUtilisateur(StrNomUtilisateur, 255)
If Resultat = 1 Then
NomUtilisateur = StrNomUtilisateur
Else
NomUtilisateur = "UTILISATEUR INCONNU"
End If
End Function

[Logisticien]

Pour celle qui rencontrent le même problème:

il faut juste ajouter "PtrSafe" dans la déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare PtrSafe Function ....

au lieu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Declare Function ....

c'est résolue.

[User]

Bonsoir,

Il faudrait préciser que vous avez une version d'office 2013 en 64 bits.

Cdlt,

[Invité]

Bonjour,
Intéresses toi aux directive de compilation pour respecter toutes les versions!
#if #else #end if