Information non enregistré dans la table

Signaler
Messages postés
7
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
29 avril 2009
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour,

J'ai une zone de texte qui est alimenté par une requête qui récupère le username (qui fonctionne). Lorsque je ferme la base lorsque je l'ouvre à nouveau, le champ est vide.

Voici mon code dans un private sub :

    Dim Buff As String * 255
    Dim NSize As Long
    Dim Ret As Long
    Dim UsrName As String

    NSize = Len(Buff)
    Ret = GetUserName(Buff, NSize)
    UsrName = Left(Buff, NSize)
    UsrName = Left(UsrName, Len(UsrName) - 1)
    Me.trav_fait_par = UsrName

et celui du module :
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, NSize As Long) As Long

Est-ce quelqu'un pourrait m'aider pour que l'information reste ?

Merci et bonne journée!

3 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
UsrName = Left(Buff, NSize)
UsrName = Left(UsrName, Len(UsrName) - 1)

fais direct:

UsrName = Left(Buff, NSize-1)
^^


mais bon utilises plutot

environ$("UserName")

plus simple, non ^^


où est fait cet appel ? (qui n'a rien d'une requète)


(et gaffe au theme sous lequel tu postes...)
Messages postés
7
Date d'inscription
jeudi 26 février 2004
Statut
Membre
Dernière intervention
29 avril 2009

Merci Rendield pour ta réponse,
Désolé si je n'ai pas poster dans la bonne section du forum !!

Cette appel est fait lorsque je click sur le bouton "new_load" qui m'ouvre un formulaire vierge

Il contient le code :

Private Sub new_load_Click()
On Error GoTo Err_new_load_Click




    DoCmd.GoToRecord , , acNewRec
    'Attention si Buff trop petit => Plantage
    Dim Buff As String * 255
    Dim NSize As Long
    Dim Ret As Long
    Dim UsrName As String


    NSize = Len(Buff)
    Ret = GetUserName(Buff, NSize)
    UsrName = Left(Buff, NSize)
    UsrName = Left(UsrName, Len(UsrName) - 1)
    Me.trav_fait_par = UsrName


Exit_new_load_Click:
    Exit Sub


Err_new_load_Click:
    MsgBox Err.Description
    Resume Exit_new_load_Click
   
End Sub

Merci de votre aide !
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
DoCmd.GoToRecord , , acNewRec

dois générer une erreur et empecher le traitement de ton texte