Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la mesure
où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle ne
trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les installer
sans bug ailleurs ben je suis un peu bloqué (je répondrais aux autres
message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé acce ss,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres), j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba est
touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la mesure
où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1167919132.075594.247710@s34g2000cwa.googlegroups.com...
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle ne
trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les installer
sans bug ailleurs ben je suis un peu bloqué (je répondrais aux autres
message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé acce ss,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres), j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba est
touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la mesure
où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle ne
trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les installer
sans bug ailleurs ben je suis un peu bloqué (je répondrais aux autres
message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé acce ss,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres), j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba est
touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1167919132.075594.247710@s34g2000cwa.googlegroups.com...
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 20 07
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes av ec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux tr ois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondra is
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé a ccess,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
Tisane
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1167919132.075594.247710@s34g2000cwa.googlegroups.com...
Bonjour et bonne année a tous, je vous souhaite une super année 20 07
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes av ec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux tr ois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondra is
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé a ccess,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 20 07
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes av ec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux tr ois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondra is
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé a ccess,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
Tisane
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1167919132.075594.247710@s34g2000cwa.googlegroups.com...
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Comme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j'ai
vérifié dans outils - référence et j'ai les cinq même qui sont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dans la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élevé,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répondrais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Re salut,
Je pense (mais je peux me tromper) que c'est du côté de Windows où ça
merde... ("ya" des .dll qui ont foutu le camp...)
Donc... réinstaller ou réparer, vu d'ici je ne sais pas trop quoi te
conseiller.
Une idée cependant, vas faire un tour sur le groupe de discussions
microsoft.public.fr.windows.xp et expose ton pb.
A+ et bon courage,
Jero
"Alex" a écrit dans le message de news:
Bonjour,
la base marche au poil (enfin sauf les dernières modifs en cours) sur
trois autres postes.
La fonction du test nom du pc devrait marcher sur tous les postes mais
chez moi celle la et d'autres ne marchent plus.Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Co mme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j' ai
vérifié dans outils - référence et j'ai les cinq même qui s ont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dan s la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élev é,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répond rais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Re salut,
Je pense (mais je peux me tromper) que c'est du côté de Windows où ça
merde... ("ya" des .dll qui ont foutu le camp...)
Donc... réinstaller ou réparer, vu d'ici je ne sais pas trop quoi te
conseiller.
Une idée cependant, vas faire un tour sur le groupe de discussions
microsoft.public.fr.windows.xp et expose ton pb.
A+ et bon courage,
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1168003010.790431.95710@11g2000cwr.googlegroups.com...
Bonjour,
la base marche au poil (enfin sauf les dernières modifs en cours) sur
trois autres postes.
La fonction du test nom du pc devrait marcher sur tous les postes mais
chez moi celle la et d'autres ne marchent plus.
Bonjour Alex,
merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Co mme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j' ai
vérifié dans outils - référence et j'ai les cinq même qui s ont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
Tisane
Salut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dan s la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" <heyerax@gmail.com> a écrit dans le message de news:
1167919132.075594.247710@s34g2000cwa.googlegroups.com...
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élev é,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répond rais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.
Re salut,
Je pense (mais je peux me tromper) que c'est du côté de Windows où ça
merde... ("ya" des .dll qui ont foutu le camp...)
Donc... réinstaller ou réparer, vu d'ici je ne sais pas trop quoi te
conseiller.
Une idée cependant, vas faire un tour sur le groupe de discussions
microsoft.public.fr.windows.xp et expose ton pb.
A+ et bon courage,
Jero
"Alex" a écrit dans le message de news:
Bonjour,
la base marche au poil (enfin sauf les dernières modifs en cours) sur
trois autres postes.
La fonction du test nom du pc devrait marcher sur tous les postes mais
chez moi celle la et d'autres ne marchent plus.Bonjour Alex,merci pour les tests Jero mais c'est pas la seule fonction qui marche
pas (et qui marchait avant et qui marche ailleurs).
j'ai d'ailleurs testé ce test et ca marche pas mieux sur mon pc. Co mme
si la fonction getcomputername ne renvoyait plus rien, une idée de
comment je pourrais réinstaller cette api de windows ? Car sinon j' ai
vérifié dans outils - référence et j'ai les cinq même qui s ont
cochés sur un ordi valide.
Je crains devoir réinstaller windows et j'aimerais bien m'en passer.
Je prends en cours et je n'ai peut-être pas tout suivi, mais avant de
réinstaller Windows, as-tu essayé :
- ta base sur un autre poste ?
- d'importer tous les objets de ta base dans une nouvelle base ?
--
TisaneSalut,
Je viens de tester... ça fonctionne :
Option Compare Database
Option Explicit
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
...et je ne vois pas quelles références il faudrait ajouter, dan s la
mesure où tu utilises une API de Windows (GetComputerName).
A+
Jero
"Alex" a écrit dans le message de news:
Bonjour et bonne année a tous, je vous souhaite une super année 2007
avec un pc qui freeze pas toutes les 5 minutes et access qui vous
obéit au doigt et à l'oeil !
Suite a des problèmes matériels aigus j'ai quelques problèmes avec
access. J'ai eu un nombre de freeze reboot sauvage bien trop élev é,
j'ai aujourd'hui corrigé le problème mais visiblement j'ai deux trois
trucs qui ont sauté.
J'avais par exemple récupéré une fonction pour trouver le nom du pc
et aujourd'hui elle fonctionne que sur le else c'est à dire qu'elle
ne trouve pas le nom du pc.
Function NomMachine() As String
Dim Buffer As String
Buffer = String$(255, 0)
If GetComputerName(Buffer, 255) <> 0 Then
NomMachine = Left$(Buffer, InStr(1, Buffer, Chr(0)) - 1)
Else
NomMachine = "rien"
End If
End Function
debug.Print NomMachine
rien
Je peux me passer de cette fonction mais d'autre sont touchées avec
pour conséquence d'empêcher l'utilisation de la base, et vu que je
suis pas assez fort pour faire toutes mes modifs et aller les
installer sans bug ailleurs ben je suis un peu bloqué (je répond rais
aux autres message quand j'aurais résolu mon problème).
Pour essayer de me dépanner j'ai désinstallé et réinstallé access,
j'ai fait "réparer office", j'ai fait plusieurs reboot (propres),
j'ai
le sentiment qu'un fichier ou une configuration d'un truc pour vba
est touché mais je sais pas trop.
Je préfère aussi éviter de réinstaller windows.
Merci de votre aide.