NinJoDo
Messages postés23Date d'inscriptionmercredi 11 février 2004StatutMembreDernière intervention 5 mars 2007
-
2 févr. 2006 à 11:27
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
2 févr. 2006 à 15:44
Bonjour à tous,
la question que je vais poser est classique et traitée des milliers de fois dans les forums. Pourtant aucune des solutions proposées ne fonctionne dans mon code.
Environnement :
ACCESS
VB
Formulaire
Partie de mon code :
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function nomordi() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long, requete As String
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
ComputerName = Left$(stTmp, lgTmp)
'Ajoute le nom de l'ordinateur dans la requete R-log
requete = "INSERT INTO [R-log](ordinateur) VALUES ('" & stTmp & "')"
CurrentDb.Execute (requete)
End Function
Le problème vient de la requete.Le message d'erreur est le suivant (le nom de mon ordi est "coordonnateur")
Erreur de syntaxe dans la chaîne dans l'expression
"COORDONNATEUR'.
C'est certainement un problème tout bête mais j'ai déjà perdu assez de temps dessus.
NinJoDo
Messages postés23Date d'inscriptionmercredi 11 février 2004StatutMembreDernière intervention 5 mars 2007 2 févr. 2006 à 14:31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function nomordi() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long, requete As String
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
Computername = Left$(stTmp, lgTmp)
'Ajoute le nom de l'ordinateur dans la table T-log
requete = "INSERT INTO [R-log](ordinateur) VALUES ('" & Computername & "');"
CurrentDb.Execute (requete)
End Function