Part of Slepp's Projects — Pastebin — TURL — Imagebin — Filebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Advertising

advertising

related pastes to tag 'vba'

1630004 - VBA: Get Username from PC: user name vba vb
  1. Option Compare Database
  2. Option Explicit
  3. Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
  4. Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  5.  
  6.  
  7. Public Function GetCurrentUserName() As String
  8. On Error GoTo Err_GetCurrentUserName
  9.  
1629994 - Access: Get PC Name : pc name vba vb
  1. Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
  2. Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4. Public Function GetComputerName() As String
  5. On Error GoTo Err_GetComputerName
  6. Dim Username As String * 255
  7. Call GetComputerNameA(Username, 255)
  8. GetComputerName = Left$(Username, InStr(Username, Chr$(0)) - 1)
  9.  
1629963 - Access: Get Username: access vba username vb
  1. Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long
  2. Private Declare Function GetUserName Lib "ADVAPI32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
  3.  
  4.  
  5. Public Function GetCurrentUserName() As String
  6. On Error GoTo Err_GetCurrentUserName
  7. Dim lpBuff As String * 25
  8. Dim ret As Long, Username As String
  9.  
680807 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658208 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658196 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658185 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658183 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658182 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
658176 - PC1033 Refactored: vba
  1. ' Declarations
  2. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  3. Dim hasData As Boolean
  4. Dim theRow As Integer
  5.  
  6. ' Main Sub
  7. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
  8. Sub ExportContact()
  9.  
fantasy-obligation