Linieskift i email/ brugernavn ind i tabel??

Lytter lige med :o)

To get current user
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim lBufSiz As Long
Dim sBuf As String
 
  sBuf = String$(255, 0)
  lBufSiz = 255
  If GetUserName(sBuf, lBufSiz) Then
    sGetUserName = UCase$(Left$(sBuf, lBufSiz - 1))
  Else
    sGetUserName = Null
  End If

In Access the there Constants whicgh you should be able to use for formatting

vbCrLF vbTab and others

Use them as follows

Dim Str as string

Str = "Some text. & vbCrLF & "Some more text" & vbTab & "and so on...."

Nu er jeg blank!!Hvordan får jeg det omsat til at den gør dette i en Form,

you should ´be able to find a complete list of thes constants by looking in Help after Const

If you have a text box then you can use TAB and ENTER

Det var den med current user jeg ikke helt fik fat i!!, linieskift og tab fungerer hvad med Fed skrift

There is a property named (Enter Key behavior) you will need to set this to  New Line in Field. When you do this you can press enter to get a new line.

A rich text field may be better for this though!

Du finder aktuelt NT-login nemmest ved blot at spørge på: Environ("Username")

Linieskift får du ved at skrive: vbnewline
Eks: Tekst = "Dette er første linie" & vbnewline & "Dette er anden linie!"

Det er straks værre med formatteret skrift (dvs fed, kursiv, forskellig skriftstørrelse m.m.). Det kan kun lade sige gøre, hvis du vælger at email'en skal være i .rtf-format eller i .html-format. Men så skal du manuelt skrive koderne for Fed, kursiv m.m.

CURRENT USER!


You need to place the code in a module

you call it as follows whereTheUser is a variable 

TheUser = sGetUserName



There was a line missing in the example should be>

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Public Function sGetUserName() As String

Dim lBufSiz As Long
Dim sBuf As String
 
  sBuf = String$(255, 0)
  lBufSiz = 255
  If GetUserName(sBuf, lBufSiz) Then
    sGetUserName = UCase$(Left$(sBuf, lBufSiz - 1))
  Else
    sGetUserName = Null
  End If

end function

ja!!!!! det var noget jeg ku bruge
hvad er koderne for fed, kursiv

altså til thomasjepsen

jeg splitter point'ne
behøver ikke den med fed skrift, hvis det bliver omfattende. ja jeg ved ikke en skid om .rtf

tak :o)